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

Indentation correction

Browse source
This commit is contained in:
John Lorentzson 2025-07-03 16:57:20 +02:00
parent 771748d2c2
commit 0117df02f8
1 changed files with 3 additions and 3 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

@ -121,9 +121,9 @@
(defun emit-load-data (data) (defun emit-load-data (data)
(if (or (member (strategy (allocation-details data)) (if (or (member (strategy (allocation-details data))
'(:accumulator :direct-to-argvec)) '(:accumulator :direct-to-argvec))
(equal *last-instruction* (list :store data)) (equal *last-instruction* (list :store data))
(equal *last-instruction* (list :load data))) (equal *last-instruction* (list :load data)))
(setf *last-instruction* '(:useless)) (setf *last-instruction* '(:useless))
(progn (progn
(if (eql (strategy (allocation-details data)) :constant) (if (eql (strategy (allocation-details data)) :constant)