Commit b2c66117 authored by simonmar's avatar simonmar
Browse files

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

64 bit fix
parent 71306307
...@@ -577,7 +577,8 @@ do_apply: ...@@ -577,7 +577,8 @@ do_apply:
} }
case BCO: { case BCO: {
nat arity, i; nat arity;
int i; // arithmetic involving i might go negative below
Sp++; Sp++;
arity = ((StgBCO *)obj)->arity; arity = ((StgBCO *)obj)->arity;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment