X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FPrinter.c;h=48fed9975d425a1c3ebd606c987ca354537d2bdd;hb=9da01c710daee2cd5038afb8fad761cdaf343033;hp=cf0e06cd95d860396e2d920a2f049478c034dd6e;hpb=8931116063aaf06ed2759e2b2ca2e554cfa7124f;p=ghc-hetmet.git

diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c
index cf0e06c..48fed99 100644
--- a/ghc/rts/Printer.c
+++ b/ghc/rts/Printer.c
@@ -1,6 +1,6 @@
 
 /* -----------------------------------------------------------------------------
- * $Id: Printer.c,v 1.7 1999/03/01 14:47:06 sewardj Exp $
+ * $Id: Printer.c,v 1.9 1999/03/09 14:51:23 sewardj Exp $
  *
  * Copyright (c) 1994-1999.
  *
@@ -372,7 +372,7 @@ StgPtr printStackObj( StgPtr sp )
 
 void printStackChunk( StgPtr sp, StgPtr spBottom )
 {
-    StgNat32 bitmap;
+    StgWord32 bitmap;
     const StgInfoTable *info;
 
     ASSERT(sp <= spBottom);