projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-05-23 15:44:10 by simonmar]
[ghc-hetmet.git]
/
ghc
/
rts
/
RetainerSet.c
diff --git
a/ghc/rts/RetainerSet.c
b/ghc/rts/RetainerSet.c
index
45b74b0
..
bfa0bc8
100644
(file)
--- a/
ghc/rts/RetainerSet.c
+++ b/
ghc/rts/RetainerSet.c
@@
-1,5
+1,4
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: RetainerSet.c,v 1.5 2003/11/12 17:49:08 sof Exp $
*
* (c) The GHC Team, 2001
* Author: Sungwoo Park
*
* (c) The GHC Team, 2001
* Author: Sungwoo Park
@@
-10,8
+9,6
@@
#ifdef PROFILING
#ifdef PROFILING
-#include <stdlib.h>
-
#include "Rts.h"
#include "RtsFlags.h"
#include "Stats.h"
#include "Rts.h"
#include "RtsFlags.h"
#include "Stats.h"
@@
-20,6
+17,7
@@
#include "Arena.h"
#include "Profiling.h"
#include "Arena.h"
#include "Profiling.h"
+#include <stdlib.h>
#include <string.h>
#define HASH_TABLE_SIZE 255
#include <string.h>
#define HASH_TABLE_SIZE 255
@@
-90,7
+88,7
@@
refreshAllRetainerSet(void)
for (i = 0; i < HASH_TABLE_SIZE; i++)
hashTable[i] = NULL;
nextId = 2;
for (i = 0; i < HASH_TABLE_SIZE; i++)
hashTable[i] = NULL;
nextId = 2;
-#endif // FIRST_APPROACH
+#endif /* FIRST_APPROACH */
}
/* -----------------------------------------------------------------------------
}
/* -----------------------------------------------------------------------------
@@
-148,7
+146,7
@@
addElement(retainer r, RetainerSet *rs)
StgWord hk; // Hash Key
#ifdef DEBUG_RETAINER
StgWord hk; // Hash Key
#ifdef DEBUG_RETAINER
- // fprintf(stderr, "addElement(%p, %p) = ", r, rs);
+ // debugBelch("addElement(%p, %p) = ", r, rs);
#endif
ASSERT(rs != NULL);
#endif
ASSERT(rs != NULL);
@@
-188,7
+186,7
@@
addElement(retainer r, RetainerSet *rs)
if (i < rs->num) continue;
#ifdef DEBUG_RETAINER
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;
#endif
// The set we are seeking already exists!
return nrs;
@@
-211,7
+209,7
@@
addElement(retainer r, RetainerSet *rs)
hashTable[hash(hk)] = nrs;
#ifdef DEBUG_RETAINER
hashTable[hash(hk)] = nrs;
#ifdef DEBUG_RETAINER
- // fprintf(stderr, "%p\n", nrs);
+ // debugBelch("%p\n", nrs);
#endif
return nrs;
}
#endif
return nrs;
}
@@
-495,6
+493,6
@@
outputAllRetainerSet(FILE *prof_file)
stgFree(rsArray);
}
stgFree(rsArray);
}
-#endif // SECOND_APPROACH
+#endif /* SECOND_APPROACH */
#endif /* PROFILING */
#endif /* PROFILING */