X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FAsmCodeGen.lhs;h=b94efa4cf46600ec0a935a730764829c2a075cb7;hb=62dfd96cf8239ceb7cb65e955c29c57f6c798517;hp=d5926765b43a0ffbd8409bf60bd5bdc57832d6cb;hpb=705f3b64dec2b8d8340b3d370d76a70500833268;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/AsmCodeGen.lhs b/ghc/compiler/nativeGen/AsmCodeGen.lhs
index d592676..b94efa4 100644
--- a/ghc/compiler/nativeGen/AsmCodeGen.lhs
+++ b/ghc/compiler/nativeGen/AsmCodeGen.lhs
@@ -248,6 +248,7 @@ primOpt op args@[x, y@(StInt 0)]
     	IntMulOp -> y
     	AndOp  	 -> y
     	OrOp   	 -> x
+    	XorOp  	 -> x
     	SllOp  	 -> x
     	SraOp  	 -> x
     	SrlOp  	 -> x