Miroirs/retroforth
1
0
Fork 0
mirror of https://git.sr.ht/~crc_/retroforth synced 2024-11-16 19:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

retro-extend (c) now displays an error on err:notfound

Browse source 
FossilOrigin-Name: 4134203f3482f7a2cd2732b3e0ad27a2c1d253bbd16cc90b4763b1e1f570a027
This commit is contained in:
crc 2019-02-05 03:22:19 +00:00
parent fc63c184ca
commit 5daee185ec
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tools/extend.c
View file

@ -254,6 +254,9 @@ void execute(CELL cell) {
ip = cell;
while (ip < IMAGE_SIZE) {
opcode = memory[ip];
if (ip == notfound) {
printf("%s ?\n", string_extract(1025));
}
if (ngaValidatePackedOpcodes(opcode) != 0) {
ngaProcessPackedOpcodes(opcode);
} else {