diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-11-20 02:48:14 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-11-20 02:48:14 +0100 |
| commit | 232f0d5f10ecd3b99774d3dda6a7ebf914b2a2e6 (patch) | |
| tree | ab7923ed8aea50a17d29b8a8adb6d63c3483cab2 | |
| parent | 606b07d2491b9af620d95cb24f193f3533cfb386 (diff) | |
| download | ghdl-232f0d5f10ecd3b99774d3dda6a7ebf914b2a2e6.tar.gz ghdl-232f0d5f10ecd3b99774d3dda6a7ebf914b2a2e6.tar.bz2 ghdl-232f0d5f10ecd3b99774d3dda6a7ebf914b2a2e6.zip | |
trans-chap9: fix invalid generation of ortho code.
| -rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index d04b240ec..ed3699908 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -513,10 +513,10 @@ package body Trans.Chap9 is pragma Assert (Integer (S_Num) = Info.Psl_Vect_Len - 1); Start_If_Stmt (S_Blk, - New_Value - (New_Indexed_Element (New_Obj (Var_Nvec), - New_Lit (New_Index_Lit - (Unsigned_64 (S_Num)))))); + New_Value (New_Indexed_Element (New_Obj (Var_Nvec), + New_Lit (New_Index_Lit + (Unsigned_64 (S_Num)))))); + Open_Temp; case Get_Kind (Stmt) is when Iir_Kind_Psl_Assert_Statement => Chap8.Translate_Report @@ -529,6 +529,7 @@ package body Trans.Chap9 is when others => Error_Kind ("Translate_Psl_Directive_Statement", Stmt); end case; + Close_Temp; Finish_If_Stmt (S_Blk); -- Assign state vector. |