From: Ian Lynagh <igloo@earth.li>
Date: Fri, 9 Jan 2009 16:04:54 +0000 (+0000)
Subject: Add "Word size" to the +RTS --info output
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=5009cff46241dbfdea03010683807e1b891726ac;hp=a77e5e35a757f75a7f46749df1aa7aaa999718a9

Add "Word size" to the +RTS --info output
---

diff --git a/rts/RtsUtils.c b/rts/RtsUtils.c
index 42bffed..4d78bcb 100644
--- a/rts/RtsUtils.c
+++ b/rts/RtsUtils.c
@@ -473,6 +473,11 @@ static void mkRtsInfoPair(char *key, char *val) {
     printf(" ,(\"%s\", \"%s\")\n", key, val);
 }
 
+/* This little bit of magic allows us to say TOSTRING(SYM) and get
+ * "5" if SYM is 5 */
+#define TOSTRING2(x) #x
+#define TOSTRING(x)  TOSTRING2(x)
+
 void printRtsInfo(void) {
     /* The first entry is just a hack to make it easy to get the
      * commas right */
@@ -491,6 +496,7 @@ void printRtsInfo(void) {
     mkRtsInfoPair("Target architecture",     TargetArch);
     mkRtsInfoPair("Target OS",               TargetOS);
     mkRtsInfoPair("Target vendor",           TargetVendor);
+    mkRtsInfoPair("Word size",               TOSTRING(WORD_SIZE_IN_BITS));
     mkRtsInfoPair("Compiler unregisterised", GhcUnregisterised);
     mkRtsInfoPair("Tables next to code",     GhcEnableTablesNextToCode);
     printf(" ]\n");