diff options
| author | David Terei <davidterei@gmail.com> | 2011-12-22 14:48:56 -0800 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2012-01-05 17:05:44 -0800 |
| commit | 419af4e718b3c79ee814fb36bd6f5da5e06e7001 (patch) | |
| tree | 509f68331328c1147e16ea019260e85dacf50516 /compiler/cmm/CmmParse.y | |
| parent | ccba0c2275f16d816e212448466a60866fe5183f (diff) | |
| download | haskell-419af4e718b3c79ee814fb36bd6f5da5e06e7001.tar.gz | |
Remove unused arg field of CmmReturn
Diffstat (limited to 'compiler/cmm/CmmParse.y')
| -rw-r--r-- | compiler/cmm/CmmParse.y | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/cmm/CmmParse.y b/compiler/cmm/CmmParse.y index 6660a0c33e..f20a05f40f 100644 --- a/compiler/cmm/CmmParse.y +++ b/compiler/cmm/CmmParse.y @@ -413,8 +413,8 @@ stmt :: { ExtCode } { do l <- lookupLabel $2; stmtEC (CmmBranch l) } | 'jump' expr ';' { do e <- $2; stmtEC (CmmJump e) } - | 'return' maybe_actuals ';' - { do e <- sequence $2; stmtEC (CmmReturn e) } + | 'return' ';' + { stmtEC CmmReturn } | 'if' bool_expr 'goto' NAME { do l <- lookupLabel $4; cmmRawIf $2 l } | 'if' bool_expr '{' body '}' else @@ -946,7 +946,6 @@ emitRetUT args = do -- simultaneous assignments here (#3546) when (sp /= 0) $ stmtC (CmmAssign spReg (cmmRegOffW spReg (-sp))) stmtC $ CmmJump (entryCode (CmmLoad (cmmRegOffW spReg sp) bWord)) - -- TODO (when using CPS): emitStmt (CmmReturn (map snd args)) -- ----------------------------------------------------------------------------- -- If-then-else and boolean expressions |