[gforth] / gforth / Attic / main.c  

gforth: gforth/Attic/main.c

Diff for /gforth/Attic/main.c between version 1.28 and 1.29

version 1.28, Wed Oct 11 19:39:35 1995 UTC version 1.29, Thu Oct 26 22:48:41 1995 UTC
Line 288 
Line 288 
     }      }
   }    }
   path1=path;    path1=path;
   
     if(strchr(imagename, '/')==NULL)
       {
   do {    do {
     char *pend=strchr(path, ':');      char *pend=strchr(path, ':');
     if (pend==NULL)      if (pend==NULL)
Line 308 
Line 311 
     }      }
     path=pend+(*pend==':');      path=pend+(*pend==':');
   } while (image_file==NULL);    } while (image_file==NULL);
       }
     else
       {
         image_file=fopen(imagename,"rb");
         if(image_file==NULL)
             fprintf(stderr,"%s: cannot open image file %s for reading\n",
                     progname, imagename);
       }
   
   {    {
     Cell environ[]= {      Cell environ[]= {

Generate output suitable for use with a patch program
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help