diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-11-30 21:25:51 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-11-30 21:25:51 +0100 |
| commit | d74e7a232bb4778ac2da6fbb27735bafe4ca9f81 (patch) | |
| tree | f920cf94e7448d68d4541db7b64cc32eb182ab78 /src/vhdl/vhdl-nodes.ads | |
| parent | b89056bf8498b2fb2021f4776d1aa69f10f15e8c (diff) | |
| download | ghdl-d74e7a232bb4778ac2da6fbb27735bafe4ca9f81.tar.gz ghdl-d74e7a232bb4778ac2da6fbb27735bafe4ca9f81.tar.bz2 ghdl-d74e7a232bb4778ac2da6fbb27735bafe4ca9f81.zip | |
vhdl-nodes: add Get/Set_Associated_Subprogram.
Diffstat (limited to 'src/vhdl/vhdl-nodes.ads')
| -rw-r--r-- | src/vhdl/vhdl-nodes.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index a82fc46c1..529790b9a 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -1782,6 +1782,8 @@ package Vhdl.Nodes is -- -- Get/Set_Subprogram_Depth (Field10) -- + -- Get/Set_Associated_Subprogram (Field6) + -- -- Get/Set_Seen_Flag (Flag1) -- -- Only for Iir_Kind_Interface_Function_Declaration: @@ -8262,6 +8264,10 @@ package Vhdl.Nodes is procedure Set_Default_Subprogram (Inter : Iir; Subprg : Iir); -- Field: Field6 Ref + function Get_Associated_Subprogram (Inter : Iir) return Iir; + procedure Set_Associated_Subprogram (Inter : Iir; Subprg : Iir); + + -- Field: Field6 Ref function Get_Subprogram_Specification (Target : Iir) return Iir; procedure Set_Subprogram_Specification (Target : Iir; Spec : Iir); |