diff options
Diffstat (limited to 'src/dyn_interning.adb')
-rw-r--r-- | src/dyn_interning.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/dyn_interning.adb b/src/dyn_interning.adb index 96f4edc04..0550194f6 100644 --- a/src/dyn_interning.adb +++ b/src/dyn_interning.adb @@ -26,7 +26,7 @@ package body Dyn_Interning is begin Inst.Size := Initial_Size; Inst.Hash_Table := new Hash_Array'(0 .. Initial_Size - 1 => No_Index); - Wrapper_Tables.Init (Inst.Els); + Wrapper_Tables.Init (Inst.Els, 128); pragma Assert (Wrapper_Tables.Last (Inst.Els) = No_Index); end Init; |