Correct byte length of a JSR
This commit is contained in:
parent
d88107a209
commit
f38d74db4f
1 changed files with 1 additions and 1 deletions
|
@ -179,7 +179,7 @@
|
|||
:do (emit-load-data arg)
|
||||
:unless (eql (strategy (allocation-details arg)) :direct-to-argvec)
|
||||
: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)))
|
||||
|
||||
(defun link-compute-addresses (start-instruction origin-address)
|
||||
|
|
Loading…
Add table
Reference in a new issue