Stacken/c64-livecoding
6
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Add macro for iterating over ASM-OBJECTs

Browse source
This commit is contained in:
John Lorentzson 2025-07-03 16:57:33 +02:00
parent 0117df02f8
commit f9a69e2da9
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
wip-duuqnd/user-side-compiler/backend/code-generator.lisp
View file

@ -214,6 +214,12 @@
(emit-cmp :address (data-reference (second (inputs inst))))) (emit-cmp :address (data-reference (second (inputs inst)))))
(emit-store-bool (output inst))) (emit-store-bool (output inst)))
(defmacro do-asm-objects ((asm-obj start-asm-obj) &body body)
`(loop :for ,asm-obj := ,start-asm-obj :then (next ,asm-obj)
:until (null ,asm-obj)
:do (progn
,@body)))
(defun link-compute-addresses (start-instruction origin-address) (defun link-compute-addresses (start-instruction origin-address)
"First linking pass, computes the addresses of all labels." "First linking pass, computes the addresses of all labels."
(let ((address origin-address)) (let ((address origin-address))