diff options
Diffstat (limited to 'src/synth/synth-decls.adb')
| -rw-r--r-- | src/synth/synth-decls.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/synth/synth-decls.adb b/src/synth/synth-decls.adb index 89d3b3ad8..f0ccf71db 100644 --- a/src/synth/synth-decls.adb +++ b/src/synth/synth-decls.adb @@ -748,7 +748,7 @@ package body Synth.Decls is Create_Wire_Object (Syn_Inst, Wire_Variable, Decl); Create_Var_Wire (Syn_Inst, Decl, Init); if Is_Subprg then - Phi_Assign + Phi_Assign_Net (Get_Build (Syn_Inst), Get_Value (Syn_Inst, Decl).Val.W, Get_Net (Init), 0); end if; @@ -787,7 +787,7 @@ package body Synth.Decls is Base.Val.N, Off.Net_Off, Typ.W), Typ); else - Res := Create_Value_Alias (Base.Val, Off, Typ); + Res := Create_Value_Alias (Base, Off, Typ); end if; if Obj_Typ /= null then Res := Synth_Subtype_Conversion (Res, Obj_Typ, True, Decl); |