diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-01-11 06:49:03 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-01-11 12:51:48 +0100 |
commit | 1f5df6e6262b6f01ca51b9bd1fefe9d8e2ba7308 (patch) | |
tree | 27424c20ba3a380e72b263339f1029fb4fc45934 /src/vhdl/translate/trans-chap2.adb | |
parent | ec3ef23d5ec3529406d8102f0e2792e957c4ba67 (diff) | |
download | ghdl-1f5df6e6262b6f01ca51b9bd1fefe9d8e2ba7308.tar.gz ghdl-1f5df6e6262b6f01ca51b9bd1fefe9d8e2ba7308.tar.bz2 ghdl-1f5df6e6262b6f01ca51b9bd1fefe9d8e2ba7308.zip |
translate: fix bug wrt complex variable while unnesting subprograms.
Diffstat (limited to 'src/vhdl/translate/trans-chap2.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index 4260c6d1d..672aeb1f9 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -456,7 +456,7 @@ package body Trans.Chap2 is if Has_Nested or else Has_Suspend then -- Unnest subprograms. -- Create an instance for the local declarations. - Push_Frame_Factory (Info.Subprg_Frame_Scope'Access); + Push_Frame_Factory (Info.Subprg_Frame_Scope'Access, Has_Suspend); Add_Subprg_Instance_Field (Upframe_Field, Upframe_Scope); if Info.Subprg_Params_Ptr /= O_Tnode_Null then |