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

nga-c: add calls to stack guard function to remaining instructions (#96)

Browse source 
FossilOrigin-Name: 1f94fdc0e964ebeae16c7a1ca3a314cb80059e282bf87a497762e8ad1d8611c4
This commit is contained in:
crc 2023-04-13 11:50:18 +00:00
parent 78979d9848
commit 4d3970b3e0
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1339,6 +1339,7 @@ void inst_sh(NgaState *vm) {
}
void inst_zr(NgaState *vm) {
guard(vm, 1, 0, 0);
if (TOS == 0) {
inst_dr(vm);
vm->cpu[vm->active].ip = TORS;
@ -1347,6 +1348,7 @@ void inst_zr(NgaState *vm) {
}
void inst_ha(NgaState *vm) {
guard(vm, 0, 0, 0);
vm->cpu[vm->active].ip = IMAGE_SIZE;
vm->cpu[vm->active].rp = 0;
}
@ -1362,6 +1364,7 @@ void inst_iq(NgaState *vm) {
}
void inst_ii(NgaState *vm) {
guard(vm, 1, 0, 0);
vm->IO_deviceHandlers[stack_pop(vm)](vm);
}