Commit ea30850a by Andreas Krebbel Committed by Andreas Krebbel

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
parent 485b51a7
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> 2007-04-06 Javier Miranda <miranda@adacore.com>
Matt Heaney <heaney@adacore.com> Matt Heaney <heaney@adacore.com>
Robert Dewar <dewar@adacore.com> Robert Dewar <dewar@adacore.com>
...@@ -87,6 +87,7 @@ pragma Pure (System); ...@@ -87,6 +87,7 @@ pragma Pure (System);
type Bit_Order is (High_Order_First, Low_Order_First); type Bit_Order is (High_Order_First, Low_Order_First);
Default_Bit_Order : constant Bit_Order := 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) -- Priority-related Declarations (RM D.1)
......
...@@ -87,6 +87,7 @@ pragma Pure (System); ...@@ -87,6 +87,7 @@ pragma Pure (System);
type Bit_Order is (High_Order_First, Low_Order_First); type Bit_Order is (High_Order_First, Low_Order_First);
Default_Bit_Order : constant Bit_Order := High_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) -- Priority-related Declarations (RM D.1)
......
...@@ -87,6 +87,7 @@ pragma Pure (System); ...@@ -87,6 +87,7 @@ pragma Pure (System);
type Bit_Order is (High_Order_First, Low_Order_First); type Bit_Order is (High_Order_First, Low_Order_First);
Default_Bit_Order : constant Bit_Order := High_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) -- Priority-related Declarations (RM D.1)
......
...@@ -87,6 +87,7 @@ pragma Pure (System); ...@@ -87,6 +87,7 @@ pragma Pure (System);
type Bit_Order is (High_Order_First, Low_Order_First); type Bit_Order is (High_Order_First, Low_Order_First);
Default_Bit_Order : constant Bit_Order := High_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) -- Priority-related Declarations (RM D.1)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment