diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-12-04 07:38:48 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-12-04 07:38:48 +0100 |
| commit | 4bc83fa410542b3c6a9c122d1051dfdcd9a2daa1 (patch) | |
| tree | 920065c959b1c7ce076366fabc8e591f2e2010e7 | |
| parent | f342fd4b064953b35ca94808bda7670544ef2217 (diff) | |
| download | ghdl-4bc83fa410542b3c6a9c122d1051dfdcd9a2daa1.tar.gz ghdl-4bc83fa410542b3c6a9c122d1051dfdcd9a2daa1.tar.bz2 ghdl-4bc83fa410542b3c6a9c122d1051dfdcd9a2daa1.zip | |
netlists-disp_vhdl: handle unconnected outputs. Fix #1050
| -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; |