[gforth] / gforth / engine / main.c  

gforth: gforth/engine/main.c

Diff for /gforth/engine/main.c between version 1.71 and 1.72

version 1.71, Sun Nov 24 21:02:04 2002 UTC version 1.72, Sat Dec 7 17:43:35 2002 UTC
Line 874 
Line 874 
   return imp;    return imp;
 }  }
   
 /* index of last '/' or '\' in file, 0 if there is none. */  /* pointer to last '/' or '\' in file, 0 if there is none. */
 int onlypath(char *file)  char *onlypath(char *filename)
 {  {
   return strrchr(file, DIRSEP)-file;    return strrchr(filename, DIRSEP);
 }  }
   
 FILE *openimage(char *fullfilename)  FILE *openimage(char *fullfilename)
Line 912 
Line 912 
   if(strchr(imagename, DIRSEP)==NULL) {    if(strchr(imagename, DIRSEP)==NULL) {
     /* first check the directory where the exe file is in !! 01may97jaw */      /* first check the directory where the exe file is in !! 01may97jaw */
     if (onlypath(progname))      if (onlypath(progname))
       image_file=checkimage(progname, onlypath(progname), imagename);        image_file=checkimage(progname, onlypath(progname)-progname, imagename);
     if (!image_file)      if (!image_file)
       do {        do {
         char *pend=strchr(path, PATHSEP);          char *pend=strchr(path, PATHSEP);


Generate output suitable for use with a patch program
Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help