From f54e064fdac150764150c5a5c648ab0517890b9b Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 3 Jul 2025 16:53:00 +0200 Subject: [PATCH] Make ASM-FUNCTION hold an address to be called --- wip-duuqnd/user-side-compiler/asm-function.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/wip-duuqnd/user-side-compiler/asm-function.lisp b/wip-duuqnd/user-side-compiler/asm-function.lisp index 51d601b..623a096 100644 --- a/wip-duuqnd/user-side-compiler/asm-function.lisp +++ b/wip-duuqnd/user-side-compiler/asm-function.lisp @@ -3,7 +3,9 @@ (defvar *asm-functions* (make-hash-table :test #'equalp)) (defclass asm-function () - ((%name :accessor name :initarg :name))) + ((%name :accessor name :initarg :name) + (%address :accessor address :initarg :address + :initform #xFEC0))) (define-transformation (token (token-name asm-function)) (multiple-value-bind (asm-function existsp)