asis-extensions-strings.adb-patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14

--- asis-gpl-2017-src/asis/asis-extensions-strings.adb
+++ asis-gpl-2017-src-new/asis/asis-extensions-strings.adb
@@ -62,8 +62,8 @@
      Table_Index_Type     => Integer,
      Table_Low_Bound      => 1,
      Table_Initial        => 10000,
-     Table_Increment      => 1000,
-     Table_Name           => "character container");
+     Table_Increment      => 1000);
+--     Table_Name           => "character container");
 
    Table : Chars.Table_Ptr renames Chars.Table;