diff options
| author | Tristan Gingold | 2015-01-22 05:08:02 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2015-01-22 05:08:02 +0100 |
| commit | 34e81c81b0a32d0974617672f2087fceeaba80a0 (patch) | |
| tree | f60ca2a9ee46f0eebf6f50633410337024149429 | |
| parent | 6caa543e9416d3a8bfc50b6f6da4b502a8069029 (diff) | |
| download | ghdl-34e81c81b0a32d0974617672f2087fceeaba80a0.tar.gz ghdl-34e81c81b0a32d0974617672f2087fceeaba80a0.tar.bz2 ghdl-34e81c81b0a32d0974617672f2087fceeaba80a0.zip | |
Use 64 bits for universal integer type.
| -rw-r--r-- | src/vhdl/std_package.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/vhdl/std_package.adb b/src/vhdl/std_package.adb index aad5262..cc45da9 100644 --- a/src/vhdl/std_package.adb +++ b/src/vhdl/std_package.adb @@ -226,9 +226,8 @@ package body Std_Package is Type_Decl : Iir; Subtype_Definition : out Iir; Subtype_Decl : out Iir; - Force_64 : Boolean := False) + Is_64 : Boolean) is - Is_64 : constant Boolean := Force_64 or Flags.Flag_Integer_64; Constraint : Iir; begin Subtype_Definition := @@ -541,7 +540,7 @@ package body Std_Package is Universal_Integer_Type_Declaration, Universal_Integer_Subtype_Definition, Universal_Integer_Subtype_Declaration, - False); + Flags.Flag_Time_64 or Flags.Flag_Integer_64); Add_Decl (Universal_Integer_Subtype_Declaration); Set_Subtype_Definition (Universal_Integer_Type_Declaration, @@ -614,7 +613,7 @@ package body Std_Package is Convertible_Integer_Type_Declaration, Convertible_Integer_Subtype_Definition, Convertible_Integer_Subtype_Declaration, - False); + Flags.Flag_Time_64 or Flags.Flag_Integer_64); -- Not added in std.standard. end; @@ -652,7 +651,8 @@ package body Std_Package is Create_Integer_Subtype (Integer_Type_Definition, Integer_Type_Declaration, Integer_Subtype_Definition, - Integer_Subtype_Declaration); + Integer_Subtype_Declaration, + Flags.Flag_Integer_64); Add_Decl (Integer_Subtype_Declaration); end; |