suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix error reporting for JITted methods

Browse Source 
svn: r3250
This commit is contained in:
Matthew Flatt 2006-06-06 14:30:43 +00:00
parent 14cd52ecd0
commit 58cc9eaf85
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/mzscheme/src/jit.c
View File

@ -5267,8 +5267,6 @@ Scheme_Object *scheme_get_native_arity(Scheme_Object *closure)
has_rest = 1; has_rest = 1;
} else } else
has_rest = 0; has_rest = 0;
if (is_method && v)
--v;
a = scheme_make_arity(v, has_rest ? -1 : v); a = scheme_make_arity(v, has_rest ? -1 : v);
l = scheme_make_pair(a, l); l = scheme_make_pair(a, l);
} }
@ -5279,9 +5277,13 @@ Scheme_Object *scheme_get_native_arity(Scheme_Object *closure)
if (((Scheme_Native_Closure *)closure)->code->code == on_demand_jit_code) { if (((Scheme_Native_Closure *)closure)->code->code == on_demand_jit_code) {
Scheme_Closure c; Scheme_Closure c;
Scheme_Object *a;
c.so.type = scheme_closure_type; c.so.type = scheme_closure_type;
c.code = ((Scheme_Native_Closure *)closure)->code->u2.orig_code; c.code = ((Scheme_Native_Closure *)closure)->code->u2.orig_code;
return scheme_get_or_check_arity((Scheme_Object *)&c, -1); a = scheme_get_or_check_arity((Scheme_Object *)&c, -1);
if (SCHEME_CLOSURE_DATA_FLAGS(c.code) & CLOS_IS_METHOD)
a = scheme_box(a);
return a;
} }
return get_arity_code(closure, 0, 0); return get_arity_code(closure, 0, 0);