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

add missing check in bytecode unmarshaling

Browse Source 
svn: r13991
This commit is contained in:
Matthew Flatt 2009-03-06 19:59:13 +00:00
parent a5cccd73cb
commit c65758639b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mzscheme/src/env.c
View File

@ -5230,6 +5230,9 @@ static Scheme_Object *read_resolve_prefix(Scheme_Object *obj)
tv = SCHEME_CAR(obj);
sv = SCHEME_CDR(obj);
if (!SCHEME_VECTORP(tv)) return NULL;
if (!SCHEME_VECTORP(sv)) return NULL;
rp = MALLOC_ONE_TAGGED(Resolve_Prefix);
rp->so.type = scheme_resolve_prefix_type;
rp->num_toplevels = SCHEME_VEC_SIZE(tv);