diff options
author | Sven Tennie <sven.tennie@gmail.com> | 2023-01-21 15:43:06 +0000 |
---|---|---|
committer | Sven Tennie <sven.tennie@gmail.com> | 2023-01-21 15:43:06 +0000 |
commit | 1c9b803c3fc5e6be6f9c99ad45289b4a7aa1dcc5 (patch) | |
tree | fe3b161a979db4ebc0e21a4dc5a2138aa4be412b | |
parent | 019f0eaca857d846c0139b666e3eb733e2137c1b (diff) | |
download | haskell-1c9b803c3fc5e6be6f9c99ad45289b4a7aa1dcc5.tar.gz |
Cleanup
-rw-r--r-- | libraries/ghc-heap/cbits/Stack.cmm | 16 |
1 files changed, 3 insertions, 13 deletions
diff --git a/libraries/ghc-heap/cbits/Stack.cmm b/libraries/ghc-heap/cbits/Stack.cmm index 4fa5586f57..b51adcfa90 100644 --- a/libraries/ghc-heap/cbits/Stack.cmm +++ b/libraries/ghc-heap/cbits/Stack.cmm @@ -1,8 +1,7 @@ -#include "Cmm.h" - -// TODO: comment out // Uncomment to enable assertions during development -#define DEBUG 1 +// #define DEBUG 1 + +#include "Cmm.h" advanceStackFrameIterzh (P_ stack, W_ offsetWords) { W_ frameSize; @@ -40,15 +39,6 @@ advanceStackFrameIterzh (P_ stack, W_ offsetWords) { } } - // TODO: Execute this block only in -DDEBUG -#if DEBUG - if(hasNext > 0) { - P_ nextClosure; - nextClosure = StgStack_sp(stack) + WDS(offsetWords); - ASSERT(LOOKS_LIKE_CLOSURE_PTR(nextClosure)); - } -#endif - return (newStack, newOffsetWords, hasNext); } |