/* -----------------------------------------------------------------------------
- * $Id: Printer.c,v 1.51 2002/02/04 20:26:25 sof Exp $
+ * $Id: Printer.c,v 1.53 2002/07/24 18:18:13 sof 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
if (*q == (W_)p) {
if (i < arr_size) {
r = q;
- while (!LOOKS_LIKE_GHC_INFO(*r) || *r == NULL) {
+ while (!LOOKS_LIKE_GHC_INFO(*r) || (P_)*r == NULL) {
r--;
}
fprintf(stdout, "%p = ", r);