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

Add compilation method for IR-JUMP

Browse source
This commit is contained in:
John Lorentzson 2025-07-03 16:56:10 +02:00
parent f9d8ad13d0
commit 3876801960
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/backend/code-generator.lisp
View file

@ -183,6 +183,14 @@
(emit-asm-instruction :opcode #x20 :operand (callee inst) :byte-length 3)
(emit-store-result (output inst)))
(defmethod compile-ir ((inst ir-jump))
(unless (eql (next (iblock inst))
(first (destinations inst)))
(emit-asm-instruction :opcode #x4C
:operand (first (destinations inst))
:byte-length 3))
(setf *last-instruction* '(:jump)))
(defmethod compile-ir ((inst ir-test-equal))
(emit-load-data (first (inputs inst)))
(if (eql (strategy (allocation-details (second (inputs inst))))