aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/netlists-utils.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/synth/netlists-utils.adb')
-rw-r--r--src/synth/netlists-utils.adb6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/synth/netlists-utils.adb b/src/synth/netlists-utils.adb
index d3861215e..722cafc1a 100644
--- a/src/synth/netlists-utils.adb
+++ b/src/synth/netlists-utils.adb
@@ -103,6 +103,12 @@ package body Netlists.Utils is
return Get_Driver (Get_Input (Inst, Idx));
end Get_Input_Net;
+ function Get_Input_Instance (Inst : Instance; Idx : Port_Idx)
+ return Instance is
+ begin
+ return Get_Net_Parent (Get_Input_Net (Inst, Idx));
+ end Get_Input_Instance;
+
function Is_Const_Module (Id : Module_Id) return Boolean is
begin
case Id is