From 235ca8c07e78c96314f00d726d3d7c8a40ea0c58 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 3 Jul 2025 10:54:21 +0200 Subject: [PATCH] Rename EMIT-STORE-RESULT's parameter to match similar functions --- .../user-side-compiler/backend/code-generator.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/wip-duuqnd/user-side-compiler/backend/code-generator.lisp b/wip-duuqnd/user-side-compiler/backend/code-generator.lisp index ffb272c..50d1938 100644 --- a/wip-duuqnd/user-side-compiler/backend/code-generator.lisp +++ b/wip-duuqnd/user-side-compiler/backend/code-generator.lisp @@ -93,14 +93,14 @@ (define-normal-emitter emit-sta (error "STA has no immediate mode.") #x85 #x8d) (define-normal-emitter emit-adc #x69 #x65 #x6d) -(defun emit-store-result (result) - (if (or (null (allocation-details result)) - (member (strategy (allocation-details result)) +(defun emit-store-data (data) + (if (or (null (allocation-details data)) + (member (strategy (allocation-details data)) '(:constant :accumulator))) (setf *last-instruction* '(:useless)) (progn - (emit-sta :address (data-reference result)) - (setf *last-instruction* (list :store result))))) + (emit-sta :address (data-reference data)) + (setf *last-instruction* (list :store data))))) (defun emit-load-data (data) (if (or (member (strategy (allocation-details data))