[commit: ghc] master: [ci skip] includes: detabify/dewhitespace stg/SMP.h (efcf0ab)
git at git.haskell.org
git at git.haskell.org
Wed Aug 20 17:52:24 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/efcf0ab2a5efc37c4c17cb31957c1fc37d924e50/ghc
>---------------------------------------------------------------
commit efcf0ab2a5efc37c4c17cb31957c1fc37d924e50
Author: Austin Seipp <austin at well-typed.com>
Date: Wed Aug 20 12:43:21 2014 -0500
[ci skip] includes: detabify/dewhitespace stg/SMP.h
Signed-off-by: Austin Seipp <austin at well-typed.com>
>---------------------------------------------------------------
efcf0ab2a5efc37c4c17cb31957c1fc37d924e50
includes/stg/SMP.h | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/includes/stg/SMP.h b/includes/stg/SMP.h
index 00608c7..76dadde 100644
--- a/includes/stg/SMP.h
+++ b/includes/stg/SMP.h
@@ -115,10 +115,10 @@ xchg(StgPtr p, StgWord w)
__asm__ __volatile__ (
// NB: the xchg instruction is implicitly locked, so we do not
// need a lock prefix here.
- "xchg %1,%0"
+ "xchg %1,%0"
:"+r" (result), "+m" (*p)
: /* no input-only operands */
- );
+ );
#elif powerpc_HOST_ARCH
__asm__ __volatile__ (
"1: lwarx %0, 0, %2\n"
@@ -131,8 +131,8 @@ xchg(StgPtr p, StgWord w)
result = w;
__asm__ __volatile__ (
"swap %1,%0"
- : "+r" (result), "+m" (*p)
- : /* no input-only operands */
+ : "+r" (result), "+m" (*p)
+ : /* no input-only operands */
);
#elif arm_HOST_ARCH && defined(arm_HOST_ARCH_PRE_ARMv6)
__asm__ __volatile__ ("swp %0, %1, [%2]"
@@ -179,7 +179,7 @@ cas(StgVolatilePtr p, StgWord o, StgWord n)
return result;
#elif i386_HOST_ARCH || x86_64_HOST_ARCH
__asm__ __volatile__ (
- "lock\ncmpxchg %3,%1"
+ "lock\ncmpxchg %3,%1"
:"=a"(o), "+m" (*(volatile unsigned int *)p)
:"0" (o), "r" (n));
return o;
@@ -199,10 +199,10 @@ cas(StgVolatilePtr p, StgWord o, StgWord n)
return result;
#elif sparc_HOST_ARCH
__asm__ __volatile__ (
- "cas [%1], %2, %0"
- : "+r" (n)
- : "r" (p), "r" (o)
- : "memory"
+ "cas [%1], %2, %0"
+ : "+r" (n)
+ : "r" (p), "r" (o)
+ : "memory"
);
return n;
#elif arm_HOST_ARCH && defined(arm_HOST_ARCH_PRE_ARMv6)
More information about the ghc-commits
mailing list