diff options
| -rw-r--r-- | src/synth/netlists-dump.adb | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index 520210ff0..b3effff05 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -365,7 +365,10 @@ package body Netlists.Dump is procedure Disp_Instance_Assign (Inst : Instance; Indent : Natural := 0); - function Can_Inline (Inst : Instance) return Boolean is + function Can_Inline (Inst : Instance) return Boolean + is + O : Net; + Inp : Input; begin case Get_Id (Inst) is when Id_Signal @@ -375,9 +378,22 @@ package body Netlists.Dump is when others => 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)); + if Is_Self_Instance (Inst) then + return False; + end if; + if Get_Nbr_Outputs (Inst) /= 1 then + return False; + end if; + O := Get_Output (Inst, 0); + Inp := Get_First_Sink (O); + if Inp = No_Input or else Get_Next_Sink (Inp) /= No_Input then + return False; + end if; + if Is_Self_Instance (Get_Input_Parent (Inp)) then + return False; + end if; + + return True; end Can_Inline; procedure Disp_Driver (Drv : Net; Indent : Natural) |