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

Correct byte length of a JSR

Browse source
This commit is contained in:
John Lorentzson 2025-07-03 16:54:40 +02:00
parent d88107a209
commit f38d74db4f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -179,7 +179,7 @@
:do (emit-load-data arg) :do (emit-load-data arg)
: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 1) (emit-asm-instruction :opcode #x20 :operand (callee inst) :byte-length 3)
(emit-store-result (output inst))) (emit-store-result (output inst)))
(defun link-compute-addresses (start-instruction origin-address) (defun link-compute-addresses (start-instruction origin-address)