Commit 4d2936c0 authored by sewardj's avatar sewardj
Browse files

[project @ 1999-11-22 16:16:35 by sewardj]

Convert some DEBUG_EXTRAs into DEBUGs.
parent 0b5eec42
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $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. * Copyright (c) 1994-1999.
* *
...@@ -310,7 +310,7 @@ StgPtr printStackObj( StgPtr sp ) ...@@ -310,7 +310,7 @@ StgPtr printStackObj( StgPtr sp )
if (IS_ARG_TAG(*sp)) { if (IS_ARG_TAG(*sp)) {
#ifdef DEBUG_EXTRA #ifdef DEBUG
StackTag tag = (StackTag)*sp; StackTag tag = (StackTag)*sp;
switch ( tag ) { switch ( tag ) {
case ILLEGAL_TAG: case ILLEGAL_TAG:
...@@ -345,7 +345,7 @@ StgPtr printStackObj( StgPtr sp ) ...@@ -345,7 +345,7 @@ StgPtr printStackObj( StgPtr sp )
} }
sp += 1 + ARG_SIZE(tag); sp += 1 + ARG_SIZE(tag);
#else /* !DEBUG_EXTRA */ #else /* !DEBUG */
{ {
StgWord tag = *sp++; StgWord tag = *sp++;
nat i; nat i;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment