Commit 58666503 by Rainer Orth Committed by Rainer Orth

Restore Ada bootstrap on Solaris 8, 9/x86

From-SVN: r179189
parent ce438663
...@@ -4,6 +4,11 @@ ...@@ -4,6 +4,11 @@
dereference of the pointer to the storage area. Remove useless type dereference of the pointer to the storage area. Remove useless type
conversions and factor out common code. conversions and factor out common code.
2011-09-26 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* s-atocou-x86.adb (Decrement): Use %;.
(Increment): Likewise.
2011-09-26 Eric Botcazou <ebotcazou@adacore.com> 2011-09-26 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/utils.c (maybe_unconstrained_array): Declare TYPE local * gcc-interface/utils.c (maybe_unconstrained_array): Declare TYPE local
......
...@@ -50,7 +50,7 @@ package body System.Atomic_Counters is ...@@ -50,7 +50,7 @@ package body System.Atomic_Counters is
begin begin
System.Machine_Code.Asm System.Machine_Code.Asm
(Template => (Template =>
"lock decl" & ASCII.HT & "%0" & ASCII.LF & ASCII.HT "lock%; decl" & ASCII.HT & "%0" & ASCII.LF & ASCII.HT
& "sete %1", & "sete %1",
Outputs => Outputs =>
(Unsigned_32'Asm_Output ("=m", Item.Value), (Unsigned_32'Asm_Output ("=m", Item.Value),
...@@ -68,7 +68,7 @@ package body System.Atomic_Counters is ...@@ -68,7 +68,7 @@ package body System.Atomic_Counters is
procedure Increment (Item : in out Atomic_Counter) is procedure Increment (Item : in out Atomic_Counter) is
begin begin
System.Machine_Code.Asm System.Machine_Code.Asm
(Template => "lock incl" & ASCII.HT & "%0", (Template => "lock%; incl" & ASCII.HT & "%0",
Outputs => Unsigned_32'Asm_Output ("=m", Item.Value), Outputs => Unsigned_32'Asm_Output ("=m", Item.Value),
Inputs => Unsigned_32'Asm_Input ("m", Item.Value), Inputs => Unsigned_32'Asm_Input ("m", Item.Value),
Volatile => True); Volatile => True);
......
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