diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2017-02-07 22:56:36 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-02-08 10:26:00 -0500 |
| commit | 3328ddb88b6eb11cb1f6e844f883e7e9d2b8f21b (patch) | |
| tree | 3bb04ff1f086a95e8f93041d13a10af7ec1f9011 /compiler/codeGen | |
| parent | 733e845d0f66541a06415c6b420e51fc99eb9d95 (diff) | |
| download | haskell-3328ddb88b6eb11cb1f6e844f883e7e9d2b8f21b.tar.gz | |
Cmm: Add support for undefined unwinding statements
And use to mark `stg_stack_underflow_frame`, which we are unable to
determine a caller from.
To simplify parsing at the moment we steal the `return` keyword to
indicate an undefined unwind value. Perhaps this should be revisited.
Reviewers: scpmw, simonmar, austin, erikd
Subscribers: dfeuer, thomie
Differential Revision: https://phabricator.haskell.org/D2738
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmMonad.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmMonad.hs b/compiler/codeGen/StgCmmMonad.hs index c5ad73da4d..bb093a5e51 100644 --- a/compiler/codeGen/StgCmmMonad.hs +++ b/compiler/codeGen/StgCmmMonad.hs @@ -735,7 +735,7 @@ emitComment _ = return () emitTick :: CmmTickish -> FCode () emitTick = emitCgStmt . CgStmt . CmmTick -emitUnwind :: [(GlobalReg, CmmExpr)] -> FCode () +emitUnwind :: [(GlobalReg, Maybe CmmExpr)] -> FCode () emitUnwind regs = do dflags <- getDynFlags when (debugLevel dflags > 0) $ do |