projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add +RTS -vg flag for requesting some GC trace messages, outside DEBUG
[ghc-hetmet.git]
/
includes
/
Rts.h
diff --git
a/includes/Rts.h
b/includes/Rts.h
index
5aff979
..
ec84ed9
100644
(file)
--- a/
includes/Rts.h
+++ b/
includes/Rts.h
@@
-51,7
+51,9
@@
extern "C" {
* We often want to know the size of something in units of an
* StgWord... (rounded up, of course!)
*/
* We often want to know the size of something in units of an
* StgWord... (rounded up, of course!)
*/
-#define sizeofW(t) ((sizeof(t)+sizeof(W_)-1)/sizeof(W_))
+#define ROUNDUP_BYTES_TO_WDS(n) (((n) + sizeof(W_) - 1) / sizeof(W_))
+
+#define sizeofW(t) ROUNDUP_BYTES_TO_WDS(sizeof(t))
/*
* It's nice to be able to grep for casts
/*
* It's nice to be able to grep for casts