diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-17 20:17:38 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-17 20:17:38 +0100 |
| commit | 031e1aa1a3d1315fe3cf6c3de5eab380a9e3c4b8 (patch) | |
| tree | 9f359013eeef5f65077490255649c336d0a37c76 | |
| parent | 6c6a053898b751112e268907b164e970b0a6154e (diff) | |
| download | ghdl-031e1aa1a3d1315fe3cf6c3de5eab380a9e3c4b8.tar.gz ghdl-031e1aa1a3d1315fe3cf6c3de5eab380a9e3c4b8.tar.bz2 ghdl-031e1aa1a3d1315fe3cf6c3de5eab380a9e3c4b8.zip | |
Fix missing open_temp/close_temp for selected sequential signal assignment.
Fix #461
| -rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index 734559e81..85b3aaa58 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -4375,11 +4375,12 @@ package body Trans.Chap8 is end record; procedure Case_Association_Cb - (Assoc : Iir; Handler : in out Selected_Assignment_Handler) - is + (Assoc : Iir; Handler : in out Selected_Assignment_Handler) is begin + Open_Temp; Translate_Waveform_Assignment (Handler.Stmt, Handler.Mechanism, Assoc, Handler.Targ, Handler.Drv); + Close_Temp; end Case_Association_Cb; procedure Translate_Selected_Waveform_Assignment_Statement (Stmt : Iir) |