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

Move *LABEL-COUNTER* to label.lisp

Browse source
This commit is contained in:
John Lorentzson 2025-05-08 19:33:13 +02:00
parent 5ca740efa9
commit bcc039774b
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,6 +1,5 @@
(in-package #:user-side-compiler) (in-package #:user-side-compiler)
(defvar *label-counter* 0)
(defvar *instruction-source* nil) (defvar *instruction-source* nil)
(defvar *compile-result*) (defvar *compile-result*)

2
wip-duuqnd/user-side-compiler/label.lisp
View file

@ -11,6 +11,8 @@
(unless (null address) (unless (null address)
(format stream " @ 0x~4,'0X" address))))) (format stream " @ 0x~4,'0X" address)))))
(defvar *label-counter* 0)
(defun make-label-name (prefix) (defun make-label-name (prefix)
(format nil "~A~D" prefix (incf *label-counter*))) (format nil "~A~D" prefix (incf *label-counter*)))