aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/synth-stmts.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/synth/synth-stmts.adb')
-rw-r--r--src/synth/synth-stmts.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 66ab2900b..6c616af69 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -1504,7 +1504,7 @@ package body Synth.Stmts is
Phi_Assign (Build_Context, C.W_Ret,
Build_Const_UB32 (Build_Context, 0, 1), 0);
- Decls.Synth_Declarations (C.Inst, Get_Declaration_Chain (Bod));
+ Decls.Synth_Declarations (C.Inst, Get_Declaration_Chain (Bod), True);
Synth_Sequential_Statements
(C, Get_Sequential_Statement_Chain (Bod));