mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-15 15:21:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmp: signal internal error in wt-vv-value if we detect a programming error

Browse source
This commit is contained in:
Marius Gerbershagen 2025-03-16 17:03:36 +01:00
parent 887115fe95
commit cd90ecfd55
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmpbackend-cxx/cmppass2-data.lsp
View file

@ -400,7 +400,8 @@
((typep value 'fixnum *cmp-env*) (wt-fixnum value vv))
((typep value 'character *cmp-env*) (wt-character value vv))
((typep value 'float *cmp-env*) (wt-number value vv))
((typep value '(complex float) *cmp-env*) (wt-number value vv))))
((typep value '(complex float) *cmp-env*) (wt-number value vv))
(t (baboon "wt-vv-value: ~s is not an immediate value, but has no VV index~%" value))))
(defun wt-vv (vv-loc)
(setf (vv-used-p vv-loc) t)