From 267cb3b2fa4279eb1f313bcdda580c06c4666189 Mon Sep 17 00:00:00 2001
From: Michael Schmidt <github@mschmidt.me>
Date: Wed, 16 Dec 2015 13:23:33 +0100
Subject: bug 17752, fix semantics of builtin_set_spr64

---
 powerpc/Asmexpand.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'powerpc/Asmexpand.ml')

diff --git a/powerpc/Asmexpand.ml b/powerpc/Asmexpand.ml
index ba63bb13..ca166fd1 100644
--- a/powerpc/Asmexpand.ml
+++ b/powerpc/Asmexpand.ml
@@ -519,7 +519,7 @@ let expand_builtin_inline name args res =
       if Archi.ppc64 then begin
         emit (Prldicr(GPR10, ah, _32, _31));
         emit (Prldicl(al, al, _0, _32));
-        emit (Pori(GPR10, al, Cint _0));
+        emit (Por(GPR10, GPR10, al));
         emit (Pmtspr(n, GPR10))
       end else
         raise (Error "__builtin_set_spr64 is only supported for PPC64 targets")
-- 
cgit