From b2c6611739821c725899d57c5a4dc90d5cbb0662 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 12 Jul 2005 12:09:44 +0000
Subject: [PATCH] [project @ 2005-07-12 12:09:44 by simonmar] 64 bit fix

---
 ghc/rts/Interpreter.c |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
-- 
1.7.10.4