diff options
Diffstat (limited to 'ghc/rts/Printer.c')
| -rw-r--r-- | ghc/rts/Printer.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c index 38ade81051..b73b79ec86 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,", "); |