Move *LABEL-COUNTER* to label.lisp

2025-05-08 19:33:13 +02:00 · 2025-05-08 19:33:13 +02:00 · bcc039774b
commit bcc039774b
parent 5ca740efa9
2 changed files with 2 additions and 1 deletions
--- 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*)

--- 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*)))