X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FPrinter.c;h=b73b79ec86d54a17e7dd66c6183552c5b0fa9586;hb=cd0f89a0bf35c36575ea89d7c7599473a3600683;hp=38ade81051f6f5708cbcb4ae83a5100420581bf7;hpb=1da232fccdd01edac72180682540c4d5b5ba71ea;p=ghc-hetmet.git

diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c
index 38ade81..b73b79e 100644
--- a/ghc/rts/Printer.c
+++ b/ghc/rts/Printer.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Printer.c,v 1.59 2003/04/22 16:25:12 simonmar Exp $
+ * $Id: Printer.c,v 1.60 2003/05/14 09:13:59 simonmar Exp $
  *
  * (c) The GHC Team, 1994-2000.
  *
@@ -134,7 +134,7 @@ printClosure( StgClosure *obj )
 #else
             fprintf(stderr,"CONSTR(");
             printPtr((StgPtr)obj->header.info);
-            fprintf(stderr,"(tag=%d)",info->srt_len);
+            fprintf(stderr,"(tag=%d)",info->srt_bitmap);
 #endif
             for (i = 0; i < info->layout.payload.ptrs; ++i) {
 		fprintf(stderr,", ");