alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Drop external .

Browse Source
This commit is contained in:
Brad Nelson
2020-12-30 12:53:54 -08:00
parent f382cff852
commit 3123560f60
1 changed files with 0 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
ueforth/ueforth.c
View File

@ -53,7 +53,6 @@ typedef uint64_t udcell_t;
X("R>", OP_FROMR, DUP; tos = *rp--) \ X("R>", OP_FROMR, DUP; tos = *rp--) \
X("R@", OP_RAT, DUP; tos = *rp) \ X("R@", OP_RAT, DUP; tos = *rp) \
X("CELL", OP_CELL, DUP; tos = sizeof(cell_t)) \ X("CELL", OP_CELL, DUP; tos = sizeof(cell_t)) \
X(".", OP_DOT, printf("%"PRIiPTR" ", tos); DROP) \
X("TYPE", OP_TYPE, fwrite((void *) *sp, 1, tos, stdout); --sp; DROP) \ X("TYPE", OP_TYPE, fwrite((void *) *sp, 1, tos, stdout); --sp; DROP) \
X("KEY", OP_KEY, DUP; tos = fgetc(stdin)) \ X("KEY", OP_KEY, DUP; tos = fgetc(stdin)) \
X("SYSEXIT", OP_SYSEXIT, DUP; exit(tos)) \ X("SYSEXIT", OP_SYSEXIT, DUP; exit(tos)) \
@ -338,12 +337,6 @@ static cell_t *eval1(cell_t *sp, cell_t *call) {
} else { } else {
*++sp = -1; *++sp = -1;
*call = g_throw; *call = g_throw;
#if 0
fprintf(stderr, "Bad Word: ");
fwrite((const char *) name, 1, len, stderr);
fprintf(stderr, "\n");
exit(1);
#endif
} }
} }
return sp; return sp;