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

fix out-of-bounds array access

Browse Source 
svn: r3305
This commit is contained in:
Matthew Flatt 2006-06-09 16:18:49 +00:00
parent a6a9f17294
commit 95cb36b1dc
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/mzscheme/src/module.c
View File

@ -2125,6 +2125,7 @@ Scheme_Object *scheme_check_accessible_in_module(Scheme_Env *env, Scheme_Object
if (pos) { if (pos) {
if (env->module->provide_protects if (env->module->provide_protects
&& (SCHEME_INT_VAL(pos) < env->module->num_provides)
&& env->module->provide_protects[SCHEME_INT_VAL(pos)]) { && env->module->provide_protects[SCHEME_INT_VAL(pos)]) {
if (_protected) if (_protected)
*_protected = 1; *_protected = 1;