diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-10 11:29:31 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-10 11:29:31 +0100 |
| commit | 0ee44def597152e6b25ac6647041542a6b1ee6b4 (patch) | |
| tree | a902cb65e9210148530814442d578c66061ba8c7 /compiler/codeGen/StgCmm.hs | |
| parent | 7d847e8222e901bd41919c6363c2cb6597c20d88 (diff) | |
| parent | c3b6b3fb1c54adaa3cd88d7c06d80a48c7b90939 (diff) | |
| download | haskell-0ee44def597152e6b25ac6647041542a6b1ee6b4.tar.gz | |
Merge branch 'master' of darcs.haskell.org:/srv/darcs//ghc
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) |