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

fix JIT validator in no-slot-reuse mode

Browse Source
This commit is contained in:
Matthew Flatt 2010-06-25 08:57:33 -06:00
parent 09d70be7ae
commit 0791b453bf
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/racket/src/eval.c
View File

@ -12403,9 +12403,9 @@ void scheme_validate_expr(Mz_CPort *port, Scheme_Object *expr,
|| ((stack[p] != VALID_BOX)
&& (stack[p] != VALID_BOX_NOCLEAR))))
|| (!SCHEME_LET_AUTOBOX(lv) && ((p >= letlimit)
|| (WHEN_CAN_RESET_STACK_SLOT(stack[p] != VALID_VAL)
&& WHEN_CAN_RESET_STACK_SLOT(stack[p] != VALID_VAL_NOCLEAR)
&& (stack[p] != VALID_UNINIT)))))
|| !(WHEN_CAN_RESET_STACK_SLOT(stack[p] == VALID_VAL)
|| WHEN_CAN_RESET_STACK_SLOT(stack[p] == VALID_VAL_NOCLEAR)
|| (stack[p] == VALID_UNINIT)))))
scheme_ill_formed_code(port);
if (!SCHEME_LET_AUTOBOX(lv)) {