From e717f49afc585985208095b29a7257f61ee30dfe Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Mon, 21 Jul 2025 21:13:42 +0200 Subject: [PATCH] Replace unused code in code generation with assert --- .../user-side-compiler/backend/code-generator.lisp | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/wip-duuqnd/user-side-compiler/backend/code-generator.lisp b/wip-duuqnd/user-side-compiler/backend/code-generator.lisp index 9d176dd..8b0aca2 100644 --- a/wip-duuqnd/user-side-compiler/backend/code-generator.lisp +++ b/wip-duuqnd/user-side-compiler/backend/code-generator.lisp @@ -311,13 +311,8 @@ is the responsibility of the pre-assembly compilation step." :when (typep asm-obj 'asm-instruction) :do (case (opcode asm-obj) ((#x10 #x30 #x50 #x70 #x90 #xb0 #xd0 #xf0) - ;; Relative branches - (when (typep (operand asm-obj) 'iblock) - (resolve-iblock asm-obj)) - ;; - 2 is to offset for the branch instruction's length - (unless (typep (operand asm-obj) '(unsigned-byte 8)) - (let* ((offset (- (address (operand asm-obj)) (address asm-obj) 2))) - (setf (operand asm-obj) (ldb (byte 8 0) (the (signed-byte 8) offset)))))) + ;; Relative branches are all generated with hardcoded offsets + (assert (typep (operand asm-obj) '(unsigned-byte 8)))) (t (when (typep (operand asm-obj) 'iblock) (resolve-iblock asm-obj))