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 asm-function
(progn (progn
(cerror "Create dummy function with placeholder address." (cerror "Create dummy function with placeholder address."
"Tried to transform token into non-existent function ~A." 'missing-function-error
(name token)) :format-control "~A"
:format-arguments (list (name token)))
(add-asm-function (name token) #xC0FE))))) (add-asm-function (name token) #xC0FE)))))

View file

@ -38,6 +38,9 @@
(define-condition tokenizer-error (usc-error) (define-condition tokenizer-error (usc-error)
((%context-string :initform "Tokenizing 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) (define-condition parser-error (usc-error)
((%context-string :initform "Syntax error:"))) ((%context-string :initform "Syntax error:")))