Commit d2a09a13 authored by sewardj's avatar sewardj
Browse files

[project @ 2000-02-14 10:59:30 by sewardj]

Tart up printStackChunk a bit./
parent d381d209
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: Printer.c,v 1.20 2000/01/14 14:56:40 simonmar Exp $ * $Id: Printer.c,v 1.21 2000/02/14 10:59:30 sewardj Exp $
* *
* (c) The GHC Team, 1994-2000. * (c) The GHC Team, 1994-2000.
* *
...@@ -410,7 +410,7 @@ void printStackChunk( StgPtr sp, StgPtr spBottom ) ...@@ -410,7 +410,7 @@ void printStackChunk( StgPtr sp, StgPtr spBottom )
sp++; sp++;
small_bitmap: small_bitmap:
while (bitmap != 0) { while (bitmap != 0) {
fprintf(stderr,"Stack[%d] (%p) = ", spBottom-sp, sp); fprintf(stderr," stk[%d] (%p) = ", spBottom-sp, sp);
if ((bitmap & 1) == 0) { if ((bitmap & 1) == 0) {
printPtr((P_)*sp); printPtr((P_)*sp);
fprintf(stderr,"\n"); fprintf(stderr,"\n");
......
Markdown is supported
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