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 ()
|
(defclass asm-object ()
|
||||||
((%source :accessor source :initarg :source :initform nil)
|
((%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)
|
(defclass asm-label (asm-object)
|
||||||
((%name :accessor name :initarg :name)
|
((%name :accessor name :initarg :name)))
|
||||||
(%address :accessor address :initform nil)))
|
|
||||||
|
|
||||||
(defclass asm-instruction (asm-object)
|
(defclass asm-instruction (asm-object)
|
||||||
((%opcode :accessor opcode :initarg :opcode)
|
((%opcode :accessor opcode :initarg :opcode)
|
||||||
|
|
Loading…
Add table
Reference in a new issue