From 58666503ad589ca2526cd7f7ec782573d29cb6f5 Mon Sep 17 00:00:00 2001 From: Rainer Orth Date: Mon, 26 Sep 2011 10:54:33 +0000 Subject: [PATCH] Restore Ada bootstrap on Solaris 8, 9/x86 From-SVN: r179189 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/s-atocou-x86.adb | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 15ef0b557b3c..a7900c3c679a 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -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 + + * s-atocou-x86.adb (Decrement): Use %;. + (Increment): Likewise. + 2011-09-26 Eric Botcazou * gcc-interface/utils.c (maybe_unconstrained_array): Declare TYPE local diff --git a/gcc/ada/s-atocou-x86.adb b/gcc/ada/s-atocou-x86.adb index f7c0bcb31470..bd02c35699f6 100644 --- a/gcc/ada/s-atocou-x86.adb +++ b/gcc/ada/s-atocou-x86.adb @@ -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); -- 2.47.3