mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-05-10 17:41:10 -07:00
Code Issues Projects Releases Packages Wiki Activity

cmp: fix compilation of empty file

Browse source 
This regressed after commit ede2f0aaa1
This commit is contained in:
Marius Gerbershagen 2026-03-24 19:49:45 +01:00
parent b74014c2f6
commit 7e63eaf3eb
2 changed files with 18 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/cmp/cmpbackend-cxx/cmppass2-top.lsp
View file

@ -132,13 +132,13 @@
(wt-nl-h "#define VV NULL"))
(progn
(wt-nl-h "#define VM " (data-permanent-storage-size))
(wt-nl-h "#define VMtemp " (data-temporary-storage-size)))))
;; VV might be needed by functions in CLINES.
(wt-nl-h "# ifdef ECL_DYNAMIC_VV")
(wt-nl-h "static cl_object *VV;")
(wt-nl-h "# else")
(wt-nl-h "static cl_object VV[VM];")
(wt-nl-h "# endif")
(wt-nl-h "#define VMtemp " (data-temporary-storage-size))
;; VV might be needed by functions in CLINES.
(wt-nl-h "# ifdef ECL_DYNAMIC_VV")
(wt-nl-h "static cl_object *VV;")
(wt-nl-h "# else")
(wt-nl-h "static cl_object VV[VM];")
(wt-nl-h "# endif"))))
;;
(wt-nl-h "#define ECL_DEFINE_SETF_FUNCTIONS ")
(loop for (name setf-vv name-vv) in *setf-definitions*

11
src/tests/normal-tests/compiler.lsp
View file

@ -2701,3 +2701,14 @@
(delete-file ofile)
(is (equal (concatenate 'string part-1 part-2)
*nested-eval-when-0114*))))
;;; Date 2026-03-24
;;; Description
;;;
;;; Check that we can compile an empty file
;;;
(test cmp.0115.empty-file
(let* ((ofile
(with-compiler ("empty-file-0115.lsp" :load t))))
(delete-file "empty-file-0115.lsp")
(delete-file ofile)))