From 0de3d126e70dfedfd6f74710da31c4b9636f900a Mon Sep 17 00:00:00 2001
From: Bernhard Schommer <bernhardschommer@gmail.com>
Date: Fri, 11 Sep 2015 12:05:31 +0200
Subject: Use the gcc version of atomic load.

---
 powerpc/Asmexpand.ml | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'powerpc/Asmexpand.ml')

diff --git a/powerpc/Asmexpand.ml b/powerpc/Asmexpand.ml
index 8cd123fe..5e26e8a6 100644
--- a/powerpc/Asmexpand.ml
+++ b/powerpc/Asmexpand.ml
@@ -499,12 +499,10 @@ let expand_builtin_inline name args res =
       emit (Pisync);
       emit (Pstw (GPR11,Cint _0,a3))
   | "__builtin_atomic_load", [BA (IR a1); BA (IR a2)],_ ->
-      let lbl = new_label() in
       emit (Psync);
-      emit (Plabel lbl);
       emit (Plwz (a1,Cint _0,a1));
       emit (Pcmpw (a1,a1));
-      emit (Pbne lbl);
+      emit (Pbne_rel _4);
       emit (Pisync);
       emit (Pstw (a1,Cint _0, a2));
   | "__builtin_sync_fetch_and_add", [BA (IR a1); BA(IR a2)], BR (IR res) ->
-- 
cgit