Stacken/c64-livecoding
6
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Fix broken INSTRUCTION-LENGTH

Browse source
This commit is contained in:
John Lorentzson 2025-05-08 22:06:21 +02:00
parent 31bb5f8509
commit 184d0324c0
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
wip-duuqnd/user-side-compiler/instruction.lisp
View file

@ -69,12 +69,12 @@
(:indirect-y indirect-y-mixin)))))) (:indirect-y indirect-y-mixin))))))
(defgeneric instruction-length (object) (defgeneric instruction-length (object)
(:method (immediate-mixin) 2) (:method ((obj immediate-mixin)) 2)
(:method (implied-mixin) 1) (:method ((obj implied-mixin)) 1)
(:method (accumulator-mixin) 1) (:method ((obj accumulator-mixin)) 1)
(:method (zero-page-mixin) 2) (:method ((obj zero-page-mixin)) 2)
(:method (relative-mixin) 2) (:method ((obj relative-mixin)) 2)
(:method (absolute-mixin) 3)) (:method ((obj absolute-mixin)) 3))
(defclass branching-mixin () (defclass branching-mixin ()
((%branch-next :accessor branch-next :initarg :branch-next))) ((%branch-next :accessor branch-next :initarg :branch-next)))