mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-01 15:20:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

Change the way Cblocks are created. Now, within a DLL, several Cblocks may

Browse source 
be created for the different components, but in the end they are chained together
and point to a main Cblock with the handle of the library.
This commit is contained in:
jjgarcia 2003-03-13 11:10:35 +00:00
parent 5478bbe21b
commit b7ced3d4ba
2 changed files with 18 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/main.d
View file

@ -129,9 +129,9 @@ cl_boot(int argc, char **argv)
ecl_booted = 1;
lex_env = Cnil;
init_LSP();
read_VV(OBJNULL,init_LSP);
#ifdef CLOS
init_CLOS();
read_VV(OBJNULL,init_CLOS);
#endif
/* Jump to top level */

24
src/cmp/cmpmain.lsp
View file

@ -137,6 +137,12 @@ extern \"C\"
int init_~A(cl_object cblock)
{
cl_object next;
if (FIXNUMP(cblock))
return;
cblock->cblock.data = NULL;
cblock->cblock.data_size = 0;
cblock->cblock.data_text = \"\";
cblock->cblock.data_text_size = 0;
~A
~{ next = read_VV(OBJNULL,init_~A); next->cblock.next = cblock; cblock = next; ~%~}
~A
@ -211,7 +217,7 @@ int init_~A(cl_object cblock)
init-name "CODE" prologue-code init-name epilogue-code))
(compiler-cc c-name o-name)
(apply #'shared-cc output-name o-name ld-flags)))
(delete-file c-name)
;(delete-file c-name)
(delete-file o-name)
output-name))
@ -252,7 +258,15 @@ int init_~A(cl_object cblock)
~%;;; Therefore, COMPILE-FILE without :SYSTEM-P T is unsupported.~
~%;;;"))
(setq input-pathname (merge-pathnames input-pathname #".lsp"))
(let ((lisp-pathname (merge-pathnames input-pathname #".lsp")))
(unless (probe-file lisp-pathname)
(setq lisp-pathname (merge-pathnames input-pathname #".lisp"))
(unless (probe-file lisp-pathname)
(format t "~&;;; The source file ~a is not found.~%"
(namestring input-pathname))
(setq *error-p* t)
(return-from compile-file (values nil t t))))
(setq input-pathname lisp-pathname))
#+PDE (setq sys:*source-pathname* (truename input-pathname))
@ -269,12 +283,6 @@ Cannot compile ~a."
(setq *error-p* nil
*compiler-in-use* t)
(unless (probe-file input-pathname)
(format t "~&;;; The source file ~a is not found.~%"
(namestring input-pathname))
(setq *error-p* t)
(return-from compile-file (values nil t t)))
(when *compile-verbose*
(format t "~&;;; Compiling ~a."
(namestring input-pathname)))