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

nga-python: fix dictionary lookups & update the embedded system image

Browse source 
FossilOrigin-Name: 1a0ec29139576a86bda601bb6b891f7dbbc3f6643944cd4d9656ca9993a6b3b7
This commit is contained in:
crc 2024-10-30 13:35:06 +00:00
parent c3f2218681
commit 59fbb49965
3 changed files with 1214 additions and 1311 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Configuration.mk
View file

@ -27,6 +27,9 @@ LIBDL ?=
# ------------------------------------------------------------- # -------------------------------------------------------------
# If using the Python toolchain, remove the -DBIT64 from the
# OPTIONS
OPTIONS ?= OPTIONS ?=
#OPTIONS += -DBIT64 #OPTIONS += -DBIT64
@ -97,8 +100,7 @@ DEVICES += interface/descriptions.retro
# ------------------------------------------------------------- # -------------------------------------------------------------
GLOSSARY ?= ./bin/retro tools/glossary.retro GLOSSARY ?= ./bin/retro tools/glossary.retro
ASSEMBLE ?= ./tools/retro-muri.py ASSEMBLE ?= ./bin/retro-muri
#EXTEND ?= ./tools/retro-extend.py
EXTEND ?= ./bin/retro-extend EXTEND ?= ./bin/retro-extend
EXPORT ?= ./bin/retro-embedimage EXPORT ?= ./bin/retro-embedimage
RETRO ?= ./bin/retro RETRO ?= ./bin/retro

2515
vm/nga-python/InitialImage.py
View file

File diff suppressed because it is too large Load diff

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

@ -149,7 +149,7 @@ class Retro:
Dictionary = dict() Dictionary = dict()
header = self.memory[2] header = self.memory[2]
while header != 0: while header != 0:
named = self.extract_string(header + 4) named = self.extract_string(header + 9)
if not named in Dictionary: if not named in Dictionary:
Dictionary[named] = header Dictionary[named] = header
header = self.memory[header] header = self.memory[header]
@ -162,7 +162,7 @@ class Retro:
header = self.memory[2] header = self.memory[2]
Done = False Done = False
while header != 0 and not Done: while header != 0 and not Done:
if named == self.extract_string(header + 4): if named == self.extract_string(header + 9):
self.Dictionary[named] = header self.Dictionary[named] = header
Done = True Done = True
else: else: