Commit a7e145c0 authored by Ian Lynagh's avatar Ian Lynagh

Remove some redundant fromIntegral's

parent b7fe69ec
...@@ -174,7 +174,7 @@ mkBitmapArray bsize bitmap ...@@ -174,7 +174,7 @@ mkBitmapArray bsize bitmap
mkInstrArray :: Word16 -> [Word16] -> UArray Word16 Word16 mkInstrArray :: Word16 -> [Word16] -> UArray Word16 Word16
mkInstrArray n_insns asm_insns mkInstrArray n_insns asm_insns
= listArray (0, n_insns) (fromIntegral n_insns : asm_insns) = listArray (0, n_insns) (n_insns : asm_insns)
-- instrs nonptrs ptrs -- instrs nonptrs ptrs
type AsmState = (SizedSeq Word16, type AsmState = (SizedSeq Word16,
......
...@@ -438,7 +438,7 @@ schemeE d s p (AnnLet binds (_,body)) ...@@ -438,7 +438,7 @@ schemeE d s p (AnnLet binds (_,body))
compile_bind d' fvs x rhs size arity off = do compile_bind d' fvs x rhs size arity off = do
bco <- schemeR fvs (x,rhs) bco <- schemeR fvs (x,rhs)
build_thunk (fromIntegral d') fvs size bco off arity build_thunk d' fvs size bco off arity
compile_binds = compile_binds =
[ compile_bind d' fvs x rhs size arity n [ compile_bind d' fvs x rhs size arity n
...@@ -1203,7 +1203,7 @@ pushAtom d p (AnnVar v) ...@@ -1203,7 +1203,7 @@ pushAtom d p (AnnVar v)
= return (unitOL (PUSH_PRIMOP primop), 1) = return (unitOL (PUSH_PRIMOP primop), 1)
| Just d_v <- lookupBCEnv_maybe p v -- v is a local variable | Just d_v <- lookupBCEnv_maybe p v -- v is a local variable
= let l = d - fromIntegral d_v + sz - 2 = let l = d - d_v + sz - 2
in return (toOL (genericReplicate sz (PUSH_L l)), sz) in return (toOL (genericReplicate sz (PUSH_L l)), sz)
-- d - d_v the number of words between the TOS -- d - d_v the number of words between the TOS
-- and the 1st slot of the object -- and the 1st slot of the object
......
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