| |
|
| progname = argv[0]; |
progname = argv[0]; |
| |
|
| |
if (lt_dlinit()!=0) { |
| |
fprintf(stderr,"%s: lt_dlinit failed", progname); |
| |
exit(1); |
| |
} |
| #ifndef STANDALONE |
#ifndef STANDALONE |
| #ifdef HAS_OS |
#ifdef HAS_OS |
| gforth_args(argc, argv, &path, &imagename); |
gforth_args(argc, argv, &path, &imagename); |
| vm_print_profile(stderr); |
vm_print_profile(stderr); |
| #endif |
#endif |
| deprep_terminal(); |
deprep_terminal(); |
| |
if (lt_dlexit()!=0) |
| |
fprintf(stderr,"%s: lt_dlexit failed", progname); |
| } |
} |
| if (print_metrics) { |
if (print_metrics) { |
| int i; |
int i; |