From: sewardj <unknown>
Date: Mon, 14 Feb 2000 10:59:30 +0000 (+0000)
Subject: [project @ 2000-02-14 10:59:30 by sewardj]
X-Git-Tag: Approximately_9120_patches~5139
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d2a09a13bf943ac958cbd117e262e7159753bd7c;p=ghc-hetmet.git

[project @ 2000-02-14 10:59:30 by sewardj]
Tart up printStackChunk a bit./
---

diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c
index c8059ab..c165ada 100644
--- a/ghc/rts/Printer.c
+++ b/ghc/rts/Printer.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $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.
  *
@@ -410,7 +410,7 @@ void printStackChunk( StgPtr sp, StgPtr spBottom )
 	  sp++;
 	small_bitmap:
 	  while (bitmap != 0) {
-	    fprintf(stderr,"Stack[%d] (%p) = ", spBottom-sp, sp);
+	    fprintf(stderr,"   stk[%d] (%p) = ", spBottom-sp, sp);
 	    if ((bitmap & 1) == 0) {
 	      printPtr((P_)*sp);
 	      fprintf(stderr,"\n");