From 17c511b3d0face5ec512a2e7315cc5be80c30ea0 Mon Sep 17 00:00:00 2001 From: Vovanium Date: Tue, 8 Aug 2023 13:20:39 +0300 Subject: [PATCH] * rename --- source/base/video-images-indexed-fixed.ads | 2 +- source/base/video-images-indexed-unbounded.ads | 6 +++--- source/base/video-images-indexed.ads | 6 +++--- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/source/base/video-images-indexed-fixed.ads b/source/base/video-images-indexed-fixed.ads index 02581d4..7443963 100644 --- a/source/base/video-images-indexed-fixed.ads +++ b/source/base/video-images-indexed-fixed.ads @@ -33,6 +33,6 @@ package Video.Images.Indexed.Fixed is -- Above does not compile due to bug in GNAT package Fixed_Index_8 is new Generic_Fixed ( - Base => Index_8_Base); + Base => Index_8); end Video.Images.Indexed.Fixed; diff --git a/source/base/video-images-indexed-unbounded.ads b/source/base/video-images-indexed-unbounded.ads index 76093af..cedbd16 100644 --- a/source/base/video-images-indexed-unbounded.ads +++ b/source/base/video-images-indexed-unbounded.ads @@ -25,12 +25,12 @@ package Video.Images.Indexed.Unbounded is end Generic_Unbounded; package Unbounded_Index_1 is new Generic_Unbounded ( - Base => Index_1_Base); + Base => Index_1); package Unbounded_Index_4 is new Generic_Unbounded ( - Base => Index_4_Base); + Base => Index_4); package Unbounded_Index_8 is new Generic_Unbounded ( - Base => Index_8_Base); + Base => Index_8); end Video.Images.Indexed.Unbounded; diff --git a/source/base/video-images-indexed.ads b/source/base/video-images-indexed.ads index 88442b0..720b7b8 100644 --- a/source/base/video-images-indexed.ads +++ b/source/base/video-images-indexed.ads @@ -65,15 +65,15 @@ package Video.Images.Indexed is end Indexed_Base; - package Index_1_Base is new Indexed_Base ( + package Index_1 is new Indexed_Base ( Pixel_Type => Index_1_Pixel, Array_Type => Index_1_Array); - package Index_4_Base is new Indexed_Base ( + package Index_4 is new Indexed_Base ( Pixel_Type => Index_4_Pixel, Array_Type => Index_4_Array); - package Index_8_Base is new Indexed_Base ( + package Index_8 is new Indexed_Base ( Pixel_Type => Index_8_Pixel, Array_Type => Index_8_Array);