diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-16 19:42:07 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-16 19:42:07 +0100 |
| commit | 7ecefb6b30c3b249bba0454586c4a008d66d567b (patch) | |
| tree | 14f9c6c425ba9b0dbeeff024c3546ebc906f9ca3 /compiler/codeGen | |
| parent | 17910899dacc892fd652d9206340d2bc2b2c5fc1 (diff) | |
| download | haskell-7ecefb6b30c3b249bba0454586c4a008d66d567b.tar.gz | |
Move more constants to platformConstants
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/ClosureInfo.lhs | 6 | ||||
| -rw-r--r-- | compiler/codeGen/StgCmmLayout.hs | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/compiler/codeGen/ClosureInfo.lhs b/compiler/codeGen/ClosureInfo.lhs index 6b6bd8b294..20ac63f6d2 100644 --- a/compiler/codeGen/ClosureInfo.lhs +++ b/compiler/codeGen/ClosureInfo.lhs @@ -343,14 +343,14 @@ separateByPtrFollowness things \begin{code} cgRepSizeB :: DynFlags -> CgRep -> ByteOff -cgRepSizeB _ DoubleArg = dOUBLE_SIZE +cgRepSizeB dflags DoubleArg = dOUBLE_SIZE dflags cgRepSizeB _ LongArg = wORD64_SIZE cgRepSizeB _ VoidArg = 0 cgRepSizeB dflags _ = wORD_SIZE dflags cgRepSizeW :: DynFlags -> CgRep -> ByteOff -cgRepSizeW dflags DoubleArg = dOUBLE_SIZE `quot` wORD_SIZE dflags -cgRepSizeW dflags LongArg = wORD64_SIZE `quot` wORD_SIZE dflags +cgRepSizeW dflags DoubleArg = dOUBLE_SIZE dflags `quot` wORD_SIZE dflags +cgRepSizeW dflags LongArg = wORD64_SIZE `quot` wORD_SIZE dflags cgRepSizeW _ VoidArg = 0 cgRepSizeW _ _ = 1 diff --git a/compiler/codeGen/StgCmmLayout.hs b/compiler/codeGen/StgCmmLayout.hs index 8e4d21e352..142100e109 100644 --- a/compiler/codeGen/StgCmmLayout.hs +++ b/compiler/codeGen/StgCmmLayout.hs @@ -387,8 +387,8 @@ argRepSizeW :: DynFlags -> ArgRep -> WordOff -- Size in words argRepSizeW _ N = 1 argRepSizeW _ P = 1 argRepSizeW _ F = 1 -argRepSizeW dflags L = wORD64_SIZE `quot` wORD_SIZE dflags -argRepSizeW dflags D = dOUBLE_SIZE `quot` wORD_SIZE dflags +argRepSizeW dflags L = wORD64_SIZE `quot` wORD_SIZE dflags +argRepSizeW dflags D = dOUBLE_SIZE dflags `quot` wORD_SIZE dflags argRepSizeW _ V = 0 idArgRep :: Id -> ArgRep |