| jmp_buf throw_jmp_buf; |
jmp_buf throw_jmp_buf; |
| #endif |
#endif |
| |
|
| |
/* Define FUZZ for better image positioning */ |
| |
#define FUZZ 0x4000 |
| |
|
| #ifndef DEFAULTPATH |
#ifndef DEFAULTPATH |
| # define DEFAULTPATH "/usr/local/lib/gforth:." |
# define DEFAULTPATH "/usr/local/lib/gforth:." |
| #endif |
#endif |
| pend=path+strlen(path); |
pend=path+strlen(path); |
| if (strlen(path)==0) { |
if (strlen(path)==0) { |
| fprintf(stderr,"%s: cannot open image file %s in path %s for reading\n", |
fprintf(stderr,"%s: cannot open image file %s in path %s for reading\n", |
| progname, imagename, path); |
progname, imagename, path1); |
| exit(1); |
exit(1); |
| } |
} |
| { |
{ |