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

Add function to compute addresses of labels in instruction list

Browse source
This commit is contained in:
John Lorentzson 2025-05-08 19:36:10 +02:00
parent 501da2341e
commit 37b2864a7d
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
wip-duuqnd/user-side-compiler/instruction.lisp
View file

@ -96,6 +96,14 @@
'(branching-mixin))) '(branching-mixin)))
((%opcode :allocation :class :initform ,code))))))) ((%opcode :allocation :class :initform ,code)))))))
(defun fix-label-addresses-in-instruction-list (instruction-list origin)
(loop :with address := origin
:for obj :in instruction-list
:if (typep obj 'label)
:do (setf (address obj) address)
:else
:do (incf address (instruction-length obj))))
;;; Testing ;;; Testing
(define-instruction "TXA" nil (:implied 0)) (define-instruction "TXA" nil (:implied 0))