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

64 bit fix

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;