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

defend against a broken bytecode file containing a reference cycle

Browse Source
This commit is contained in:
Matthew Flatt 2010-08-17 12:48:03 -06:00
parent 2cb5de9581
commit db43d25559
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4595,6 +4595,8 @@ static Scheme_Object *read_compact(CPort *port, int use_stack)
v = port->symtab[l]; v = port->symtab[l];
if (!v) { if (!v) {
long save_pos = port->pos; long save_pos = port->pos;
/* avoid cycles if marshaled form is broken: */
port->symtab[l] = scheme_false;
port->pos = port->shared_offsets[l - 1]; port->pos = port->shared_offsets[l - 1];
v = read_compact(port, 0); v = read_compact(port, 0);
port->pos = save_pos; port->pos = save_pos;