Applied changes from CVS version 1.16 of official version of TinyScheme.

file_push checks array bounds (patch from Ray Lehtiniemi)
This commit is contained in:
Kevin Cozens 2009-08-04 18:39:31 -04:00
parent 5c630f4ad8
commit 5e9907d68d
1 changed files with 5 additions and 1 deletions

View File

@ -1354,7 +1354,11 @@ static void finalize_cell(scheme *sc, pointer a) {
/* ========== Routines for Reading ========== */
static int file_push(scheme *sc, const char *fname) {
FILE *fin=fopen(fname,"rb");
FILE *fin = NULL;
if (sc->file_i == MAXFIL-1)
return 0;
fin=fopen(fname,"rb");
if(fin!=0) {
sc->file_i++;
sc->load_stack[sc->file_i].kind=port_file|port_input;