diff options
Diffstat (limited to 'src/synth/synth-stmts.adb')
| -rw-r--r-- | src/synth/synth-stmts.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index 227ae00b3..cd9bee0d7 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -1794,8 +1794,12 @@ package body Synth.Stmts is while In_Range (It_Rng.Drange, Val.Scal) loop Synth_Sequential_Statements (C, Stmts); + Update_Index (It_Rng.Drange, Val.Scal); Loop_Control_Update (C); + + -- Constant exit. + exit when Get_Current_Value (null, C.W_En) = Get_Inst_Bit0 (C.Inst); end loop; Loop_Control_Finish (C); |