Fix integerConstantFolding on 32bit platforms
authorIan Lynagh <igloo@earth.li>
Fri, 29 Jul 2011 20:48:15 +0000 (21:48 +0100)
committerIan Lynagh <igloo@earth.li>
Fri, 29 Jul 2011 20:50:02 +0000 (21:50 +0100)
Daniel Fischer pointed out that the timesInteger test result doesn't
fir into Int on 32bit platforms.

testsuite/tests/lib/integer/Makefile
testsuite/tests/lib/integer/integerConstantFolding.hs
testsuite/tests/lib/integer/integerConstantFolding.stdout

index 1e2aa6e..ffb498f 100644 (file)
@@ -11,7 +11,7 @@ integerConstantFolding:
 # All the 100nnn values should be constant-folded away
        ! grep -q '\<100[0-9][0-9][0-9]\>' integerConstantFolding.simpl || { echo "Unfolded values found"; grep '\<100[0-9][0-9][0-9]\>' integerConstantFolding.simpl; }
        $(call CHECK,\<200007\>,plusInteger)
-       $(call CHECK,\<10001100030\>,timesInteger)
+       $(call CHECK,\<683234160\>,timesInteger)
        $(call CHECK,-991\>,minusIntegerN)
        $(call CHECK,\<989\>,minusIntegerP)
        $(call CHECK,-200011\>,negateInteger)
index 49fd183..8eb3f63 100644 (file)
@@ -48,7 +48,7 @@ plusInteger :: Integer
 plusInteger = 100003 + 100004
 
 timesInteger :: Integer
-timesInteger = 100005 * 100006
+timesInteger = 100005 * 6832
 
 minusIntegerN :: Integer
 minusIntegerN = 100007 - 100998
index a392ba1..d3756c1 100644 (file)
@@ -1,5 +1,5 @@
 plusInteger: 200007
-timesInteger: 10001100030
+timesInteger: 683234160
 minusIntegerN: -991
 minusIntegerP: 989
 negateInteger: -200011