libghdl: import Free_Dependence_List.

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;