Use 64bit args in mul2

ghc · Feb 24, 2012 · 6f3696c · 6f3696c
1 parent d0bb71a
commit 6f3696c
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 10 deletions.
diff --git a/tests/numeric/should_run/mul2.hs b/tests/numeric/should_run/mul2.hs
@@ -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)

diff --git a/tests/numeric/should_run/mul2.stdout b/tests/numeric/should_run/mul2.stdout
@@ -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