OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Restore Ada bootstrap on Solaris 8, 9/x86 

From-SVN: r179189
This commit is contained in:
Rainer Orth 2011-09-26 10:54:33 +00:00 committed by Rainer Orth
parent ce438663a8
commit 58666503ad
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -4,6 +4,11 @@
dereference of the pointer to the storage area. Remove useless type
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>
* gcc-interface/utils.c (maybe_unconstrained_array): Declare TYPE local

4
gcc/ada/s-atocou-x86.adb
View File

@ -50,7 +50,7 @@ package body System.Atomic_Counters is
begin
System.Machine_Code.Asm
(Template =>
"lock decl" & ASCII.HT & "%0" & ASCII.LF & ASCII.HT
"lock%; decl" & ASCII.HT & "%0" & ASCII.LF & ASCII.HT
& "sete %1",
Outputs =>
(Unsigned_32'Asm_Output ("=m", Item.Value),
@ -68,7 +68,7 @@ package body System.Atomic_Counters is
procedure Increment (Item : in out Atomic_Counter) is
begin
System.Machine_Code.Asm
(Template => "lock incl" & ASCII.HT & "%0",
(Template => "lock%; incl" & ASCII.HT & "%0",
Outputs => Unsigned_32'Asm_Output ("=m", Item.Value),
Inputs => Unsigned_32'Asm_Input ("m", Item.Value),
Volatile => True);