diff options
Diffstat (limited to 'src/vhdl/iir_chains.ads')
| -rw-r--r-- | src/vhdl/iir_chains.ads | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/iir_chains.ads b/src/vhdl/iir_chains.ads index 85746f154..fc9da1136 100644 --- a/src/vhdl/iir_chains.ads +++ b/src/vhdl/iir_chains.ads @@ -18,6 +18,7 @@ with Iirs; use Iirs; with Iir_Chain_Handling; pragma Elaborate_All (Iir_Chain_Handling); +with Nodes_Meta; package Iir_Chains is -- Chains are simply linked list of iirs. @@ -84,6 +85,10 @@ package Iir_Chains is -- Not very efficient since O(N). function Get_Chain_Length (First : Iir) return Natural; + -- Append CHAIN to the chain FIELD of node N. Not very efficient. + procedure Append_Chain + (N : Iir; Field : Nodes_Meta.Fields_Enum; Chain : Iir); + -- These two subprograms can be used to build a sub-chain. -- FIRST and LAST designates respectively the first and last element of -- the sub-chain. |