From f38d74db4f46255da29feb2ca0211e5134b54d46 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 3 Jul 2025 16:54:40 +0200 Subject: [PATCH] Correct byte length of a JSR --- wip-duuqnd/user-side-compiler/backend/code-generator.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/wip-duuqnd/user-side-compiler/backend/code-generator.lisp b/wip-duuqnd/user-side-compiler/backend/code-generator.lisp index df78525..7aed794 100644 --- a/wip-duuqnd/user-side-compiler/backend/code-generator.lisp +++ b/wip-duuqnd/user-side-compiler/backend/code-generator.lisp @@ -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)