summaryrefslogtreecommitdiff
path: root/compiler/codeGen/StgCmmLayout.hs
diff options
context:
space:
mode:
authorIan Lynagh <ian@well-typed.com>2012-09-16 19:42:07 +0100
committerIan Lynagh <ian@well-typed.com>2012-09-16 19:42:07 +0100
commit7ecefb6b30c3b249bba0454586c4a008d66d567b (patch)
tree14f9c6c425ba9b0dbeeff024c3546ebc906f9ca3 /compiler/codeGen/StgCmmLayout.hs
parent17910899dacc892fd652d9206340d2bc2b2c5fc1 (diff)
downloadhaskell-7ecefb6b30c3b249bba0454586c4a008d66d567b.tar.gz
Move more constants to platformConstants
Diffstat (limited to 'compiler/codeGen/StgCmmLayout.hs')
-rw-r--r--compiler/codeGen/StgCmmLayout.hs4
1 files changed, 2 insertions, 2 deletions
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