diff options
Diffstat (limited to 'src/synth/synth-environment.adb')
-rw-r--r-- | src/synth/synth-environment.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/synth/synth-environment.adb b/src/synth/synth-environment.adb index 4e789ef05..db76e286a 100644 --- a/src/synth/synth-environment.adb +++ b/src/synth/synth-environment.adb @@ -848,7 +848,11 @@ package body Synth.Environment is then Warning_Msg_Synth (+Wire_Rec.Decl, "no assignment for %n", +Wire_Rec.Decl); - Value := Build_Const_Z (Ctxt, Get_Width (Wire_Rec.Gate)); + if Get_Id (Gate_Inst) = Gates.Id_Iinout then + Value := Get_Input_Net (Gate_Inst, 1); + else + Value := Build_Const_Z (Ctxt, Get_Width (Wire_Rec.Gate)); + end if; else return; end if; |