From a25a717089679b629b6f028ede736a52f3c17ade Mon Sep 17 00:00:00 2001
From: Mike Pall <mike>
Date: Sun, 14 Mar 2010 17:10:47 +0100
Subject: [PATCH] Fix folding of (comparison x x).

---
 src/lj_opt_fold.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lj_opt_fold.c b/src/lj_opt_fold.c
index 818979b8..a85b49bc 100644
--- a/src/lj_opt_fold.c
+++ b/src/lj_opt_fold.c
@@ -1020,7 +1020,7 @@ LJFOLDF(comm_comp)
 {
   /* For non-numbers only: x <=> x ==> drop; x <> x ==> fail */
   if (fins->op1 == fins->op2 && !irt_isnum(fins->t))
-    return CONDFOLD(fins->o & 1);
+    return CONDFOLD((fins->o ^ (fins->o >> 1)) & 1);
   if (fins->op1 < fins->op2) {  /* Move lower ref to the right. */
     IRRef1 tmp = fins->op1;
     fins->op1 = fins->op2;