diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-10-01 07:26:51 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-10-01 07:26:51 +0200 |
| commit | 5aa2650481c681e40f5d20997cd90f56ae0cdcd0 (patch) | |
| tree | a3887b81c40e02e673e60d3d5795d03ae2bfc930 /src/vhdl/std_package.adb | |
| parent | fa1727c1ce8cf56069e853c780adc39beee8fc71 (diff) | |
| download | ghdl-5aa2650481c681e40f5d20997cd90f56ae0cdcd0.tar.gz ghdl-5aa2650481c681e40f5d20997cd90f56ae0cdcd0.tar.bz2 ghdl-5aa2650481c681e40f5d20997cd90f56ae0cdcd0.zip | |
Revive node_gc, avoid copy of enumeration in enumeration range.
Diffstat (limited to 'src/vhdl/std_package.adb')
| -rw-r--r-- | src/vhdl/std_package.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/std_package.adb b/src/vhdl/std_package.adb index 8143d9c63..93cee8045 100644 --- a/src/vhdl/std_package.adb +++ b/src/vhdl/std_package.adb @@ -353,6 +353,9 @@ package body Std_Package is Set_Type_Staticness (Def, None); Set_Type_Definition (Decl, Def); Set_Type_Declarator (Def, Decl); + + Set_Chain (Decl, Wildcard_Type_Declaration_Chain); + Wildcard_Type_Declaration_Chain := Decl; end Create_Wildcard_Type; begin @@ -1209,6 +1212,7 @@ package body Std_Package is -- Wilcard types. -- Create the declaration and give them meaningful (and invalid) names -- so that error messages are clear for the user. + Wildcard_Type_Declaration_Chain := Null_Iir; Create_Wildcard_Type (Wildcard_Any_Type, "any type"); Create_Wildcard_Type (Wildcard_Any_Aggregate_Type, "any aggregate type"); Create_Wildcard_Type (Wildcard_Any_String_Type, "any string type"); |