diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-02-16 20:55:09 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-02-17 21:04:46 +0100 |
| commit | 8302a267024b998214904269e116fdfc12e45b32 (patch) | |
| tree | 87a390a6513268f08f12aa872fc862a2c9f99f39 | |
| parent | 0cbee4bed82744757cb8c7d556a105441a4d521a (diff) | |
| download | ghdl-8302a267024b998214904269e116fdfc12e45b32.tar.gz ghdl-8302a267024b998214904269e116fdfc12e45b32.tar.bz2 ghdl-8302a267024b998214904269e116fdfc12e45b32.zip | |
Tentative fix for issue43.
| -rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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; |