diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-09-16 08:11:37 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-09-16 08:11:37 +0200 |
commit | f9ea178139736775d8be7f8880cb532f56430b49 (patch) | |
tree | 3738c3a7f0313fcfa0e97dd624a4786abe64f927 /src/vhdl/iirs.ads | |
parent | 39893478c7a6e35363dbd0ba4de1c5de430d68ce (diff) | |
download | ghdl-f9ea178139736775d8be7f8880cb532f56430b49.tar.gz ghdl-f9ea178139736775d8be7f8880cb532f56430b49.tar.bz2 ghdl-f9ea178139736775d8be7f8880cb532f56430b49.zip |
Handle macro-expansion of instantiation of declaration with interface type.
Diffstat (limited to 'src/vhdl/iirs.ads')
-rw-r--r-- | src/vhdl/iirs.ads | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/vhdl/iirs.ads b/src/vhdl/iirs.ads index 91549c99a..114c240b0 100644 --- a/src/vhdl/iirs.ads +++ b/src/vhdl/iirs.ads @@ -847,8 +847,12 @@ package Iirs is -- -- Get/Set_Package_Header (Field6) -- + -- Get/Set_Package_Origin (Field7) + -- -- Get/Set_Need_Body (Flag1) -- + -- Get/Set_Macro_Expanded_Flag (Flag2) + -- -- Get/Set_Visible_Flag (Flag4) -- -- Get/Set_End_Has_Reserved_Id (Flag8) @@ -5743,6 +5747,14 @@ package Iirs is function Get_Need_Body (Decl : Iir_Package_Declaration) return Boolean; procedure Set_Need_Body (Decl : Iir_Package_Declaration; Flag : Boolean); + -- True for uninstantiated package that will be macro-expanded for + -- simulation. The macro-expansion is done by canon, so controlled by + -- back-end. The reason of macro-expansion is presence of interface + -- type. + -- Field: Flag2 + function Get_Macro_Expanded_Flag (Decl : Iir) return Boolean; + procedure Set_Macro_Expanded_Flag (Decl : Iir; Flag : Boolean); + -- Field: Field5 function Get_Block_Configuration (Target : Iir) return Iir; procedure Set_Block_Configuration (Target : Iir; Block : Iir); @@ -6174,6 +6186,10 @@ package Iirs is function Get_Process_Origin (Proc : Iir) return Iir; procedure Set_Process_Origin (Proc : Iir; Orig : Iir); + -- Field: Field7 + function Get_Package_Origin (Pkg : Iir) return Iir; + procedure Set_Package_Origin (Pkg : Iir; Orig : Iir); + -- Field: Field5 function Get_Condition_Clause (Wait : Iir_Wait_Statement) return Iir; procedure Set_Condition_Clause (Wait : Iir_Wait_Statement; Cond : Iir); |