diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-09-04 13:57:26 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-09-04 13:58:27 +0100 |
| commit | bd5354e31c98c489d58ec686dd87d0d2d5e4d622 (patch) | |
| tree | db9676904621271e124ff50d52d05fe1e9297fa2 /compiler/codeGen/StgCmm.hs | |
| parent | e6411395563c3d425bc78a78b189b33eb3d3cc07 (diff) | |
| download | haskell-bd5354e31c98c489d58ec686dd87d0d2d5e4d622.tar.gz | |
Fix -split-objs with the new code generator
We need to make the SRT label external and unique when splitting,
because it is shared amongst all the functions in the module. Also
some SRT-related cleanup.
Diffstat (limited to 'compiler/codeGen/StgCmm.hs')
| -rw-r--r-- | compiler/codeGen/StgCmm.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmm.hs b/compiler/codeGen/StgCmm.hs index b8ed1aa939..d74533d76e 100644 --- a/compiler/codeGen/StgCmm.hs +++ b/compiler/codeGen/StgCmm.hs @@ -143,7 +143,6 @@ cgTopRhs bndr (StgRhsCon _cc con args) cgTopRhs bndr (StgRhsClosure cc bi fvs upd_flag _srt args body) = ASSERT(null fvs) -- There should be no free variables - setSRTLabel (mkSRTLabel (idName bndr) (idCafInfo bndr)) $ forkStatics (cgTopRhsClosure bndr cc bi upd_flag args body) |