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

fix bad case-lambda sharing that breaks let-depth tracking

Browse Source
This commit is contained in:
Matthew Flatt 2015-01-06 12:43:29 -07:00
parent 3408209f66
commit e82487429b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/src/racket/src/jit.c
View File

@ -1329,12 +1329,13 @@ static Scheme_Native_Closure_Data *create_native_case_lambda(Scheme_Case_Lambda
o = c->array[i]; o = c->array[i];
if (SCHEME_PROCP(o)) if (SCHEME_PROCP(o))
o = (Scheme_Object *)((Scheme_Closure *)o)->code; o = (Scheme_Object *)((Scheme_Closure *)o)->code;
data = (Scheme_Closure_Data *)o; data = MALLOC_ONE_TAGGED(Scheme_Closure_Data);
memcpy(data, o, sizeof(Scheme_Closure_Data));
ensure_closure_native(data, ndata); ensure_closure_native(data, ndata);
if (data->u.native_code->max_let_depth > max_let_depth) if (data->u.native_code->max_let_depth > max_let_depth)
max_let_depth = data->u.native_code->max_let_depth; max_let_depth = data->u.native_code->max_let_depth;
c->array[i] = (Scheme_Object *)data;
} }
printf("%d\n", max_let_depth);
ndata->max_let_depth = max_let_depth; ndata->max_let_depth = max_let_depth;
ndata->closure_size = -(count + 1); /* Indicates case-lambda */ ndata->closure_size = -(count + 1); /* Indicates case-lambda */