From: simonmar <unknown>
Date: Tue, 12 Jul 2005 12:09:44 +0000 (+0000)
Subject: [project @ 2005-07-12 12:09:44 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~369
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b2c6611739821c725899d57c5a4dc90d5cbb0662;p=ghc-hetmet.git

[project @ 2005-07-12 12:09:44 by simonmar]
64 bit fix
---

diff --git a/ghc/rts/Interpreter.c b/ghc/rts/Interpreter.c
index 95759d0..4599552 100644
--- a/ghc/rts/Interpreter.c
+++ b/ghc/rts/Interpreter.c
@@ -577,7 +577,8 @@ do_apply:
 	}	    
 
 	case BCO: {
-	    nat arity, i;
+	    nat arity;
+	    int i; // arithmetic involving i might go negative below
 
 	    Sp++;
 	    arity = ((StgBCO *)obj)->arity;