[Ada] Use new Max_Integer_Size attribute in system.ads files

author Eric Botcazou <ebotcazou@adacore.com>

Fri, 26 Jun 2020 14:16:08 +0000 (16:16 +0200)

committer Pierre-Marie de Rodat <derodat@adacore.com>

Fri, 16 Oct 2020 07:31:24 +0000 (03:31 -0400)
author Eric Botcazou <ebotcazou@adacore.com>
Fri, 26 Jun 2020 14:16:08 +0000 (16:16 +0200)
committer Pierre-Marie de Rodat <derodat@adacore.com>
Fri, 16 Oct 2020 07:31:24 +0000 (03:31 -0400)
diff --git a/gcc/ada/libgnat/system-aix.ads b/gcc/ada/libgnat/system-aix.ads

index 6ffa0f56d4c5312ccf4998e36570aefceff6f31c..5bf603d775f3478d92b15890996b9f1183ef3989 100644 (file)
--- a/gcc/ada/libgnat/system-aix.ads
+++ b/gcc/ada/libgnat/system-aix.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-darwin-arm.ads b/gcc/ada/libgnat/system-darwin-arm.ads

index 4206b0452aaecece3221b37765bd9e9f472b446e..70e02a1245218587c7b300b0b2cbf6591a54b3d9 100644 (file)
--- a/gcc/ada/libgnat/system-darwin-arm.ads
+++ b/gcc/ada/libgnat/system-darwin-arm.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-darwin-ppc.ads b/gcc/ada/libgnat/system-darwin-ppc.ads

index b543f63d389a54753a158f95fe1452263302597c..4947c6cdc25e8de99f772013a0247f7125778d72 100644 (file)
--- a/gcc/ada/libgnat/system-darwin-ppc.ads
+++ b/gcc/ada/libgnat/system-darwin-ppc.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-darwin-x86.ads b/gcc/ada/libgnat/system-darwin-x86.ads

index 3ceacffab618792609f48c365a7eca7da698a9be..828b310671d167c406465a599479226f20a5ea61 100644 (file)
--- a/gcc/ada/libgnat/system-darwin-x86.ads
+++ b/gcc/ada/libgnat/system-darwin-x86.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-djgpp.ads b/gcc/ada/libgnat/system-djgpp.ads

index 82b496ecf31b855867a1cb27f6bc6962178fa0e6..68fdb49698a9497a1a6e2f1f1998a4d997bef5a2 100644 (file)
--- a/gcc/ada/libgnat/system-djgpp.ads
+++ b/gcc/ada/libgnat/system-djgpp.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-dragonfly-x86_64.ads b/gcc/ada/libgnat/system-dragonfly-x86_64.ads

index a77ebd6d9c54e0f82f99ddc1d49502a5265e0baa..6bfb5c4929342f35c6afd19d684b9e736c2bc38b 100644 (file)
--- a/gcc/ada/libgnat/system-dragonfly-x86_64.ads
+++ b/gcc/ada/libgnat/system-dragonfly-x86_64.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-freebsd.ads b/gcc/ada/libgnat/system-freebsd.ads

index c2afb796378064ded5da9d1f0678174e2c9ed5bd..d4fe60ea0ade60e160fc24dfb76c7482ab111e1a 100644 (file)
--- a/gcc/ada/libgnat/system-freebsd.ads
+++ b/gcc/ada/libgnat/system-freebsd.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-hpux-ia64.ads b/gcc/ada/libgnat/system-hpux-ia64.ads

index c0d5515bcec17631d9ebe849bd1cb4af8e8e436a..f11edc61652dbe43d5af982802272cf3e4a96456 100644 (file)
--- a/gcc/ada/libgnat/system-hpux-ia64.ads
+++ b/gcc/ada/libgnat/system-hpux-ia64.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-hpux.ads b/gcc/ada/libgnat/system-hpux.ads

index 7acd3506cf411076d3e37697f8d64dd893f2e5a8..ddf6a82e8bf16cecf9379259138d5a026b98ba34 100644 (file)
--- a/gcc/ada/libgnat/system-hpux.ads
+++ b/gcc/ada/libgnat/system-hpux.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-linux-alpha.ads b/gcc/ada/libgnat/system-linux-alpha.ads

index 1d1411e31a1847415330cb989e7b1acf033679ed..eebe93a0d9fb2955269cba8ff018e943c8ef3b4e 100644 (file)
--- a/gcc/ada/libgnat/system-linux-alpha.ads
+++ b/gcc/ada/libgnat/system-linux-alpha.ads
@@ -48,11 +48,11 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
-   Max_Nonbinary_Modulus : constant := Integer'Last;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
+   Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
     Max_Digits            : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-linux-arm.ads b/gcc/ada/libgnat/system-linux-arm.ads

index e3ee50645318b56606d984774d31dfc77cfbbacf..4d09d9e2de593e2a26a9a22fb7dfedffc42b31b3 100644 (file)
--- a/gcc/ada/libgnat/system-linux-arm.ads
+++ b/gcc/ada/libgnat/system-linux-arm.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-linux-hppa.ads b/gcc/ada/libgnat/system-linux-hppa.ads

index 59aab8367c0bd827e1cbbb0d18814bbdc6fc8ea4..6bc95413a371d9388fabb0b674e9ba4ee0f2d69f 100644 (file)
--- a/gcc/ada/libgnat/system-linux-hppa.ads
+++ b/gcc/ada/libgnat/system-linux-hppa.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-linux-ia64.ads b/gcc/ada/libgnat/system-linux-ia64.ads

index bf36c7735895ee418dc7985a3d276ede783fefcd..ae9b49a90be4ab6fa52d388f7463299414a3a0bf 100644 (file)
--- a/gcc/ada/libgnat/system-linux-ia64.ads
+++ b/gcc/ada/libgnat/system-linux-ia64.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-linux-m68k.ads b/gcc/ada/libgnat/system-linux-m68k.ads

index 571c62927b4812d93082c3963fc5de3af4ef2b18..3fbd78197b9fd943195a4d33a6b97490ba0245ca 100644 (file)
--- a/gcc/ada/libgnat/system-linux-m68k.ads
+++ b/gcc/ada/libgnat/system-linux-m68k.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-linux-mips.ads b/gcc/ada/libgnat/system-linux-mips.ads

index c38149642f110e63ff4fb3ff159880de8f240b50..d760db815b709f6299142257dec3cbd09f2c02e6 100644 (file)
--- a/gcc/ada/libgnat/system-linux-mips.ads
+++ b/gcc/ada/libgnat/system-linux-mips.ads
@@ -48,11 +48,11 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
-   Max_Nonbinary_Modulus : constant := Integer'Last;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
+   Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
     Max_Digits            : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-linux-ppc.ads b/gcc/ada/libgnat/system-linux-ppc.ads

index f3d3712ad135c6a87aafdcd663b86ece47ff3818..0f393707873692c9e6ae0178223d8b9e9cb9435e 100644 (file)
--- a/gcc/ada/libgnat/system-linux-ppc.ads
+++ b/gcc/ada/libgnat/system-linux-ppc.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-linux-riscv.ads b/gcc/ada/libgnat/system-linux-riscv.ads

index 676394abb51a65feea81d08597cd88b8205a0b6e..91eddf29dc56ec6c45842797a25a5fb5e565e63b 100644 (file)
--- a/gcc/ada/libgnat/system-linux-riscv.ads
+++ b/gcc/ada/libgnat/system-linux-riscv.ads
@@ -48,11 +48,11 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
-   Max_Nonbinary_Modulus : constant := Integer'Last;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
+   Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
     Max_Digits            : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-linux-s390.ads b/gcc/ada/libgnat/system-linux-s390.ads

index 916f68d4ebd5a225059d6012b8e326897e472d69..374b938b00605e9504cd689f47693b3dac7b060c 100644 (file)
--- a/gcc/ada/libgnat/system-linux-s390.ads
+++ b/gcc/ada/libgnat/system-linux-s390.ads
@@ -48,11 +48,11 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
-   Max_Nonbinary_Modulus : constant := Integer'Last;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
+   Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
     Max_Digits            : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-linux-sh4.ads b/gcc/ada/libgnat/system-linux-sh4.ads

index 8940ab0a028ea5f89d53e426f8b5dba9fb895187..cd811defb55d55acb831937e8ce8986c3fb69a15 100644 (file)
--- a/gcc/ada/libgnat/system-linux-sh4.ads
+++ b/gcc/ada/libgnat/system-linux-sh4.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-linux-sparc.ads b/gcc/ada/libgnat/system-linux-sparc.ads

index 5d93b76fbfd4b5ba8ed3c91aeeb62c1715041f8e..e74214bb53c30fe3d78eac79bc081e131def5094 100644 (file)
--- a/gcc/ada/libgnat/system-linux-sparc.ads
+++ b/gcc/ada/libgnat/system-linux-sparc.ads
@@ -48,11 +48,11 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
-   Max_Nonbinary_Modulus : constant := Integer'Last;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
+   Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
     Max_Digits            : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-linux-x86.ads b/gcc/ada/libgnat/system-linux-x86.ads

index 7e30fee65a4959d694bf65f801e39e7520b3a0f6..eb8b5dd68c968e8ba3ee995e686cc46f53df1aa2 100644 (file)
--- a/gcc/ada/libgnat/system-linux-x86.ads
+++ b/gcc/ada/libgnat/system-linux-x86.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-lynxos178-ppc.ads b/gcc/ada/libgnat/system-lynxos178-ppc.ads

index 8882034b1db5908f6fd98abf5c555bdf400345f6..cf516e164ac8ab3abc23b8b2355bc6fb9e059230 100644 (file)
--- a/gcc/ada/libgnat/system-lynxos178-ppc.ads
+++ b/gcc/ada/libgnat/system-lynxos178-ppc.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-lynxos178-x86.ads b/gcc/ada/libgnat/system-lynxos178-x86.ads

index 3a5f2972427ddcf830408df3c05bbd9deac13b3a..c1514722d815b543329d6edfb5ac88c0d81ce729 100644 (file)
--- a/gcc/ada/libgnat/system-lynxos178-x86.ads
+++ b/gcc/ada/libgnat/system-lynxos178-x86.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-mingw.ads b/gcc/ada/libgnat/system-mingw.ads

index 990c5f52ae7fafd5151173cf4bc22aef8be602f0..cf960da406666899fd9f4deae5a8443cf5796d96 100644 (file)
--- a/gcc/ada/libgnat/system-mingw.ads
+++ b/gcc/ada/libgnat/system-mingw.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-qnx-aarch64.ads b/gcc/ada/libgnat/system-qnx-aarch64.ads

index a04f7b26a52cf0a90b319d16ec5cccec9cafdc00..37b8fd124af6305f1e8b76fe2afd33396e085f34 100644 (file)
--- a/gcc/ada/libgnat/system-qnx-aarch64.ads
+++ b/gcc/ada/libgnat/system-qnx-aarch64.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-rtems.ads b/gcc/ada/libgnat/system-rtems.ads

index 50a96a3f3c0ec03032ec068ebde0f7636462eb99..099c234ee6e8244c90391b1847ddc396ccec9937 100644 (file)
--- a/gcc/ada/libgnat/system-rtems.ads
+++ b/gcc/ada/libgnat/system-rtems.ads
@@ -52,11 +52,11 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
-   Max_Nonbinary_Modulus : constant := Integer'Last;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
+   Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
     Max_Digits            : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-solaris-sparc.ads b/gcc/ada/libgnat/system-solaris-sparc.ads

index 244042cc98a00dcf70b0e42289caa3f877a3fad8..0e1ce016d834e68280f291aac379d9990f04f6b3 100644 (file)
--- a/gcc/ada/libgnat/system-solaris-sparc.ads
+++ b/gcc/ada/libgnat/system-solaris-sparc.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-solaris-x86.ads b/gcc/ada/libgnat/system-solaris-x86.ads

index c77c9167b9f218fa4a09a31de93b62dda3e4f636..010ce5b30297de6aab5064254c7ab4e18a4a2d63 100644 (file)
--- a/gcc/ada/libgnat/system-solaris-x86.ads
+++ b/gcc/ada/libgnat/system-solaris-x86.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-arm-rtp-smp.ads b/gcc/ada/libgnat/system-vxworks-arm-rtp-smp.ads

index 1186d8ba66ab1b7ac12106db32caa2f9c5b27335..91806e508357734d1ecadff0baa698c78e590cc7 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-arm-rtp-smp.ads
+++ b/gcc/ada/libgnat/system-vxworks-arm-rtp-smp.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-arm-rtp.ads b/gcc/ada/libgnat/system-vxworks-arm-rtp.ads

index ce52c0727d3c02824c26f2fa01c9e5fc725de91d..de139747e070469b15504ada2171f0a1903e53a6 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-arm-rtp.ads
+++ b/gcc/ada/libgnat/system-vxworks-arm-rtp.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-arm.ads b/gcc/ada/libgnat/system-vxworks-arm.ads

index 4dc6be8ec410bd91b97f37bfa24e7a05f866c8e0..fac4e7252e8fc43f2fb53b03efaf0b3abcd91be7 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-arm.ads
+++ b/gcc/ada/libgnat/system-vxworks-arm.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-e500-kernel.ads b/gcc/ada/libgnat/system-vxworks-e500-kernel.ads

index 44b713ac93a719dba24c781206504de70aeec18d..cf89c2dc0a8ab8bcd2418d6b2a36804307b11f67 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-e500-kernel.ads
+++ b/gcc/ada/libgnat/system-vxworks-e500-kernel.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-e500-rtp-smp.ads b/gcc/ada/libgnat/system-vxworks-e500-rtp-smp.ads

index a3e8f413f4b8d90e0a59b719c3c9ed49676f881d..862f3f676d3c38335c74536bf123b52658c8fb0b 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-e500-rtp-smp.ads
+++ b/gcc/ada/libgnat/system-vxworks-e500-rtp-smp.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-e500-rtp.ads b/gcc/ada/libgnat/system-vxworks-e500-rtp.ads

index 5a26eed581670aa2fad8ed4e4ba88c608a7e216b..a3baecb2d39d128abf4f3a9bcc4f99b86e757494 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-e500-rtp.ads
+++ b/gcc/ada/libgnat/system-vxworks-e500-rtp.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-e500-vthread.ads b/gcc/ada/libgnat/system-vxworks-e500-vthread.ads

index df964327846b8e77b7d35d3395dcc509fcc96b2b..fc92958f5d851f0f2cab672f2c3a7963a4927679 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-e500-vthread.ads
+++ b/gcc/ada/libgnat/system-vxworks-e500-vthread.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-ppc-kernel.ads b/gcc/ada/libgnat/system-vxworks-ppc-kernel.ads

index 76ec6eb14e6adb8f030ca1b778281f5792e0e638..383c82078ff454bc8f8256ec4f870864987adee8 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-ppc-kernel.ads
+++ b/gcc/ada/libgnat/system-vxworks-ppc-kernel.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-ppc-ravenscar.ads b/gcc/ada/libgnat/system-vxworks-ppc-ravenscar.ads

index 8485e746d3970bd9baa4772f1c39396ee5761a23..53a1f9e5f6fadabf0ef3f51c5848f5473e563a04 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-ppc-ravenscar.ads
+++ b/gcc/ada/libgnat/system-vxworks-ppc-ravenscar.ads
@@ -73,10 +73,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-ppc-rtp-smp.ads b/gcc/ada/libgnat/system-vxworks-ppc-rtp-smp.ads

index 17b7f2cf3c8f2012d1c80b4a1219d31e9a3f302b..aa99413142043c563c84640b3ce7ad553a821377 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-ppc-rtp-smp.ads
+++ b/gcc/ada/libgnat/system-vxworks-ppc-rtp-smp.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-ppc-rtp.ads b/gcc/ada/libgnat/system-vxworks-ppc-rtp.ads

index a57563dc6553881207e7861217609fc6ebea456f..acb20c48d17c8ea72d3c423acc7bad7d8a1e60cc 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-ppc-rtp.ads
+++ b/gcc/ada/libgnat/system-vxworks-ppc-rtp.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-ppc-vthread.ads b/gcc/ada/libgnat/system-vxworks-ppc-vthread.ads

index 9d2c379c92c7cdb7874d8b0548165f6758cc8445..aca420e72ac5fdc68475f3ca3afb22639c9fef12 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-ppc-vthread.ads
+++ b/gcc/ada/libgnat/system-vxworks-ppc-vthread.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-ppc.ads b/gcc/ada/libgnat/system-vxworks-ppc.ads

index 20b8674b648077f5f9a8e613ccc6d653a9910e62..99644ee7f2c67c60b36eaa6d5f13655785077058 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-ppc.ads
+++ b/gcc/ada/libgnat/system-vxworks-ppc.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-x86-kernel.ads b/gcc/ada/libgnat/system-vxworks-x86-kernel.ads

index 42d87694a9da15ada4b91c9cb69ce898ab7ced36..3781020fdcccc6f2a560d54b45c0dc74cc3134de 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-x86-kernel.ads
+++ b/gcc/ada/libgnat/system-vxworks-x86-kernel.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-x86-rtp-smp.ads b/gcc/ada/libgnat/system-vxworks-x86-rtp-smp.ads

index 8bed9208cb2be1b09ac287a0f49c9fab1e1724ac..374041c21f93c3d21a36bd396603ca686a2740ee 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-x86-rtp-smp.ads
+++ b/gcc/ada/libgnat/system-vxworks-x86-rtp-smp.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-x86-rtp.ads b/gcc/ada/libgnat/system-vxworks-x86-rtp.ads

index fd209869b38213d4125fdd7ead174d09728eb312..cff7291619bcf00d87f7b5fb5ec0e1b13d051d2f 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-x86-rtp.ads
+++ b/gcc/ada/libgnat/system-vxworks-x86-rtp.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-x86-vthread.ads b/gcc/ada/libgnat/system-vxworks-x86-vthread.ads

index 418e52baadb452eaeb5ad3941c382a61919306b4..1867196eda5e706f243dc1ed810922762463a78e 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-x86-vthread.ads
+++ b/gcc/ada/libgnat/system-vxworks-x86-vthread.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks-x86.ads b/gcc/ada/libgnat/system-vxworks-x86.ads

index 6059202c1bbc475dfcd06ad12c1f9f97ebdf096c..c82a61f29fe83c745fd58d4a8c4be06b7d18cc2f 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks-x86.ads
+++ b/gcc/ada/libgnat/system-vxworks-x86.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-aarch64-rtp-smp.ads b/gcc/ada/libgnat/system-vxworks7-aarch64-rtp-smp.ads

index 524f9678d93eecb7ee8d5e0e4f590db0e81023ad..37bf607d60019ee9a32dc9f133d5266bd0f7bbd6 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-aarch64-rtp-smp.ads
+++ b/gcc/ada/libgnat/system-vxworks7-aarch64-rtp-smp.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-aarch64.ads b/gcc/ada/libgnat/system-vxworks7-aarch64.ads

index f1e11ba1301857bbd29581150ec7b17e5024caea..c3865008ced4506f1a3142ef82c2b2b3b014df5f 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-aarch64.ads
+++ b/gcc/ada/libgnat/system-vxworks7-aarch64.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-arm-rtp-smp.ads b/gcc/ada/libgnat/system-vxworks7-arm-rtp-smp.ads

index 032620d00d66b527af38d2837cbaf2461e274f79..7e2db7ab4f86907ff5317d3027221cdab84e7a97 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-arm-rtp-smp.ads
+++ b/gcc/ada/libgnat/system-vxworks7-arm-rtp-smp.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-arm.ads b/gcc/ada/libgnat/system-vxworks7-arm.ads

index 4dc6be8ec410bd91b97f37bfa24e7a05f866c8e0..fac4e7252e8fc43f2fb53b03efaf0b3abcd91be7 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-arm.ads
+++ b/gcc/ada/libgnat/system-vxworks7-arm.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-e500-kernel.ads b/gcc/ada/libgnat/system-vxworks7-e500-kernel.ads

index 495cfedeb5cb27b9be903299c8ad91eae565340b..e03264ec3f1f5c5fa524a25d6dfab1c2f95c0452 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-e500-kernel.ads
+++ b/gcc/ada/libgnat/system-vxworks7-e500-kernel.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-e500-rtp-smp.ads b/gcc/ada/libgnat/system-vxworks7-e500-rtp-smp.ads

index 263315646f9d88b571b5d0adb4f617d3f6f8fa64..a9b33178e6c93cdade49ac4978ae71dc3ff732fe 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-e500-rtp-smp.ads
+++ b/gcc/ada/libgnat/system-vxworks7-e500-rtp-smp.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-e500-rtp.ads b/gcc/ada/libgnat/system-vxworks7-e500-rtp.ads

index a521d250e86de2dd4f59eae119da35632713731d..3e963d0c80c122caee6c7e488a2e02106a6a6d65 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-e500-rtp.ads
+++ b/gcc/ada/libgnat/system-vxworks7-e500-rtp.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-ppc-kernel.ads b/gcc/ada/libgnat/system-vxworks7-ppc-kernel.ads

index a054aa244d42fadaeec8ed5e24a3e480c27b85fe..93b327195ad8478860bba5fc26f82378894e888e 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-ppc-kernel.ads
+++ b/gcc/ada/libgnat/system-vxworks7-ppc-kernel.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-ppc-rtp-smp.ads b/gcc/ada/libgnat/system-vxworks7-ppc-rtp-smp.ads

index 7e3e16dba9d9f1c088523aa17ac263b750316301..e5d984b25ea2df9bf9b5d6df95338097f364ef9f 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-ppc-rtp-smp.ads
+++ b/gcc/ada/libgnat/system-vxworks7-ppc-rtp-smp.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-ppc-rtp.ads b/gcc/ada/libgnat/system-vxworks7-ppc-rtp.ads

index 87ac8f0714c7860c4292e42c393cdcc8fd683c62..e96d3037fc4b5582fc4722ae7e81a7a7593f7b4d 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-ppc-rtp.ads
+++ b/gcc/ada/libgnat/system-vxworks7-ppc-rtp.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-ppc64-kernel.ads b/gcc/ada/libgnat/system-vxworks7-ppc64-kernel.ads

index c631a85a908ad5e1164fbb892639dbbe2b8b3bcb..90499f63999ec5c56d1cba5d9a96e433670cbde8 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-ppc64-kernel.ads
+++ b/gcc/ada/libgnat/system-vxworks7-ppc64-kernel.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-ppc64-rtp-smp.ads b/gcc/ada/libgnat/system-vxworks7-ppc64-rtp-smp.ads

index 9f27913f0cc792caa539eb19a746853d9b738a51..49b22b63ebf722e0acfccac011b12412710b3fae 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-ppc64-rtp-smp.ads
+++ b/gcc/ada/libgnat/system-vxworks7-ppc64-rtp-smp.ads
@@ -50,10 +50,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-x86-kernel.ads b/gcc/ada/libgnat/system-vxworks7-x86-kernel.ads

index 5bfe0b36e43cad74147e72d44935e5187e93c165..d7b35dd46dee1d5796d883cdaf8d19b04cf03c67 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-x86-kernel.ads
+++ b/gcc/ada/libgnat/system-vxworks7-x86-kernel.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-x86-rtp-smp.ads b/gcc/ada/libgnat/system-vxworks7-x86-rtp-smp.ads

index 5e66142ec40630d79fd6533fa29c7b6fa56791c1..293ede87417beae1d6e663125a8abf80c274fab2 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-x86-rtp-smp.ads
+++ b/gcc/ada/libgnat/system-vxworks7-x86-rtp-smp.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-x86-rtp.ads b/gcc/ada/libgnat/system-vxworks7-x86-rtp.ads

index 47ca3e8a791400e2ab8686dd82334d2fde430bc7..caf458fae15806e87bfc2fdac733eb2f7e872b04 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-x86-rtp.ads
+++ b/gcc/ada/libgnat/system-vxworks7-x86-rtp.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-x86_64-kernel.ads b/gcc/ada/libgnat/system-vxworks7-x86_64-kernel.ads

index ac90238c49bff36933337f00b35bfbbfc56b8fc8..a5f00ff9a5e1431fc8d405f37f7a6d2bae29760c 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-x86_64-kernel.ads
+++ b/gcc/ada/libgnat/system-vxworks7-x86_64-kernel.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
diff --git a/gcc/ada/libgnat/system-vxworks7-x86_64-rtp-smp.ads b/gcc/ada/libgnat/system-vxworks7-x86_64-rtp-smp.ads

index c3e4a9caa4b65d34ce01d4736bc6a19c9a5fb9c2..05e69e5ab0912a087d4d49d5aa1aac85821373bc 100644 (file)
--- a/gcc/ada/libgnat/system-vxworks7-x86_64-rtp-smp.ads
+++ b/gcc/ada/libgnat/system-vxworks7-x86_64-rtp-smp.ads
@@ -48,10 +48,10 @@ package System is
  
     --  System-Dependent Named Numbers
  
-   Min_Int               : constant := Long_Long_Integer'First;
-   Max_Int               : constant := Long_Long_Integer'Last;
+   Min_Int             : constant := -2 ** (Standard'Max_Integer_Size - 1);
+   Max_Int             : constant :=  2 ** (Standard'Max_Integer_Size - 1) - 1;
  
-   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
+   Max_Binary_Modulus    : constant := 2 ** Standard'Max_Integer_Size;
     Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
  
     Max_Base_Digits       : constant := Long_Long_Float'Digits;
author	Eric Botcazou <ebotcazou@adacore.com>
	Fri, 26 Jun 2020 14:16:08 +0000 (16:16 +0200)
committer	Pierre-Marie de Rodat <derodat@adacore.com>
	Fri, 16 Oct 2020 07:31:24 +0000 (03:31 -0400)
gcc/ada/libgnat/system-aix.ads		patch \| blob \| history
gcc/ada/libgnat/system-darwin-arm.ads		patch \| blob \| history
gcc/ada/libgnat/system-darwin-ppc.ads		patch \| blob \| history
gcc/ada/libgnat/system-darwin-x86.ads		patch \| blob \| history
gcc/ada/libgnat/system-djgpp.ads		patch \| blob \| history
gcc/ada/libgnat/system-dragonfly-x86_64.ads		patch \| blob \| history
gcc/ada/libgnat/system-freebsd.ads		patch \| blob \| history
gcc/ada/libgnat/system-hpux-ia64.ads		patch \| blob \| history
gcc/ada/libgnat/system-hpux.ads		patch \| blob \| history
gcc/ada/libgnat/system-linux-alpha.ads		patch \| blob \| history
gcc/ada/libgnat/system-linux-arm.ads		patch \| blob \| history
gcc/ada/libgnat/system-linux-hppa.ads		patch \| blob \| history
gcc/ada/libgnat/system-linux-ia64.ads		patch \| blob \| history
gcc/ada/libgnat/system-linux-m68k.ads		patch \| blob \| history
gcc/ada/libgnat/system-linux-mips.ads		patch \| blob \| history
gcc/ada/libgnat/system-linux-ppc.ads		patch \| blob \| history
gcc/ada/libgnat/system-linux-riscv.ads		patch \| blob \| history
gcc/ada/libgnat/system-linux-s390.ads		patch \| blob \| history
gcc/ada/libgnat/system-linux-sh4.ads		patch \| blob \| history
gcc/ada/libgnat/system-linux-sparc.ads		patch \| blob \| history
gcc/ada/libgnat/system-linux-x86.ads		patch \| blob \| history
gcc/ada/libgnat/system-lynxos178-ppc.ads		patch \| blob \| history
gcc/ada/libgnat/system-lynxos178-x86.ads		patch \| blob \| history
gcc/ada/libgnat/system-mingw.ads		patch \| blob \| history
gcc/ada/libgnat/system-qnx-aarch64.ads		patch \| blob \| history
gcc/ada/libgnat/system-rtems.ads		patch \| blob \| history
gcc/ada/libgnat/system-solaris-sparc.ads		patch \| blob \| history
gcc/ada/libgnat/system-solaris-x86.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-arm-rtp-smp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-arm-rtp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-arm.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-e500-kernel.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-e500-rtp-smp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-e500-rtp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-e500-vthread.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-ppc-kernel.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-ppc-ravenscar.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-ppc-rtp-smp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-ppc-rtp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-ppc-vthread.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-ppc.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-x86-kernel.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-x86-rtp-smp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-x86-rtp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-x86-vthread.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks-x86.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-aarch64-rtp-smp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-aarch64.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-arm-rtp-smp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-arm.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-e500-kernel.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-e500-rtp-smp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-e500-rtp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-ppc-kernel.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-ppc-rtp-smp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-ppc-rtp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-ppc64-kernel.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-ppc64-rtp-smp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-x86-kernel.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-x86-rtp-smp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-x86-rtp.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-x86_64-kernel.ads		patch \| blob \| history
gcc/ada/libgnat/system-vxworks7-x86_64-rtp-smp.ads		patch \| blob \| history