diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-01-12 19:01:59 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-01-12 19:01:59 +0100 |
| commit | 9e5342c2299a14c39d04974d6a7a098fd01173fe (patch) | |
| tree | 5b9f0c0b81a33740305c15efd949e32441f80e2d /src/vhdl | |
| parent | 552d366f8ca84768a729d7295c4e5e5177a0a3cd (diff) | |
| download | ghdl-9e5342c2299a14c39d04974d6a7a098fd01173fe.tar.gz ghdl-9e5342c2299a14c39d04974d6a7a098fd01173fe.tar.bz2 ghdl-9e5342c2299a14c39d04974d6a7a098fd01173fe.zip | |
grt: improve --disp-signals-table output.
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/std_package.adb | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/src/vhdl/std_package.adb b/src/vhdl/std_package.adb index 54ec4e06e..aad5262d7 100644 --- a/src/vhdl/std_package.adb +++ b/src/vhdl/std_package.adb @@ -225,17 +225,19 @@ package body Std_Package is procedure Create_Integer_Subtype (Type_Definition : Iir; Type_Decl : Iir; Subtype_Definition : out Iir; - Subtype_Decl : out Iir) + Subtype_Decl : out Iir; + Force_64 : Boolean := False) is + Is_64 : constant Boolean := Force_64 or Flags.Flag_Integer_64; Constraint : Iir; begin Subtype_Definition := Create_Std_Iir (Iir_Kind_Integer_Subtype_Definition); Set_Base_Type (Subtype_Definition, Type_Definition); Constraint := Create_Std_Range_Expr - (Create_Std_Integer (Low_Bound (Flags.Flag_Integer_64), + (Create_Std_Integer (Low_Bound (Is_64), Universal_Integer_Type_Definition), - Create_Std_Integer (High_Bound (Flags.Flag_Integer_64), + Create_Std_Integer (High_Bound (Is_64), Universal_Integer_Type_Definition), Universal_Integer_Type_Definition); Set_Range_Constraint (Subtype_Definition, Constraint); @@ -538,7 +540,8 @@ package body Std_Package is Create_Integer_Subtype (Universal_Integer_Type_Definition, Universal_Integer_Type_Declaration, Universal_Integer_Subtype_Definition, - Universal_Integer_Subtype_Declaration); + Universal_Integer_Subtype_Declaration, + False); Add_Decl (Universal_Integer_Subtype_Declaration); Set_Subtype_Definition (Universal_Integer_Type_Declaration, @@ -610,7 +613,8 @@ package body Std_Package is Create_Integer_Subtype (Convertible_Integer_Type_Definition, Convertible_Integer_Type_Declaration, Convertible_Integer_Subtype_Definition, - Convertible_Integer_Subtype_Declaration); + Convertible_Integer_Subtype_Declaration, + False); -- Not added in std.standard. end; |