version 1.8, 1998/06/04 16:17:59
|
version 1.9, 1998/06/17 16:55:16
|
Line 432 UCell convsize(char *s, UCell elemsize)
|
Line 432 UCell convsize(char *s, UCell elemsize)
|
m=1024*1024; |
m=1024*1024; |
else if (strcmp(endp,"G")==0) |
else if (strcmp(endp,"G")==0) |
m=1024*1024*1024; |
m=1024*1024*1024; |
|
else if (strcmp(endp,"T")==0) { |
#if (SIZEOF_CHAR_P > 4) |
#if (SIZEOF_CHAR_P > 4) |
else if (strcmp(endp,"T")==0) |
|
m=1024*1024*1024*1024; |
m=1024*1024*1024*1024; |
|
#else |
|
fprintf(stderr,"%s: size specification \"%s\" too large for this machine\n", progname, endp); |
|
exit(1); |
#endif |
#endif |
else if (strcmp(endp,"e")!=0 && strcmp(endp,"")!=0) { |
} else if (strcmp(endp,"e")!=0 && strcmp(endp,"")!=0) { |
fprintf(stderr,"%s: cannot grok size specification %s: invalid unit \"%s\"\n", progname, s, endp); |
fprintf(stderr,"%s: cannot grok size specification %s: invalid unit \"%s\"\n", progname, s, endp); |
exit(1); |
exit(1); |
} |
} |
Line 539 int main(int argc, char **argv, char **e
|
Line 542 int main(int argc, char **argv, char **e
|
case 'h': |
case 'h': |
fprintf(stderr, "Usage: %s [engine options] [image arguments]\n\ |
fprintf(stderr, "Usage: %s [engine options] [image arguments]\n\ |
Engine Options:\n\ |
Engine Options:\n\ |
-c, --clear-dictionary Initialize the dictionary with 0 bytes\n\ |
--clear-dictionary Initialize the dictionary with 0 bytes\n\ |
-d SIZE, --data-stack-size=SIZE Specify data stack size\n\ |
-d SIZE, --data-stack-size=SIZE Specify data stack size\n\ |
--debug Print debugging information during startup\n\ |
--debug Print debugging information during startup\n\ |
--die-on-signal exit instead of CATCHing some signals\n\ |
--die-on-signal exit instead of CATCHing some signals\n\ |
Line 554 Engine Options:\n\
|
Line 557 Engine Options:\n\
|
-r SIZE, --return-stack-size=SIZE Specify return stack size\n\ |
-r SIZE, --return-stack-size=SIZE Specify return stack size\n\ |
-v, --version Print version and exit\n\ |
-v, --version Print version and exit\n\ |
SIZE arguments consist of an integer followed by a unit. The unit can be\n\ |
SIZE arguments consist of an integer followed by a unit. The unit can be\n\ |
`b' (bytes), `e' (elements), `k' (kilobytes), or `M' (Megabytes).\n\ |
`b' (byte), `e' (element; default), `k' (KB), `M' (MB), `G' (GB) or `T' (TB).\n\ |
\n\ |
\n\ |
Arguments of default image `gforth.fi':\n\ |
Arguments of default image `gforth.fi':\n\ |
FILE load FILE (with `require')\n\ |
FILE load FILE (with `require')\n\ |