diff options
| -rw-r--r-- | src/synth/synth-expr.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 0f954eb0d..25efc8a56 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -35,6 +35,7 @@ with Synth.Errors; use Synth.Errors; with Synth.Types; use Synth.Types; with Synth.Stmts; use Synth.Stmts; with Synth.Decls; +with Synth.Environment; use Synth.Environment; with Netlists.Gates; use Netlists.Gates; with Netlists.Builders; use Netlists.Builders; @@ -1477,6 +1478,8 @@ package body Synth.Expr is Synth_Subprogram_Association (Subprg_Inst, Syn_Inst, Inter_Chain, Assoc_Chain); + Push_Phi; + Decls.Synth_Declarations (Subprg_Inst, Get_Declaration_Chain (Bod)); Synth_Sequential_Statements @@ -1484,6 +1487,8 @@ package body Synth.Expr is Res := Subprg_Inst.Return_Value; + Pop_And_Merge_Phi (Build_Context, Bod); + Free_Instance (Subprg_Inst); Areapools.Release (M, Instance_Pool.all); |