From 4bc83fa410542b3c6a9c122d1051dfdcd9a2daa1 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 4 Dec 2019 07:38:48 +0100 Subject: netlists-disp_vhdl: handle unconnected outputs. Fix #1050 --- src/synth/netlists-disp_vhdl.adb | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'src') 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; -- cgit v1.2.3