diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-09-26 20:40:24 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-09-27 02:27:51 +0200 |
| commit | f44b3c78755e01a9bd7fd9b639a08711b7c52660 (patch) | |
| tree | c3bd192c03ce9d5403288c330e21e8c7811a08a9 /src/vhdl/iirs.ads | |
| parent | 080c7dd9329aa90d4d797f638bb34312487cd496 (diff) | |
| download | ghdl-f44b3c78755e01a9bd7fd9b639a08711b7c52660.tar.gz ghdl-f44b3c78755e01a9bd7fd9b639a08711b7c52660.tar.bz2 ghdl-f44b3c78755e01a9bd7fd9b639a08711b7c52660.zip | |
vhdl08: more support for interface subprograms.
Diffstat (limited to 'src/vhdl/iirs.ads')
| -rw-r--r-- | src/vhdl/iirs.ads | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/vhdl/iirs.ads b/src/vhdl/iirs.ads index 75d569377..8f2d21c29 100644 --- a/src/vhdl/iirs.ads +++ b/src/vhdl/iirs.ads @@ -2221,6 +2221,11 @@ package Iirs is -- -- Get/Set_Base_Type (Field4) -- + -- Set only during analysis of association: type associated with this + -- interface, so that references to this interface can use the actual + -- type. + -- Get/Set_Associated_Type (Field5) + -- -- Get/Set_Type_Staticness (State1) -- -- Get/Set_Resolved_Flag (Flag1) @@ -6072,6 +6077,10 @@ package Iirs is function Get_Type_Declarator (Def : Iir) return Iir; procedure Set_Type_Declarator (Def : Iir; Decl : Iir); + -- Field: Field5 Ref + function Get_Associated_Type (Def : Iir) return Iir; + procedure Set_Associated_Type (Def : Iir; Atype : Iir); + -- Field: Field2 (uc) function Get_Enumeration_Literal_List (Target : Iir) return Iir_List; procedure Set_Enumeration_Literal_List (Target : Iir; List : Iir_List); |