From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 16 Dec 2010 16:04:15 +0000 (+0000)
Subject: fix warning
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d34e29883fa05162bd508992c30d17da5ea83653

fix warning
---

diff --git a/rts/Threads.c b/rts/Threads.c
index e86630e..dcb916a 100644
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -667,7 +667,7 @@ threadStackUnderflow (Capability *cap, StgTSO *tso)
     if (retvals != 0)
     {
         // we have some return values to copy to the old stack
-        if ((new_stack->sp - new_stack->stack) < retvals)
+        if ((nat)(new_stack->sp - new_stack->stack) < retvals)
         {
             barf("threadStackUnderflow: not enough space for return values");
         }