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

minor code clean-ups

Browse Source
This commit is contained in:
Matthew Flatt 2011-05-03 10:22:02 -06:00
parent 6f1aa7bc00
commit be524ade36
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/src/fun.c
View File

@ -9955,7 +9955,7 @@ static Scheme_Object *read_compiled_closure(Scheme_Object *obj)
n[i+1] = v2; n[i+1] = v2;
} }
if ((len == 2) && (!(n[1] & 0x80000000))) if ((len == 2) && (!(n[1] & 0x80000000)))
data->tl_map = (void *)((n[1] << 1) | 0x1); data->tl_map = (void *)(intptr_t)((n[1] << 1) | 0x1);
else else
data->tl_map = n; data->tl_map = n;
} else } else

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

@ -1197,7 +1197,6 @@ static Scheme_Native_Closure_Data *create_native_case_lambda(Scheme_Case_Lambda
Scheme_Native_Closure_Data *ndata; Scheme_Native_Closure_Data *ndata;
Scheme_Object *name, *o; Scheme_Object *name, *o;
int max_let_depth = 0, i, count, is_method = 0; int max_let_depth = 0, i, count, is_method = 0;
void *tl_map;
ndata = MALLOC_ONE_RT(Scheme_Native_Closure_Data); ndata = MALLOC_ONE_RT(Scheme_Native_Closure_Data);
#ifdef MZTAG_REQUIRED #ifdef MZTAG_REQUIRED