From dda08e6fe73592b75288487129efd826b88098e2 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 3 Jul 2025 16:54:49 +0200 Subject: [PATCH] Make all ASM-OBJECTs hold an address, not just labels --- wip-duuqnd/user-side-compiler/backend/code-generator.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/wip-duuqnd/user-side-compiler/backend/code-generator.lisp b/wip-duuqnd/user-side-compiler/backend/code-generator.lisp index 7aed794..c6881f7 100644 --- a/wip-duuqnd/user-side-compiler/backend/code-generator.lisp +++ b/wip-duuqnd/user-side-compiler/backend/code-generator.lisp @@ -2,11 +2,11 @@ (defclass asm-object () ((%source :accessor source :initarg :source :initform nil) - (%next :accessor next :initform nil))) + (%next :accessor next :initform nil) + (%address :accessor address :initform nil))) (defclass asm-label (asm-object) - ((%name :accessor name :initarg :name) - (%address :accessor address :initform nil))) + ((%name :accessor name :initarg :name))) (defclass asm-instruction (asm-object) ((%opcode :accessor opcode :initarg :opcode)