summaryrefslogtreecommitdiff
path: root/compiler/cmm/CmmUtils.hs
diff options
context:
space:
mode:
authorIan Lynagh <ian@well-typed.com>2012-09-12 12:37:01 +0100
committerIan Lynagh <ian@well-typed.com>2012-09-12 12:37:01 +0100
commit44b5f471a314d964948c38684ce74b7a87df4ed8 (patch)
tree075f88991983d976ad13714da61b9773a6ca0a02 /compiler/cmm/CmmUtils.hs
parentf611396a581e733c41cee41750c95675bdb64961 (diff)
downloadhaskell-44b5f471a314d964948c38684ce74b7a87df4ed8.tar.gz
Pass DynFlags down to gcWord
Diffstat (limited to 'compiler/cmm/CmmUtils.hs')
-rw-r--r--compiler/cmm/CmmUtils.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmUtils.hs b/compiler/cmm/CmmUtils.hs
index bc092177b1..07130f336b 100644
--- a/compiler/cmm/CmmUtils.hs
+++ b/compiler/cmm/CmmUtils.hs
@@ -89,7 +89,7 @@ import Hoopl
primRepCmmType :: DynFlags -> PrimRep -> CmmType
primRepCmmType _ VoidRep = panic "primRepCmmType:VoidRep"
-primRepCmmType _ PtrRep = gcWord
+primRepCmmType dflags PtrRep = gcWord dflags
primRepCmmType dflags IntRep = bWord dflags
primRepCmmType dflags WordRep = bWord dflags
primRepCmmType _ Int64Rep = b64