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
|
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)))))
|
||||||
|
|
|
@ -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:")))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue