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

fix another bytecode-validation bug found by Casey

Browse Source
This commit is contained in:
Matthew Flatt 2010-06-25 17:47:44 -06:00
parent e8ef7dcaa5
commit 439ef9bffb
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12566,12 +12566,12 @@ void scheme_validate_toplevel(Scheme_Object *expr, Mz_CPort *port,
make_clearing_stack(), 0, 0);
}
void scheme_validate_boxenv(int p, Mz_CPort *port, char *stack, int depth, int delta)
void scheme_validate_boxenv(int p, Mz_CPort *port, char *stack, int depth, int delta, int letlimit)
{
if (p >= 0)
p += delta;
if ((p < 0) || (p >= depth) || (stack[p] != VALID_VAL))
if ((p < 0) || (p >= letlimit) || (stack[p] != VALID_VAL))
scheme_ill_formed_code(port);
stack[p] = VALID_BOX;

2
src/racket/src/schpriv.h
View File

@ -2683,7 +2683,7 @@ void scheme_validate_toplevel(Scheme_Object *expr, Mz_CPort *port,
int num_toplevels, int num_stxes, int num_lifts,
int skip_refs_check);
void scheme_validate_boxenv(int pos, Mz_CPort *port,
char *stack, int depth, int delta);
char *stack, int depth, int delta, int letlimit);
int scheme_validate_rator_wants_box(Scheme_Object *app_rator, int pos,
int hope,

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

@ -2728,7 +2728,7 @@ static void bangboxenv_validate(Scheme_Object *data, Mz_CPort *port,
if (!SCHEME_PAIRP(data))
scheme_ill_formed_code(port);
scheme_validate_boxenv(SCHEME_INT_VAL(SCHEME_CAR(data)), port, stack, depth, delta);
scheme_validate_boxenv(SCHEME_INT_VAL(SCHEME_CAR(data)), port, stack, depth, delta, letlimit);
scheme_validate_expr(port, SCHEME_CDR(data), stack, tls, depth, letlimit, delta,
num_toplevels, num_stxes, num_lifts,