diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-10-22 13:15:33 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-10-22 13:15:33 +0200 |
| commit | e00d31baa0e7190b959cfb03df03b260e402da05 (patch) | |
| tree | 9ed433cdd9d38d6432e3dc016d1b942fbf97519c /std_package.adb | |
| parent | 0e199cbea1070c016d29348cd659b9e6ca688afb (diff) | |
| download | ghdl-e00d31baa0e7190b959cfb03df03b260e402da05.tar.gz ghdl-e00d31baa0e7190b959cfb03df03b260e402da05.tar.bz2 ghdl-e00d31baa0e7190b959cfb03df03b260e402da05.zip | |
Rework for support of generic packages.
Diffstat (limited to 'std_package.adb')
| -rw-r--r-- | std_package.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/std_package.adb b/std_package.adb index 5fedc8bf9..ea2a6916f 100644 --- a/std_package.adb +++ b/std_package.adb @@ -268,10 +268,12 @@ package body Std_Package is Set_Base_Type (Def, Def); Index_List := Create_Iir_List; + Set_Index_Subtype_Definition_List (Def, Index_List); Set_Index_Subtype_List (Def, Index_List); Append_Element (Index_List, Index); Set_Element_Subtype_Indication (Def, Element); + Set_Element_Subtype (Def, Get_Type (El_Decl)); Set_Type_Staticness (Def, None); Set_Signal_Type_Flag (Def, True); Set_Has_Signal_Flag (Def, not Flags.Flag_Whole_Analyze); @@ -1000,8 +1002,12 @@ package body Std_Package is Index_List := Create_Iir_List; Append_Element (Index_List, Create_Std_Type_Mark (Positive_Subtype_Declaration)); + Set_Index_Subtype_Definition_List (String_Type_Definition, + Index_List); Set_Index_Subtype_List (String_Type_Definition, Index_List); Set_Element_Subtype_Indication (String_Type_Definition, Element); + Set_Element_Subtype (String_Type_Definition, + Character_Type_Definition); Set_Type_Staticness (String_Type_Definition, None); Set_Signal_Type_Flag (String_Type_Definition, True); Set_Has_Signal_Flag (String_Type_Definition, |