diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2015-09-25 18:00:19 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-11-23 17:47:41 +0100 |
| commit | 7aaeaf81ea95c36fe1dc4da449cf6092a792fd09 (patch) | |
| tree | 79703e6d9db2f81507272d9efd1a5952b17c7924 /compiler/cmm | |
| parent | bb249aa749c82590823855e970bcc1c4d4b23523 (diff) | |
| download | haskell-7aaeaf81ea95c36fe1dc4da449cf6092a792fd09.tar.gz | |
Support multiple debug output levels
We now only strip block information from DebugBlocks when compiling with
`-g1`, intended to be used when only minimal debug information is
desired. `-g2` is assumed when `-g` is passed without any integer
argument.
Differential Revision: https://phabricator.haskell.org/D1281
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CmmLayoutStack.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmLayoutStack.hs b/compiler/cmm/CmmLayoutStack.hs index 5140aa3ae6..90fc613475 100644 --- a/compiler/cmm/CmmLayoutStack.hs +++ b/compiler/cmm/CmmLayoutStack.hs @@ -796,7 +796,7 @@ manifestSp dflags stackmaps stack0 sp0 sp_high -- Add unwind pseudo-instructions to document Sp level for debugging add_unwind_info block - | gopt Opt_Debug dflags = CmmUnwind Sp sp_unwind : block + | debugLevel dflags > 0 = CmmUnwind Sp sp_unwind : block | otherwise = block sp_unwind = CmmRegOff (CmmGlobal Sp) (sp0 - wORD_SIZE dflags) |