crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

work on rre error messages with s:evaluate

Browse source 
FossilOrigin-Name: 5e3e92ee30be95df4b479b2190fb9431d86408941f52ea3768939c8b35f4f181
This commit is contained in:
crc 2018-10-09 19:48:54 +00:00
parent 91d1d79413
commit e786158f0a
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
interfaces/rre.c
View file

@ -1201,14 +1201,18 @@ void restore_term() {
#define IO_TTY_GETC 1001
void execute(CELL cell, int silent) {
CELL a, b;
CELL a, b, token;
CELL opcode;
rp = 1;
ip = cell;
token = TIB;
while (ip < IMAGE_SIZE) {
if (ip == NotFound) {
printf("\nERROR: Word Not Found: ");
printf("%s\n\n", string_extract(TIB));
printf("`%s`\n\n", string_extract(token));
}
if (ip == interpret) {
token = TOS;
}
opcode = memory[ip];
if (ngaValidatePackedOpcodes(opcode) != 0) {