diff options
Diffstat (limited to 'src/synth/netlists-dump.adb')
| -rw-r--r-- | src/synth/netlists-dump.adb | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index ad13b1ee8..dc72f80e5 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -310,12 +310,14 @@ package body Netlists.Dump is case Get_Id (Inst) is when Id_Signal | Id_Output => + -- Cut loops. return False; when others => - return not Is_Self_Instance (Inst) - and then Get_Nbr_Outputs (Inst) = 1 - and then Has_One_Connection (Get_Output (Inst, 0)); + null; end case; + return not Is_Self_Instance (Inst) + and then Get_Nbr_Outputs (Inst) = 1 + and then Has_One_Connection (Get_Output (Inst, 0)); end Can_Inline; procedure Disp_Driver (Drv : Net) @@ -490,7 +492,11 @@ package body Netlists.Dump is Put_Indent (Indent + 1); Dump_Name (Get_Output_Desc (M, Get_Port_Idx (I)).Name); Put (" := "); - Disp_Net_Name (Get_Driver (I)); + if False then + Disp_Driver (Get_Driver (I)); + else + Disp_Net_Name (Get_Driver (I)); + end if; New_Line; end loop; end if; |