Commit ab91cded authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Use 64bit args in mul2

parent 54f69dcc
...@@ -7,8 +7,8 @@ import Data.Bits ...@@ -7,8 +7,8 @@ import Data.Bits
main :: IO () main :: IO ()
main = do f 5 6 main = do f 5 6
f 0xFE36FB18 49 f 0xFD94E3B7FE36FB18 49
f 0xFE36FB18 0xFB29FC6A f 0xFD94E3B7FE36FB18 0xFC1D8A3BFB29FC6A
f :: Word -> Word -> IO () f :: Word -> Word -> IO ()
f wx@(W# x) wy@(W# y) f wx@(W# x) wy@(W# y)
......
...@@ -4,12 +4,12 @@ High: 0 ...@@ -4,12 +4,12 @@ High: 0
Low: 30 Low: 30
Result: 30 Result: 30
----- -----
Doing 4265016088 * 49 Doing 18272479967532481304 * 49
High: 0 High: 48
Low: 208985788312 Low: 9907802871033106328
Result: 208985788312 Result: 895351518409091583896
----- -----
Doing 4265016088 * 4213832810 Doing 18272479967532481304 * 18166828462103985258
High: 0 High: 17995208684035254268
Low: 17972064726792247280 Low: 13422369508946319344
Result: 17972064726792247280 Result: 331953009147393985806713771139776616432
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment