diff options
| -rw-r--r-- | python/libghdl/thin/vhdl/sem_lib.py | 2 | ||||
| -rw-r--r-- | src/vhdl/vhdl-sem_lib.adb | 1 | ||||
| -rw-r--r-- | src/vhdl/vhdl-sem_lib.ads | 3 |
3 files changed, 6 insertions, 0 deletions
diff --git a/python/libghdl/thin/vhdl/sem_lib.py b/python/libghdl/thin/vhdl/sem_lib.py index 28f7adc39..36559ec5e 100644 --- a/python/libghdl/thin/vhdl/sem_lib.py +++ b/python/libghdl/thin/vhdl/sem_lib.py @@ -3,3 +3,5 @@ from libghdl import libghdl Load_File = libghdl.vhdl__sem_lib__load_file Finish_Compilation = libghdl.vhdl__sem_lib__finish_compilation + +Free_Dependence_List = libghdl.vhdl__sem_lib__free_dependence_list diff --git a/src/vhdl/vhdl-sem_lib.adb b/src/vhdl/vhdl-sem_lib.adb index dab415789..95a4a4ae8 100644 --- a/src/vhdl/vhdl-sem_lib.adb +++ b/src/vhdl/vhdl-sem_lib.adb @@ -172,6 +172,7 @@ package body Vhdl.Sem_Lib is Next (It); end loop; Destroy_Iir_List (List); + Set_Dependence_List (Design, Null_Iir_List); end Free_Dependence_List; procedure Load_Parse_Design_Unit (Design_Unit: Iir_Design_Unit; Loc : Iir) diff --git a/src/vhdl/vhdl-sem_lib.ads b/src/vhdl/vhdl-sem_lib.ads index 544359bf3..97803d8c3 100644 --- a/src/vhdl/vhdl-sem_lib.ads +++ b/src/vhdl/vhdl-sem_lib.ads @@ -55,4 +55,7 @@ package Vhdl.Sem_Lib is -- Analyze UNIT. procedure Finish_Compilation (Unit : Iir_Design_Unit; Main : Boolean := False); + + -- Free the dependence list of DESIGN. For libghdl. + procedure Free_Dependence_List (Design : Iir_Design_Unit); end Vhdl.Sem_Lib; |