Add error type for missing ASM-FUNCTION

This commit is contained in:
John Lorentzson 2025-07-09 14:38:49 +02:00
parent 100086afa2
commit fd311232de
2 changed files with 6 additions and 2 deletions

View file

@ -27,6 +27,7 @@
asm-function
(progn
(cerror "Create dummy function with placeholder address."
"Tried to transform token into non-existent function ~A."
(name token))
'missing-function-error
:format-control "~A"
:format-arguments (list (name token)))
(add-asm-function (name token) #xC0FE)))))

View file

@ -38,6 +38,9 @@
(define-condition tokenizer-error (usc-error)
((%context-string :initform "Tokenizing error:")))
(define-condition missing-function-error (usc-error)
((%context-string :initform "Non-existent function (TODO nicer error for this):")))
(define-condition parser-error (usc-error)
((%context-string :initform "Syntax error:")))