X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FSMP.h;h=74fbf9ad2d8b993f98d05e9257b4682fe8ce7463;hb=d7230e532eb485db85d4e446d7fba4192507b3ba;hp=b410c6eb47d493e2f7135a71ddf152b8466905c8;hpb=0a8f685b4c66093df7732c6b92a631cf4c84c05d;p=ghc-hetmet.git diff --git a/includes/SMP.h b/includes/SMP.h index b410c6e..74fbf9a 100644 --- a/includes/SMP.h +++ b/includes/SMP.h @@ -75,7 +75,7 @@ xchg(StgPtr p, StgWord w) "1: lwarx %0, 0, %2\n" " stwcx. %1, 0, %2\n" " bne- 1b" - :"=r" (result) + :"=&r" (result) :"r" (w), "r" (p) ); #elif sparc_HOST_ARCH @@ -103,7 +103,7 @@ cas(StgVolatilePtr p, StgWord o, StgWord n) { #if i386_HOST_ARCH || x86_64_HOST_ARCH __asm__ __volatile__ ( - "lock/cmpxchg %3,%1" + "lock\ncmpxchg %3,%1" :"=a"(o), "=m" (*(volatile unsigned int *)p) :"0" (o), "r" (n)); return o;