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: remove another no longer needed variable

Browse source 
FossilOrigin-Name: f619915689a54a7fe00c2566e7c9f71dfdca657486b042df9ddc01e91dc4d877
This commit is contained in:
crc 2023-11-21 18:04:53 +00:00
parent 3498583b9c
commit 16853e969d
1 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -640,17 +640,12 @@ void invalid_opcode(NgaState *vm, CELL opcode) {
}
void execute(NgaState *vm, CELL cell) {
CELL token;
CELL opcode;
if (ACTIVE.rp == 0)
ACTIVE.rp = 1;
ACTIVE.ip = cell;
token = TIB;
while (ACTIVE.ip < IMAGE_SIZE) {
if (vm->perform_abort == 0) {
if (ACTIVE.ip == vm->interpret) {
token = TOS;
}
opcode = vm->memory[ACTIVE.ip];
if (validate_opcode_bundle(opcode) != 0) {
process_opcode_bundle(vm, opcode);