diff options
| author | gingold | 2008-08-31 02:22:57 +0000 |
|---|---|---|
| committer | gingold | 2008-08-31 02:22:57 +0000 |
| commit | b42e36e23f23a0d27e7b08d6cb4461237720de3b (patch) | |
| tree | 05c59df8138658b9f811510264c32bb753123bc0 /std_package.adb | |
| parent | 1d5464fd378387a0e17021af24065784ea66bb47 (diff) | |
| download | ghdl-b42e36e23f23a0d27e7b08d6cb4461237720de3b.tar.gz ghdl-b42e36e23f23a0d27e7b08d6cb4461237720de3b.tar.bz2 ghdl-b42e36e23f23a0d27e7b08d6cb4461237720de3b.zip | |
Create package options from flags to avoid circular elaboration
Diffstat (limited to 'std_package.adb')
| -rw-r--r-- | std_package.adb | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/std_package.adb b/std_package.adb index 074a75d..f18582e 100644 --- a/std_package.adb +++ b/std_package.adb @@ -20,7 +20,7 @@ with Files_Map; with Name_Table; with Str_Table; with Std_Names; use Std_Names; -with Flags; +with Flags; use Flags; with Iirs_Utils; with Sem; with Sem_Decls; @@ -346,7 +346,7 @@ package body Std_Package is (Get_Std_Character (I), Character_Type_Definition); end loop; El := Create_Std_Literal (Name_Del, Character_Type_Definition); - if Flags.Vhdl_Std /= Vhdl_87 then + if Vhdl_Std /= Vhdl_87 then for I in Name_C128 .. Name_C159 loop El := Create_Std_Literal (I, Character_Type_Definition); end loop; @@ -724,7 +724,7 @@ package body Std_Package is Time_Hr_Unit: Iir_Unit_Declaration; Constraint : Iir_Range_Expression; begin - if Flags.Vhdl_Std >= Vhdl_93c then + if Vhdl_Std >= Vhdl_93c then Time_Staticness := Globally; else Time_Staticness := Locally; @@ -813,7 +813,7 @@ package body Std_Package is -- VHDL93 -- subtype DELAY_LENGTH is TIME range 0 to TIME'HIGH - if Flags.Vhdl_Std >= Vhdl_93c then + if Vhdl_Std >= Vhdl_93c then Delay_Length_Subtype_Definition := Create_Std_Iir (Iir_Kind_Physical_Subtype_Definition); Set_Type_Mark (Delay_Length_Subtype_Definition, @@ -855,12 +855,12 @@ package body Std_Package is Function_Now := Create_Std_Decl (Iir_Kind_Implicit_Function_Declaration); Set_Std_Identifier (Function_Now, Std_Names.Name_Now); - if Flags.Vhdl_Std = Vhdl_87 then + if Vhdl_Std = Vhdl_87 then Set_Return_Type (Function_Now, Time_Subtype_Definition); else Set_Return_Type (Function_Now, Delay_Length_Subtype_Definition); end if; - if Flags.Vhdl_Std = Vhdl_02 then + if Vhdl_Std = Vhdl_02 then Set_Pure_Flag (Function_Now, True); else Set_Pure_Flag (Function_Now, False); @@ -872,7 +872,7 @@ package body Std_Package is -- VHDL93: -- type file_open_kind is (read_mode, write_mode, append_mode); - if Flags.Vhdl_Std >= Vhdl_93c then + if Vhdl_Std >= Vhdl_93c then File_Open_Kind_Type_Definition := Create_Std_Iir (Iir_Kind_Enumeration_Type_Definition); Set_Base_Type (File_Open_Kind_Type_Definition, @@ -912,7 +912,7 @@ package body Std_Package is -- VHDL93: -- type file_open_status is -- (open_ok, status_error, name_error, mode_error); - if Flags.Vhdl_Std >= Vhdl_93c then + if Vhdl_Std >= Vhdl_93c then File_Open_Status_Type_Definition := Create_Std_Iir (Iir_Kind_Enumeration_Type_Definition); Set_Base_Type (File_Open_Status_Type_Definition, @@ -954,7 +954,7 @@ package body Std_Package is -- VHDL93: -- attribute FOREIGN: string; - if Flags.Vhdl_Std >= Vhdl_93c then + if Vhdl_Std >= Vhdl_93c then Foreign_Attribute := Create_Std_Decl (Iir_Kind_Attribute_Declaration); Set_Std_Identifier (Foreign_Attribute, Name_Foreign); Set_Type (Foreign_Attribute, String_Type_Definition); |