/* -----------------------------------------------------------------------------
- * $Id: Printer.c,v 1.50 2001/12/06 14:33:02 simonmar Exp $
+ * $Id: Printer.c,v 1.52 2002/07/17 09:21:50 simonmar Exp $
*
* (c) The GHC Team, 1994-2000.
*
#include "Rts.h"
#include "Printer.h"
+#include <stdio.h>
+
#ifdef DEBUG
#include "RtsUtils.h"
#include "Bytecodes.h" /* for InstrPtr */
#include "Disassembler.h"
-#include "Printer.h"
+#include <stdlib.h>
+#include <string.h>
#if defined(GRAN) || defined(PAR)
// HWL: explicit fixed header size to make debugging easier
putchar(arrWordsGetChar(obj,i));
} */
for (i=0; i<((StgArrWords *)obj)->words; i++)
- fprintf(stdout, "%ld", ((StgArrWords *)obj)->payload[i]);
+ fprintf(stdout, "%u", ((StgArrWords *)obj)->payload[i]);
fprintf(stdout,"\")\n");
break;
}