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

avoid reading past EnumProcessModules result array

Browse Source 
svn: r3583
This commit is contained in:
Matthew Flatt 2006-07-03 16:24:16 +00:00
parent 3eb2bb4e51
commit c71bffa4bd
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/foreign/foreign.c
View File

@ -328,7 +328,8 @@ static Scheme_Object *foreign_ffi_obj(int argc, Scheme_Object *argv[])
mods = (HMODULE *)scheme_malloc_atomic(cnt);
if (!mzEnumProcessModules(me, mods, cnt, &actual_cnt))
mods = NULL;
}
} else
cnt = actual_cnt;
} else
mods = NULL;
if (mods) {

3
src/foreign/foreign.ssc
View File

@ -267,7 +267,8 @@ static Scheme_Hash_Table *opened_libs;
mods = (HMODULE *)scheme_malloc_atomic(cnt);
if (!mzEnumProcessModules(me, mods, cnt, &actual_cnt))
mods = NULL;
}
} else
cnt = actual_cnt;
} else
mods = NULL;
if (mods) {