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

[ghc-hetmet.git] / ghc / rts / Interpreter.c

diff --git a/ghc/rts/Interpreter.c b/ghc/rts/Interpreter.c
index 95759d0..4599552 100644 (file)
--- 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;