diff options
| author | simonmar <unknown> | 2005-07-12 12:09:44 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-07-12 12:09:44 +0000 |
| commit | b2c6611739821c725899d57c5a4dc90d5cbb0662 (patch) | |
| tree | 156c28e448e7e72f186896730cf26154da0b9b32 /ghc/rts/Interpreter.c | |
| parent | 713063076560e0a8e23de6c361e5df8218004e41 (diff) | |
| download | haskell-b2c6611739821c725899d57c5a4dc90d5cbb0662.tar.gz | |
[project @ 2005-07-12 12:09:44 by simonmar]
64 bit fix
Diffstat (limited to 'ghc/rts/Interpreter.c')
| -rw-r--r-- | ghc/rts/Interpreter.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/rts/Interpreter.c b/ghc/rts/Interpreter.c index 95759d024d..45995520dc 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; |