diff options
| author | sewardj <unknown> | 1999-11-22 16:16:35 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 1999-11-22 16:16:35 +0000 |
| commit | 4d2936c069f23c070e2bc74ec09f31e9635687dd (patch) | |
| tree | 34c59c35d017691c4470d5fdbb264dd3ef619504 /ghc/rts | |
| parent | 0b5eec4282cc6eb6336b2f96ca9c00df4d3fbb24 (diff) | |
| download | haskell-4d2936c069f23c070e2bc74ec09f31e9635687dd.tar.gz | |
[project @ 1999-11-22 16:16:35 by sewardj]
Convert some DEBUG_EXTRAs into DEBUGs.
Diffstat (limited to 'ghc/rts')
| -rw-r--r-- | ghc/rts/Printer.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c index 8be29aa6c0..a6e0c4c922 100644 --- a/ghc/rts/Printer.c +++ b/ghc/rts/Printer.c @@ -1,6 +1,6 @@ /* ----------------------------------------------------------------------------- - * $Id: Printer.c,v 1.15 1999/07/14 13:44:19 simonmar Exp $ + * $Id: Printer.c,v 1.16 1999/11/22 16:16:35 sewardj Exp $ * * Copyright (c) 1994-1999. * @@ -310,7 +310,7 @@ StgPtr printStackObj( StgPtr sp ) if (IS_ARG_TAG(*sp)) { -#ifdef DEBUG_EXTRA +#ifdef DEBUG StackTag tag = (StackTag)*sp; switch ( tag ) { case ILLEGAL_TAG: @@ -345,7 +345,7 @@ StgPtr printStackObj( StgPtr sp ) } sp += 1 + ARG_SIZE(tag); -#else /* !DEBUG_EXTRA */ +#else /* !DEBUG */ { StgWord tag = *sp++; nat i; |