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

Add reference equality test (only implemented for constants so far)

Browse source
This commit is contained in:
John Lorentzson 2025-05-16 15:04:59 +02:00
parent e88e966521
commit 449e36e183
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
wip-duuqnd/user-side-compiler/high-level.lisp
View file

@ -36,6 +36,9 @@
(print-unreadable-object (object stream :type t) (print-unreadable-object (object stream :type t)
(format stream "~D" (ref-value object)))) (format stream "~D" (ref-value object))))
(defmethod ref= ((a reference-constant) (b reference-constant))
(= (value a) (value b)))
(defmethod dereference ((ref reference-constant)) (defmethod dereference ((ref reference-constant))
(produce-instruction 'inst-lda-immediate (ref-value ref))) (produce-instruction 'inst-lda-immediate (ref-value ref)))