Make all ASM-OBJECTs hold an address, not just labels

This commit is contained in:
John Lorentzson 2025-07-03 16:54:49 +02:00
parent f38d74db4f
commit dda08e6fe7

View file

@ -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)