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

Some cleanup after deleted code

Browse source
This commit is contained in:
John Lorentzson 2025-07-03 19:54:15 +02:00
parent 590d7533d9
commit c668f4fc78
2 changed files with 5 additions and 11 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

@ -164,15 +164,15 @@
:constant) :constant)
(emit-adc :immediate (ir-constant-value (second (inputs inst)))) (emit-adc :immediate (ir-constant-value (second (inputs inst))))
(emit-adc :address (data-reference (second (inputs inst))))) (emit-adc :address (data-reference (second (inputs inst)))))
(emit-store-result (output inst))) (emit-store-data (output inst)))
(defmethod compile-ir ((inst ir-assign)) (defmethod compile-ir ((inst ir-assign))
(emit-load-data (input inst)) (emit-load-data (input inst))
(emit-store-result (output inst))) (emit-store-data (output inst)))
(defmethod compile-ir ((inst ir-fetchvar)) (defmethod compile-ir ((inst ir-fetchvar))
(emit-load-data (input inst)) (emit-load-data (input inst))
(emit-store-result (output inst))) (emit-store-data (output inst)))
(defmethod compile-ir ((inst ir-call)) (defmethod compile-ir ((inst ir-call))
(loop :for arg :in (inputs inst) (loop :for arg :in (inputs inst)
@ -181,7 +181,7 @@
:unless (eql (strategy (allocation-details arg)) :direct-to-argvec) :unless (eql (strategy (allocation-details arg)) :direct-to-argvec)
:do (emit-sta :address (+ arg-index +argvec-offset+))) :do (emit-sta :address (+ arg-index +argvec-offset+)))
(emit-asm-instruction :opcode #x20 :operand (callee inst) :byte-length 3) (emit-asm-instruction :opcode #x20 :operand (callee inst) :byte-length 3)
(emit-store-result (output inst))) (emit-store-data (output inst)))
(defmethod compile-ir ((inst ir-jump)) (defmethod compile-ir ((inst ir-jump))
(unless (eql (next (iblock inst)) (unless (eql (next (iblock inst))
@ -266,7 +266,7 @@
start-instruction) start-instruction)
(defun compile-iblock (iblock) (defun compile-iblock (iblock)
(emit-asm-label (unique-name iblock)) (emit-asm-label (name iblock))
(do-instructions (inst iblock) (do-instructions (inst iblock)
(compile-ir inst))) (compile-ir inst)))

6
wip-duuqnd/user-side-compiler/middle/optimizations.lisp
View file

@ -178,12 +178,6 @@ IR-FETCHVAR instructions that would serve no purpose in compiled code."
(let ((candidates-type '(or ir-test-equal ir-plus ir-minus)) (let ((candidates-type '(or ir-test-equal ir-plus ir-minus))
(to-remove '())) (to-remove '()))
(do-instructions (inst iblock) (do-instructions (inst iblock)
#+(or)
(when (equalp (name iblock) "else")
(break "~A ~A" inst
(if (typep inst 'ir-fetchvar)
(format nil "~A ~A ~A" (input inst) (output inst) (users (output inst)))
"")))
(when (typep inst 'ir-fetchvar) (when (typep inst 'ir-fetchvar)
(let ((result (output inst)) (let ((result (output inst))
(src (input inst))) (src (input inst)))