diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-07-09 16:46:02 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-07-11 10:03:21 +0100 |
| commit | bf32abdab86f1c88c502e1b5a7bd1ea419e6c8b5 (patch) | |
| tree | 8cd3bbc03143c378182fead659ebbcd89a2ef85c /compiler/codeGen/StgCmm.hs | |
| parent | 6ed684b35af3045a41e34b4f8a0b6dd05a6eb700 (diff) | |
| download | haskell-bf32abdab86f1c88c502e1b5a7bd1ea419e6c8b5.tar.gz | |
remove some redundant SRT-related stuff
Diffstat (limited to 'compiler/codeGen/StgCmm.hs')
| -rw-r--r-- | compiler/codeGen/StgCmm.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmm.hs b/compiler/codeGen/StgCmm.hs index 696af8107e..dae0ad05ab 100644 --- a/compiler/codeGen/StgCmm.hs +++ b/compiler/codeGen/StgCmm.hs @@ -149,10 +149,10 @@ cgTopRhs :: Id -> StgRhs -> FCode CgIdInfo cgTopRhs bndr (StgRhsCon _cc con args) = forkStatics (cgTopRhsCon bndr con args) -cgTopRhs bndr (StgRhsClosure cc bi fvs upd_flag srt args body) +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 srt args body) + forkStatics (cgTopRhsClosure bndr cc bi upd_flag args body) --------------------------------------------------------------- |