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

Clarify comments in GENERATE-CODE for NODE-BRANCH

Browse source
This commit is contained in:
John Lorentzson 2025-03-27 23:36:15 +01:00
parent 39cf0b54cb
commit 4918124361
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
wip-duuqnd/compiler.lisp
View file

@ -47,8 +47,9 @@
(let ((else-label (genlabel "ELSE"))) (let ((else-label (genlabel "ELSE")))
(format-inst t "LDA RESULT") (format-inst t "LDA RESULT")
(format-inst t "BNE ~A" else-label) (format-inst t "BNE ~A" else-label)
;; THEN branch ;; The THEN branch
(generate-code (branch-next node)) (generate-code (branch-next node))
;; The ELSE branch
(format t "~%~A:~%" else-label))) (format t "~%~A:~%" else-label)))
(defclass node-dotimes (node) (defclass node-dotimes (node)