/* -----------------------------------------------------------------------------
- * $Id: RetainerSet.c,v 1.5 2003/11/12 17:49:08 sof Exp $
*
* (c) The GHC Team, 2001
* Author: Sungwoo Park
#ifdef PROFILING
-#include <stdlib.h>
-
#include "Rts.h"
#include "RtsFlags.h"
#include "Stats.h"
#include "Arena.h"
#include "Profiling.h"
+#include <stdlib.h>
#include <string.h>
#define HASH_TABLE_SIZE 255
StgWord hk; // Hash Key
#ifdef DEBUG_RETAINER
- // fprintf(stderr, "addElement(%p, %p) = ", r, rs);
+ // debugBelch("addElement(%p, %p) = ", r, rs);
#endif
ASSERT(rs != NULL);
if (i < rs->num) continue;
#ifdef DEBUG_RETAINER
- // fprintf(stderr, "%p\n", nrs);
+ // debugBelch("%p\n", nrs);
#endif
// The set we are seeking already exists!
return nrs;
hashTable[hash(hk)] = nrs;
#ifdef DEBUG_RETAINER
- // fprintf(stderr, "%p\n", nrs);
+ // debugBelch("%p\n", nrs);
#endif
return nrs;
}