version 1.178, 2007/04/09 22:36:01
|
version 1.179, 2007/04/15 20:33:46
|
Line 2007 enum {
|
Line 2007 enum {
|
ss_min_nexts, |
ss_min_nexts, |
}; |
}; |
|
|
|
#ifndef STANDALONE |
void gforth_args(int argc, char ** argv, char ** path, char ** imagename) |
void gforth_args(int argc, char ** argv, char ** path, char ** imagename) |
{ |
{ |
int c; |
int c; |
Line 2123 SIZE arguments consist of an integer fol
|
Line 2124 SIZE arguments consist of an integer fol
|
} |
} |
} |
} |
#endif |
#endif |
|
#endif |
|
|
static void print_diag() |
static void print_diag() |
{ |
{ |
Line 2195 static void print_diag()
|
Line 2197 static void print_diag()
|
(relocs < nonrelocs) ? " gcc PR 15242 -> no dynamic code generation (use gcc-2.95 instead)\n" : ""); |
(relocs < nonrelocs) ? " gcc PR 15242 -> no dynamic code generation (use gcc-2.95 instead)\n" : ""); |
} |
} |
|
|
#ifdef INCLUDE_IMAGE |
#ifdef STANDALONE |
extern Cell image[]; |
Cell data_abort_pc; |
extern const char reloc_bits[]; |
|
|
void data_abort_C(void) |
|
{ |
|
while(1) { |
|
} |
|
} |
#endif |
#endif |
|
|
int main(int argc, char **argv, char **env) |
int main(int argc, char **argv, char **env) |
Line 2224 int main(int argc, char **argv, char **e
|
Line 2231 int main(int argc, char **argv, char **e
|
the stack FP-aligned. */ |
the stack FP-aligned. */ |
#endif |
#endif |
|
|
|
#ifndef STANDALONE |
/* buffering of the user output device */ |
/* buffering of the user output device */ |
#ifdef _IONBF |
#ifdef _IONBF |
if (isatty(fileno(stdout))) { |
if (isatty(fileno(stdout))) { |
Line 2231 int main(int argc, char **argv, char **e
|
Line 2239 int main(int argc, char **argv, char **e
|
setvbuf(stdout,NULL,_IONBF,0); |
setvbuf(stdout,NULL,_IONBF,0); |
} |
} |
#endif |
#endif |
|
#endif |
|
|
progname = argv[0]; |
progname = argv[0]; |
|
|
|
#ifndef STANDALONE |
#ifdef HAS_OS |
#ifdef HAS_OS |
gforth_args(argc, argv, &path, &imagename); |
gforth_args(argc, argv, &path, &imagename); |
#ifndef NO_DYNAMIC |
#ifndef NO_DYNAMIC |
init_ss_cost(); |
init_ss_cost(); |
#endif /* !defined(NO_DYNAMIC) */ |
#endif /* !defined(NO_DYNAMIC) */ |
#endif /* defined(HAS_OS) */ |
#endif /* defined(HAS_OS) */ |
|
#endif |
|
|
#ifdef STANDALONE |
#ifdef STANDALONE |
image = gforth_engine(0, 0, 0, 0, 0); |
image = gforth_engine(0, 0, 0, 0, 0); |