From 8302a267024b998214904269e116fdfc12e45b32 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 16 Feb 2016 20:55:09 +0100
Subject: Tentative fix for issue43.

---
 src/vhdl/translate/trans-chap9.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb
index 36a8ec471..f218f5627 100644
--- a/src/vhdl/translate/trans-chap9.adb
+++ b/src/vhdl/translate/trans-chap9.adb
@@ -1277,6 +1277,7 @@ package body Trans.Chap9 is
             for I in Info.Process_Drivers.all'Range loop
                Sig := Info.Process_Drivers (I).Sig;
                Open_Temp;
+               Chap9.Destroy_Types (Sig);
                Base := Get_Object_Prefix (Sig);
                if Info.Process_Drivers (I).Var /= Null_Var then
                   --  Elaborate direct driver.  Done only once.
@@ -1292,7 +1293,6 @@ package body Trans.Chap9 is
                                    Get_Type (Sig),
                                    Ghdl_Process_Add_Driver);
                end if;
-               Chap9.Destroy_Types (Sig);
                Close_Temp;
             end loop;
          end;
-- 
cgit v1.2.3