diff options
Diffstat (limited to 'src/lists.adb')
-rw-r--r-- | src/lists.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/lists.adb b/src/lists.adb index f6739cd36..bd0cb5480 100644 --- a/src/lists.adb +++ b/src/lists.adb @@ -157,11 +157,15 @@ package body Lists is List := Null_List; end Destroy_List; - procedure Initialize is + procedure Finalize is begin Listt.Free; - Listt.Init; Chunkt.Free; + end Finalize; + + procedure Initialize is + begin + Listt.Init; Chunkt.Init; List_Free_Chain := Null_List; Chunk_Free_List := No_Chunk_Index; |