/[gcl]/gcl/o/file.d
ViewVC logotype

Diff of /gcl/o/file.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.46 by camm, Wed Jun 29 04:25:44 2005 UTC revision 1.47 by camm, Wed Jun 29 19:15:04 2005 UTC
# Line 2196  DEFVAR("*BINARY-MODULES*",sSAbinary_modu Line 2196  DEFVAR("*BINARY-MODULES*",sSAbinary_modu
2196          if (fasl_filename == Cnil) {          if (fasl_filename == Cnil) {
2197            FILE *f;            FILE *f;
2198            char b[32],fn[4096];/*FIXME*/            char b[32],fn[4096];/*FIXME*/
2199            int i;            int i,n;
2200            coerce_to_local_filename(pathname,fn);            coerce_to_local_filename(pathname,fn);
2201            if (!(f=fopen(fn,"rb")))            if (!(f=fopen(fn,"rb")))
2202              file_error("Cannot open ~S",pathname);              file_error("Cannot open ~S",pathname);
2203            fread(b,sizeof(b),1,f);            n=fread(b,sizeof(b),1,f);
2204            fclose(f);            fclose(f);
2205            for (i=0;i<sizeof(b) && (!iscntrl(b[i]) || isspace(b[i]));i++);            for (i=0;i<n && (!iscntrl(b[i]) || isspace(b[i]));i++);
2206            if (i<sizeof(b))            if (i<n)
2207              fasl_filename = coerce_to_local_namestring(pathname);              fasl_filename = coerce_to_local_namestring(pathname);
2208          }          }
2209    

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26