summaryrefslogtreecommitdiff
path: root/compiler/codeGen/StgCmmCon.hs
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2012-02-14 11:44:55 +0000
committerSimon Marlow <marlowsd@gmail.com>2012-02-14 11:44:55 +0000
commitb8172ba1e6b463fbacf21fc39474a1b5580c13a0 (patch)
treef197e7efcd8a3f3582971f1c86aad19eea774d0e /compiler/codeGen/StgCmmCon.hs
parent3a47819657f6b8542107d14cbd883d93f6fbf442 (diff)
downloadhaskell-b8172ba1e6b463fbacf21fc39474a1b5580c13a0.tar.gz
Fix an SRT-related bug
We were using the SRT information generated by the computeSRTs pass to decide whether to add a static link field to a constructor or not, and this broke when I disabled computeSRTs for the new code generator. So I've hacked it for now to only rely on the SRT information generated by CoreToStg.
Diffstat (limited to 'compiler/codeGen/StgCmmCon.hs')
-rw-r--r--compiler/codeGen/StgCmmCon.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/codeGen/StgCmmCon.hs b/compiler/codeGen/StgCmmCon.hs
index e17ac4fd32..1a40a4273f 100644
--- a/compiler/codeGen/StgCmmCon.hs
+++ b/compiler/codeGen/StgCmmCon.hs
@@ -92,6 +92,7 @@ cgTopRhsCon id con args
info_tbl
dontCareCCS -- Because it's static data
caffy -- Has CAF refs
+ False -- no SRT
payload
-- BUILD THE OBJECT