Add error type for missing ASM-FUNCTION
This commit is contained in:
parent
100086afa2
commit
fd311232de
2 changed files with 6 additions and 2 deletions
|
@ -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)))))
|
||||
|
|
|
@ -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:")))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue