libghdl: import Free_Dependence_List.

2 files changed, 4 insertions, 0 deletions

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;