[make 'div' and 'mod' round to -Infinity properly
John Meacham <john@repetae.net>**20120220094634
 Ignore-this: c46b383b9a2a6a63ff44e30a8a63f376
] hunk ./lib/jhc/Jhc/Class/Real.hs 32
-    divMod n d       =  if signum r == - signum d then (q-1, r+d) else qr
+    divMod n d       =  n `seq` d `seq` if signum r == - signum d then (q-1, r+d) else qr
hunk ./lib/jhc/Jhc/Int.hs 4
-module Jhc.Int(Int(),Int_(),increment,decrement,plus,minus,times,divide,modulus,zero,one,boxInt,unboxInt) where
+module Jhc.Int(Int(),Int_(),increment,decrement,plus,minus,times,quotient,remainder,zero,one,boxInt,unboxInt) where
hunk ./lib/jhc/Jhc/Int.hs 8
-foreign import primitive increment :: Int -> Int
-foreign import primitive decrement :: Int -> Int
+foreign import primitive increment       :: Int -> Int
+foreign import primitive decrement       :: Int -> Int
hunk ./lib/jhc/Jhc/Int.hs 13
-foreign import primitive "Div" divide    :: Int -> Int -> Int
-foreign import primitive "Mod" modulus   :: Int -> Int -> Int
-foreign import primitive zero      :: Int
-foreign import primitive one       :: Int
+foreign import primitive "Quot" quotient :: Int -> Int -> Int
+foreign import primitive "Rem" remainder :: Int -> Int -> Int
+foreign import primitive zero            :: Int
+foreign import primitive one             :: Int
hunk ./lib/jhc/Jhc/Num.m4 36
-    div = div$1
+--    div = div$1
hunk ./lib/jhc/Jhc/Num.m4 38
-    mod = mod$1
+--    mod = mod$1
hunk ./lib/jhc/Jhc/Num.m4 45
-foreign import primitive "Div" div$1   :: $1 -> $1 -> $1
+--foreign import primitive "Div" div$1   :: $1 -> $1 -> $1
hunk ./lib/jhc/Jhc/Num.m4 47
-foreign import primitive "Mod" mod$1   :: $1 -> $1 -> $1
+--foreign import primitive "Mod" mod$1   :: $1 -> $1 -> $1
hunk ./src/C/FromGrin2.hs 716
-    (Op.Div,"/"),  -- TODO round to -Infinity
-    (Op.Mod,"%"),  -- TODO round to -Infinity
+--    (Op.Div,"/"),  -- TODO round to -Infinity
+--    (Op.Mod,"%"),  -- TODO round to -Infinity