netlists: remove get_parent renaming for input.

5 files changed, 5 insertions, 6 deletions

diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb
index 6bf6701a5..154f9f361 100644
--- a/src/synth/netlists-disp_vhdl.adb
+++ b/src/synth/netlists-disp_vhdl.adb
@@ -256,7 +256,7 @@ package body Netlists.Disp_Vhdl is
          begin
             I := Get_First_Sink (O);
             if I /= No_Input then
-               O_Inst := Get_Parent (I);
+               O_Inst := Get_Input_Parent (I);
             else
                O_Inst := No_Instance;
             end if;
@@ -410,7 +410,7 @@ package body Netlists.Disp_Vhdl is
    begin
       I := Get_First_Sink (Get_Output (Inst, 0));
       while I /= No_Input loop
-         if Need_Name (Get_Parent (I)) then
+         if Need_Name (Get_Input_Parent (I)) then
             return True;
          end if;
          I := Get_Next_Sink (I);
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb
index 7b7c6615c..effb5949d 100644
--- a/src/synth/netlists-dump.adb
+++ b/src/synth/netlists-dump.adb
@@ -81,7 +81,7 @@ package body Netlists.Dump is
 
    procedure Dump_Input_Name (I : Input; With_Id : Boolean := False)
    is
-      Inst : constant Instance := Get_Parent (I);
+      Inst : constant Instance := Get_Input_Parent (I);
       Idx : constant Port_Idx := Get_Port_Idx (I);
    begin
       Dump_Name (Get_Instance_Name (Inst));
diff --git a/src/synth/netlists.adb b/src/synth/netlists.adb
index c22302716..6597be8ed 100644
--- a/src/synth/netlists.adb
+++ b/src/synth/netlists.adb
@@ -572,7 +572,7 @@ package body Netlists is
    function Get_Port_Idx (I : Input) return Port_Idx
    is
       pragma Assert (Is_Valid (I));
-      Parent : constant Instance := Get_Parent (I);
+      Parent : constant Instance := Get_Input_Parent (I);
    begin
       return Port_Idx (I - Instances_Table.Table (Parent).First_Input);
    end Get_Port_Idx;
diff --git a/src/synth/netlists.ads b/src/synth/netlists.ads
index def0e12b8..18d0a7b83 100644
--- a/src/synth/netlists.ads
+++ b/src/synth/netlists.ads
@@ -257,7 +257,6 @@ package Netlists is
 
    --  Input
    function Get_Input_Parent (I : Input) return Instance;
-   function Get_Parent (I : Input) return Instance renames Get_Input_Parent;
    function Get_Port_Idx (I : Input) return Port_Idx;
    function Get_Driver (I : Input) return Net;
    function Get_Next_Sink (I : Input) return Input;
diff --git a/src/synth/synth-inference.adb b/src/synth/synth-inference.adb
index 0b7327512..3dd919404 100644
--- a/src/synth/synth-inference.adb
+++ b/src/synth/synth-inference.adb
@@ -284,7 +284,7 @@ package body Synth.Inference is
             end if;
 
             --  The parent must be a mux (it's a chain of muxes).
-            Mux := Get_Parent (Get_First_Sink (Last_Out));
+            Mux := Get_Input_Parent (Get_First_Sink (Last_Out));
             pragma Assert (Get_Id (Mux) = Id_Mux2);
 
             --  Extract the reset condition and the reset value.