Make all ASM-OBJECTs hold an address, not just labels
This commit is contained in:
parent
f38d74db4f
commit
dda08e6fe7
1 changed files with 3 additions and 3 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue