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-21 16:09:18 by panne]
[ghc-hetmet.git]
/
ghc
/
rts
/
ProfHeap.c
diff --git
a/ghc/rts/ProfHeap.c
b/ghc/rts/ProfHeap.c
index
70cafde
..
f30ef5d
100644
(file)
--- a/
ghc/rts/ProfHeap.c
+++ b/
ghc/rts/ProfHeap.c
@@
-744,15
+744,15
@@
dumpCensus( Census *census )
#ifdef PROFILING
if (RtsFlags.ProfFlags.doHeapProfile == HEAP_BY_LDV) {
#ifdef PROFILING
if (RtsFlags.ProfFlags.doHeapProfile == HEAP_BY_LDV) {
- fprintf(hp_file, "VOID\t%lu\n", census->void_total * sizeof(W_));
+ fprintf(hp_file, "VOID\t%lu\n", (unsigned long)(census->void_total) * sizeof(W_));
fprintf(hp_file, "LAG\t%lu\n",
fprintf(hp_file, "LAG\t%lu\n",
- (census->not_used - census->void_total) * sizeof(W_));
+ (unsigned long)(census->not_used - census->void_total) * sizeof(W_));
fprintf(hp_file, "USE\t%lu\n",
fprintf(hp_file, "USE\t%lu\n",
- (census->used - census->drag_total) * sizeof(W_));
+ (unsigned long)(census->used - census->drag_total) * sizeof(W_));
fprintf(hp_file, "INHERENT_USE\t%lu\n",
fprintf(hp_file, "INHERENT_USE\t%lu\n",
- census->prim * sizeof(W_));
- fprintf(hp_file, "DRAG\t%lu\n", census->drag_total *
- sizeof(W_));
+ (unsigned long)(census->prim) * sizeof(W_));
+ fprintf(hp_file, "DRAG\t%lu\n",
+ (unsigned long)(census->drag_total) * sizeof(W_));
printSample(rtsFalse, census->time);
return;
}
printSample(rtsFalse, census->time);
return;
}
@@
-830,7
+830,7
@@
dumpCensus( Census *census )
}
#endif
}
#endif
- fprintf(hp_file, "\t%ld\n", count * sizeof(W_));
+ fprintf(hp_file, "\t%lu\n", (unsigned long)count * sizeof(W_));
}
printSample(rtsFalse, census->time);
}
printSample(rtsFalse, census->time);