Use 64bit args in mul2
authorIan Lynagh <igloo@earth.li>
Fri, 24 Feb 2012 01:54:58 +0000 (01:54 +0000)
committerIan Lynagh <igloo@earth.li>
Fri, 24 Feb 2012 01:54:58 +0000 (01:54 +0000)
testsuite/tests/numeric/should_run/mul2.hs
testsuite/tests/numeric/should_run/mul2.stdout

index 20756d0..82a89d6 100644 (file)
@@ -7,8 +7,8 @@ import Data.Bits
 
 main :: IO ()
 main = do f 5 6
-          f 0xFE36FB18 49
-          f 0xFE36FB18 0xFB29FC6A
+          f 0xFD94E3B7FE36FB18 49
+          f 0xFD94E3B7FE36FB18 0xFC1D8A3BFB29FC6A
 
 f :: Word -> Word -> IO ()
 f wx@(W# x) wy@(W# y)
index 9431093..1a5107c 100644 (file)
@@ -4,12 +4,12 @@ High: 0
 Low: 30
 Result: 30
 -----
-Doing 4265016088 * 49
-High: 0
-Low: 208985788312
-Result: 208985788312
+Doing 18272479967532481304 * 49
+High: 48
+Low: 9907802871033106328
+Result: 895351518409091583896
 -----
-Doing 4265016088 * 4213832810
-High: 0
-Low: 17972064726792247280
-Result: 17972064726792247280
+Doing 18272479967532481304 * 18166828462103985258
+High: 17995208684035254268
+Low: 13422369508946319344
+Result: 331953009147393985806713771139776616432