From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 2 Dec 2009 14:11:35 +0000 (+0000)
Subject: fix error message on Windows (fixes rtsflags001)
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7cb1d9274e84ee2fc2dd610aa4f7686586ca0357;p=ghc-hetmet.git

fix error message on Windows (fixes rtsflags001)
---

diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c
index 19954f8..12121e8 100644
--- a/rts/RtsFlags.c
+++ b/rts/RtsFlags.c
@@ -1299,8 +1299,9 @@ decodeSize(const char *flag, nat offset, StgWord64 min, StgWord64 max)
     val = (StgWord64)m;
 
     if (m < 0 || val < min || val > max) {
-        errorBelch("error in RTS option %s: size outside allowed range (%" FMT_Word64 " - %" FMT_Word64 ")", 
-                   flag, min, max);
+        // printf doesn't like 64-bit format specs on Windows
+        // apparently, so fall back to unsigned long.
+        errorBelch("error in RTS option %s: size outside allowed range (%lu - %lu)", flag, (lnat)min, (lnat)max);
         stg_exit(EXIT_FAILURE);
     }