From 449e36e1833c76f58f3494a6ab30cb2601551dc8 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Fri, 16 May 2025 15:04:59 +0200 Subject: [PATCH] Add reference equality test (only implemented for constants so far) --- wip-duuqnd/user-side-compiler/high-level.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/wip-duuqnd/user-side-compiler/high-level.lisp b/wip-duuqnd/user-side-compiler/high-level.lisp index 0ece9c5..3aa9616 100644 --- a/wip-duuqnd/user-side-compiler/high-level.lisp +++ b/wip-duuqnd/user-side-compiler/high-level.lisp @@ -36,6 +36,9 @@ (print-unreadable-object (object stream :type t) (format stream "~D" (ref-value object)))) +(defmethod ref= ((a reference-constant) (b reference-constant)) + (= (value a) (value b))) + (defmethod dereference ((ref reference-constant)) (produce-instruction 'inst-lda-immediate (ref-value ref)))