From: simonmar@microsoft.com <unknown>
Date: Fri, 15 Feb 2008 13:30:40 +0000 (+0000)
Subject: add ROUNDUP_BYTES_TO_WDS
X-Git-Tag: Before_cabalised-GHC~248
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=60680c9d7ee0a3c985f1b2c5f0d97568f2de625b

add ROUNDUP_BYTES_TO_WDS
---

diff --git a/includes/Rts.h b/includes/Rts.h
index 5aff979..ec84ed9 100644
--- 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!)
  */
-#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