aboutsummaryrefslogtreecommitdiffstats
path: root/src/dyn_tables.ads
diff options
context:
space:
mode:
Diffstat (limited to 'src/dyn_tables.ads')
-rw-r--r--src/dyn_tables.ads6
1 files changed, 1 insertions, 5 deletions
diff --git a/src/dyn_tables.ads b/src/dyn_tables.ads
index 8f6f96513..19bb5e7ac 100644
--- a/src/dyn_tables.ads
+++ b/src/dyn_tables.ads
@@ -31,10 +31,6 @@ generic
-- Table_Index_Type'First, as otherwise Last may raise constraint error
-- when the table is empty.
Table_Low_Bound : Table_Index_Type;
-
- -- Initial number of elements.
- Table_Initial : Positive;
-
package Dyn_Tables is
-- Ada type for the array.
type Table_Type is
@@ -64,7 +60,7 @@ package Dyn_Tables is
end record;
-- Initialize the table. This must be done by users.
- procedure Init (T : in out Instance);
+ procedure Init (T : in out Instance; Table_Initial : Positive);
-- Logical bounds of the array.
First : constant Table_Index_Type := Table_Low_Bound;