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

nga-python: fix a bug in use of IntegerStack (#20)

Browse source 
FossilOrigin-Name: 42d2e7424dbb5d434a9123eed9976f81d6b920cd5beda654eb9ebcfe3a837091
This commit is contained in:
crc 2020-12-17 19:49:54 +00:00
parent 4e78a4ef15
commit d185b6e423
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
vm/nga-python/retro.py
View file

@ -476,7 +476,7 @@ class Retro:
if self.ip == notfound:
print("ERROR: word not found!")
if self.ip == self.Cached["d:add-header"]:
self.Dictionary[self.extract_string(self.stack.stack[-3])] = self.memory[3]
self.Dictionary[self.extract_string(self.stack[-3])] = self.memory[3]
opcode = self.memory[self.ip]
I0 = opcode & 0xFF
I1 = (opcode >> 8) & 0xFF