Ensure asm functions are initialized before compiling
This commit is contained in:
parent
fd70c8d5dc
commit
d22bd4ee49
1 changed files with 2 additions and 0 deletions
|
@ -109,6 +109,8 @@
|
||||||
return-tokens-p return-syntax-tree-p
|
return-tokens-p return-syntax-tree-p
|
||||||
return-iblock-p return-allocs-p
|
return-iblock-p return-allocs-p
|
||||||
return-asm-p)
|
return-asm-p)
|
||||||
|
(when (zerop (hash-table-count *asm-functions*))
|
||||||
|
(usc-init))
|
||||||
(let (tokens syntax-tree iblock allocs asm-obj bytes)
|
(let (tokens syntax-tree iblock allocs asm-obj bytes)
|
||||||
(format *debug-io* "Tokenizing...~%")
|
(format *debug-io* "Tokenizing...~%")
|
||||||
(setf tokens (ci-tokenize string))
|
(setf tokens (ci-tokenize string))
|
||||||
|
|
Loading…
Add table
Reference in a new issue