re PR ada/31576 (Ada bootstrap error)

2007-04-17  Andreas Krebbel  <krebbel1@de.ibm.com>

	PR ada/31576
	* system-linux-alpha.ads: Disable constant condition warning for the
	Default_Bit_Order variable.
	* system-linux-s390.ads: Likewise.
	* system-linux-s390x.ads: Likewise.
	* system-linux-sparc.ads: Likewise.

From-SVN: r123915

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7a3a09628a26d955ccf2f896e1bc620bda7da28a..1107832355a96c4dbe22402432420e8d4cc17d9b 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,12 @@
+2007-04-17  Andreas Krebbel  <krebbel1@de.ibm.com>
+
+       PR ada/31576
+       * system-linux-alpha.ads: Disable constant condition warning for the
+       Default_Bit_Order variable.
+       * system-linux-s390.ads: Likewise.
+       * system-linux-s390x.ads: Likewise.
+       * system-linux-sparc.ads: Likewise.
+
 2007-04-06  Javier Miranda  <miranda@adacore.com>
            Matt Heaney  <heaney@adacore.com>
            Robert Dewar  <dewar@adacore.com>

diff --git a/gcc/ada/system-linux-alpha.ads b/gcc/ada/system-linux-alpha.ads
index 89f8c1f2da92087844d76a70058e42176b21d82f..85bdcaf263aaa4f92499e59248e869d99685aa40 100644 (file)
--- a/gcc/ada/system-linux-alpha.ads
+++ b/gcc/ada/system-linux-alpha.ads
@@ -87,6 +87,7 @@ pragma Pure (System);
 
    type Bit_Order is (High_Order_First, Low_Order_First);
    Default_Bit_Order : constant Bit_Order := Low_Order_First;
+   pragma Warnings (Off, Default_Bit_Order); -- kill constant condition warning
 
    --  Priority-related Declarations (RM D.1)
 

diff --git a/gcc/ada/system-linux-s390.ads b/gcc/ada/system-linux-s390.ads
index 49e4cad19a8c4044d9d79b35ace630743697121e..2a1e617f0cd119192eb44751d51a4575116dbf4b 100644 (file)
--- a/gcc/ada/system-linux-s390.ads
+++ b/gcc/ada/system-linux-s390.ads
@@ -87,6 +87,7 @@ pragma Pure (System);
 
    type Bit_Order is (High_Order_First, Low_Order_First);
    Default_Bit_Order : constant Bit_Order := High_Order_First;
+   pragma Warnings (Off, Default_Bit_Order); -- kill constant condition warning
 
    --  Priority-related Declarations (RM D.1)
 

diff --git a/gcc/ada/system-linux-s390x.ads b/gcc/ada/system-linux-s390x.ads
index 598d17a64d9a3612de849e160c553011d64a66fb..826782220edaae7df039e3f8245df62a364d2a36 100644 (file)
--- a/gcc/ada/system-linux-s390x.ads
+++ b/gcc/ada/system-linux-s390x.ads
@@ -87,6 +87,7 @@ pragma Pure (System);
 
    type Bit_Order is (High_Order_First, Low_Order_First);
    Default_Bit_Order : constant Bit_Order := High_Order_First;
+   pragma Warnings (Off, Default_Bit_Order); -- kill constant condition warning
 
    --  Priority-related Declarations (RM D.1)
 

diff --git a/gcc/ada/system-linux-sparc.ads b/gcc/ada/system-linux-sparc.ads
index 770791909132794af6f3f7777b9b0a91f714e96f..321f8df44545dc276a3fb01b71b0fb67765e6430 100644 (file)
--- a/gcc/ada/system-linux-sparc.ads
+++ b/gcc/ada/system-linux-sparc.ads
@@ -87,6 +87,7 @@ pragma Pure (System);
 
    type Bit_Order is (High_Order_First, Low_Order_First);
    Default_Bit_Order : constant Bit_Order := High_Order_First;
+   pragma Warnings (Off, Default_Bit_Order); -- kill constant condition warning
 
    --  Priority-related Declarations (RM D.1)