diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-04-10 20:57:32 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-04-10 20:57:32 +0200 |
| commit | 012e06392b34ce18aa36539665195ac49ec4a5bb (patch) | |
| tree | a03371a3740b7a06f34551f11a3375fd63f236ec /src/vhdl/translate | |
| parent | 007c91eb27746b891aa41a3d2948736649366a7b (diff) | |
| download | ghdl-012e06392b34ce18aa36539665195ac49ec4a5bb.tar.gz ghdl-012e06392b34ce18aa36539665195ac49ec4a5bb.tar.bz2 ghdl-012e06392b34ce18aa36539665195ac49ec4a5bb.zip | |
trans-chap9.adb: fix out of scope reference.
Diffstat (limited to 'src/vhdl/translate')
| -rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index 4a41c26aa..493500548 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -568,6 +568,9 @@ package body Trans.Chap9 is -- New state vector. New_Var_Decl (Var_Nvec, Wki_Res, O_Storage_Local, Info.Psl_Vect_Type); + -- Flag for active edge from start state (assertion "started" flag). + New_Var_Decl (Var_SFlag, Wki_Flag, O_Storage_Local, Ghdl_Bool_Type); + -- Initialize the new state vector. Start_Declare_Stmt; New_Var_Decl (Var_I, Wki_I, O_Storage_Local, Ghdl_Index_Type); @@ -598,8 +601,6 @@ package body Trans.Chap9 is New_Lit (Std_Boolean_False_Node)); Inc_Var (Var_I); Finish_Loop_Stmt (Label); - -- Flag for active edge from start state (assertion "started" flag) - New_Var_Decl (Var_SFlag, Wki_Flag, O_Storage_Local, Ghdl_Bool_Type); Finish_Declare_Stmt; -- Global 'if' statement for the clock. |