diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-06-28 07:32:40 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-06-28 07:32:40 +0200 |
commit | 9652c2bdfe75e90784910a0dd7d0f03dd97e0067 (patch) | |
tree | 9437c7411fab2e65276564a105aa2b7be03faf68 /src/synth/netlists.adb | |
parent | 05d5d620dc14192f0e9538a012b0b1b19508f0cd (diff) | |
download | ghdl-9652c2bdfe75e90784910a0dd7d0f03dd97e0067.tar.gz ghdl-9652c2bdfe75e90784910a0dd7d0f03dd97e0067.tar.bz2 ghdl-9652c2bdfe75e90784910a0dd7d0f03dd97e0067.zip |
synth: add get_input_net helper.
Diffstat (limited to 'src/synth/netlists.adb')
-rw-r--r-- | src/synth/netlists.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/synth/netlists.adb b/src/synth/netlists.adb index 6e84e2116..af1c149f2 100644 --- a/src/synth/netlists.adb +++ b/src/synth/netlists.adb @@ -461,6 +461,11 @@ package body Netlists is return Instances_Table.Table (Inst).First_Input + Input (Idx); end Get_Input; + function Get_Input_Net (Inst : Instance; Idx : Port_Idx) return Net is + begin + return Get_Driver (Get_Input (Inst, Idx)); + end Get_Input_Net; + -- Nets function Is_Valid (N : Net) return Boolean is |