From f44d7c3466dc1b4013ef2bbeab524b28a166ef96 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 11 Jul 2019 19:22:11 +0200
Subject: libghdl: import Free_Dependence_List.

---
 src/vhdl/vhdl-sem_lib.adb | 1 +
 src/vhdl/vhdl-sem_lib.ads | 3 +++
 2 files changed, 4 insertions(+)

(limited to 'src')

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;
-- 
cgit v1.2.3