diff options
| -rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index e99974431..4095ece78 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -236,17 +236,17 @@ package body Netlists.Disp_Vhdl is O_Inst : Instance; begin I := Get_First_Sink (O); - if I /= No_Input then - O_Inst := Get_Input_Parent (I); - else - O_Inst := No_Instance; - end if; - if O_Inst /= No_Instance - and then Get_Id (O_Inst) = Id_Port - then - Disp_Net_Name (Get_Output (O_Inst, 0)); + if I = No_Input then + Put ("open"); else - Disp_Net_Name (O); + O_Inst := Get_Input_Parent (I); + if O_Inst /= No_Instance + and then Get_Id (O_Inst) = Id_Port + then + Disp_Net_Name (Get_Output (O_Inst, 0)); + else + Disp_Net_Name (O); + end if; end if; end; end loop; |