From bcc039774ba42684aefb4660096d243c48cb63c8 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 8 May 2025 19:33:13 +0200 Subject: [PATCH] Move *LABEL-COUNTER* to label.lisp --- wip-duuqnd/user-side-compiler/high-level.lisp | 1 - wip-duuqnd/user-side-compiler/label.lisp | 2 ++ 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/wip-duuqnd/user-side-compiler/high-level.lisp b/wip-duuqnd/user-side-compiler/high-level.lisp index c1d4df7..4814f57 100644 --- a/wip-duuqnd/user-side-compiler/high-level.lisp +++ b/wip-duuqnd/user-side-compiler/high-level.lisp @@ -1,6 +1,5 @@ (in-package #:user-side-compiler) -(defvar *label-counter* 0) (defvar *instruction-source* nil) (defvar *compile-result*) diff --git a/wip-duuqnd/user-side-compiler/label.lisp b/wip-duuqnd/user-side-compiler/label.lisp index 38060fd..ce6e570 100644 --- a/wip-duuqnd/user-side-compiler/label.lisp +++ b/wip-duuqnd/user-side-compiler/label.lisp @@ -11,6 +11,8 @@ (unless (null address) (format stream " @ 0x~4,'0X" address))))) +(defvar *label-counter* 0) + (defun make-label-name (prefix) (format nil "~A~D" prefix (incf *label-counter*)))