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

Reduce evaluate1.

Browse Source
This commit is contained in:
Brad Nelson
2024-04-20 22:20:26 -07:00
parent f08769855d
commit 3f6c7d1dbe
5 changed files with 28 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
common/core.h
View File

@ -188,35 +188,12 @@ static cell_t *evaluate1(cell_t *rp) {
call = xt;
}
} else {
cell_t n;
if (convert((const char *) name, len, g_sys->base, &n)) {
if (g_sys->state) {
COMMA(g_sys->DOLIT_XT);
COMMA(n);
} else {
PUSH n;
}
} else {
float f;
if (fconvert((const char *) name, len, &f)) {
if (g_sys->state) {
COMMA(g_sys->DOFLIT_XT);
*(float *) g_sys->heap++ = f;
} else {
*++fp = f;
}
} else {
#if PRINT_ERRORS
fprintf(stderr, "CANT FIND: ");
fwrite((void *) name, 1, len, stderr);
fprintf(stderr, "\n");
fprintf(stderr, "CANT FIND: ");
fwrite((void *) name, 1, len, stderr);
fprintf(stderr, "\n");
#endif
PUSH name;
PUSH len;
PUSH -1;
call = g_sys->notfound;
}
}
return 0;
}
PUSH call;
PARK;