~crc_/retroforth

4d3970b3e045f1f85a3b9ec80b795e5e7ae605c8 — crc 5 months ago 78979d9
nga-c: add calls to stack guard function to remaining instructions (#96)

FossilOrigin-Name: 1f94fdc0e964ebeae16c7a1ca3a314cb80059e282bf87a497762e8ad1d8611c4
1 files changed, 3 insertions(+), 0 deletions(-)

M vm/nga-c/retro.c
M vm/nga-c/retro.c => vm/nga-c/retro.c +3 -0
@@ 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);
}