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

Rename EMIT-STORE-RESULT's parameter to match similar functions

Browse source
This commit is contained in:
John Lorentzson 2025-07-03 10:54:21 +02:00
parent 54d2341ce3
commit 235ca8c07e
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -93,14 +93,14 @@
(define-normal-emitter emit-sta (error "STA has no immediate mode.") #x85 #x8d) (define-normal-emitter emit-sta (error "STA has no immediate mode.") #x85 #x8d)
(define-normal-emitter emit-adc #x69 #x65 #x6d) (define-normal-emitter emit-adc #x69 #x65 #x6d)
(defun emit-store-result (result) (defun emit-store-data (data)
(if (or (null (allocation-details result)) (if (or (null (allocation-details data))
(member (strategy (allocation-details result)) (member (strategy (allocation-details data))
'(:constant :accumulator))) '(:constant :accumulator)))
(setf *last-instruction* '(:useless)) (setf *last-instruction* '(:useless))
(progn (progn
(emit-sta :address (data-reference result)) (emit-sta :address (data-reference data))
(setf *last-instruction* (list :store result))))) (setf *last-instruction* (list :store data)))))
(defun emit-load-data (data) (defun emit-load-data (data)
(if (or (member (strategy (allocation-details data)) (if (or (member (strategy (allocation-details data))