projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Declare RTS-private prototypes with __attribute__((visibility("hidden")))
[ghc-hetmet.git]
/
rts
/
RetainerSet.c
diff --git
a/rts/RetainerSet.c
b/rts/RetainerSet.c
index
bfa0bc8
..
5e9b37c
100644
(file)
--- a/
rts/RetainerSet.c
+++ b/
rts/RetainerSet.c
@@
-9,15
+9,15
@@
#ifdef PROFILING
#ifdef PROFILING
+#include "PosixSource.h"
#include "Rts.h"
#include "Rts.h"
-#include "RtsFlags.h"
+
#include "Stats.h"
#include "RtsUtils.h"
#include "RetainerSet.h"
#include "Arena.h"
#include "Profiling.h"
#include "Stats.h"
#include "RtsUtils.h"
#include "RetainerSet.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
@@
-239,7
+239,7
@@
traverseAllRetainerSet(void (*f)(RetainerSet *))
void
printRetainer(FILE *f, retainer itbl)
{
void
printRetainer(FILE *f, retainer itbl)
{
- fprintf(f, "%s[%s]", itbl->prof.closure_desc, itbl->prof.closure_type);
+ fprintf(f, "%s[%s]", GET_PROF_DESC(itbl), itbl->prof.closure_type);
}
#elif defined(RETAINER_SCHEME_CCS)
// Retainer scheme 2: retainer = cost centre stack
}
#elif defined(RETAINER_SCHEME_CCS)
// Retainer scheme 2: retainer = cost centre stack
@@
-283,7
+283,7
@@
printRetainerSetShort(FILE *f, RetainerSet *rs)
for (j = 0; j < rs->num; j++) {
if (j < rs->num - 1) {
for (j = 0; j < rs->num; j++) {
if (j < rs->num - 1) {
- strncpy(tmp + size, rs->element[j]->prof.closure_desc, MAX_RETAINER_SET_SPACE - size);
+ strncpy(tmp + size, GET_PROF_DESC(rs->element[j]), MAX_RETAINER_SET_SPACE - size);
size = strlen(tmp);
if (size == MAX_RETAINER_SET_SPACE)
break;
size = strlen(tmp);
if (size == MAX_RETAINER_SET_SPACE)
break;
@@
-293,7
+293,7
@@
printRetainerSetShort(FILE *f, RetainerSet *rs)
break;
}
else {
break;
}
else {
- strncpy(tmp + size, rs->element[j]->prof.closure_desc, MAX_RETAINER_SET_SPACE - size);
+ strncpy(tmp + size, GET_PROF_DESC(rs->element[j]), MAX_RETAINER_SET_SPACE - size);
// size = strlen(tmp);
}
}
// size = strlen(tmp);
}
}
@@
-345,7
+345,7
@@
printRetainerSetShort(FILE *f, RetainerSet *rs)
// size = strlen(tmp);
}
}
// size = strlen(tmp);
}
}
- fprintf(f, tmp);
+ fputs(tmp, f);
}
#elif defined(RETAINER_SCHEME_CC)
// Retainer scheme 3: retainer = cost centre
}
#elif defined(RETAINER_SCHEME_CC)
// Retainer scheme 3: retainer = cost centre