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

nga-c no longer needs to lookup/call err:notfound

Browse source 
FossilOrigin-Name: 48d6b870d550dd0238948557c2fd34668a046300db2775644e285634f06d4ceb
This commit is contained in:
crc 2023-11-21 17:17:57 +00:00
parent f1a52b71ac
commit 28a62b8ca4
2 changed files with 2 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
RELEASE-NOTES
View file

@ -48,5 +48,6 @@
pipes
- remove unused files from vm/nga-c
- new example: vocabulary.retro
- remove need to lookup & call err:notfound by nga-c
================================================================

10
vm/nga-c/retro.c
View file

@ -64,7 +64,7 @@ struct NgaState {
Handler IO_deviceHandlers[MAX_DEVICES];
Handler IO_queryHandlers[MAX_DEVICES];
CELL Dictionary, NotFound, interpret; /* Interfacing */
CELL Dictionary, interpret; /* Interfacing */
char string_data[8192];
#ifdef ENABLE_FLOATS
@ -647,12 +647,6 @@ void execute(NgaState *vm, CELL cell) {
token = TIB;
while (vm->cpu[vm->active].ip < IMAGE_SIZE) {
if (vm->perform_abort == 0) {
/* FIXME
if (vm->cpu[vm->active].ip == vm->NotFound) {
printf("\nERROR: Word Not Found: ");
printf("`%s`\n\n", string_extract(vm, token));
}
*/
if (vm->cpu[vm->active].ip == vm->interpret) {
token = TOS;
}
@ -1199,7 +1193,6 @@ char *string_extract(NgaState *vm, CELL at) {
are:
Dictionary - the latest dictionary header
NotFound - called when a word is not found
interpret - the heart of the interpreter/compiler
I have to call this periodically, as the Dictionary will change as
@ -1210,7 +1203,6 @@ char *string_extract(NgaState *vm, CELL at) {
void update_rx(NgaState *vm) {
vm->Dictionary = vm->memory[2];
vm->interpret = vm->memory[5];
vm->NotFound = vm->memory[6];
if (vm->memory[10] != 0) { execute(vm, vm->memory[10]); }
}