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

builder: wrapper: don't output unnecessary code when non needed

Browse source
This commit is contained in:
Daniel Kochmanski 2017-07-21 19:33:45 +02:00
parent 5a50195666
commit b15afe097c
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmpmain.lsp
View file

@ -534,7 +534,8 @@ output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), ECL_NIL);
(:static-library
(format c-file +lisp-program-init+
init-name init-tag prologue-code submodules epilogue-code)
(format c-file +lisp-init-wrapper+ wrap-name init-name)
(when wrap-name
(format c-file +lisp-init-wrapper+ wrap-name init-name))
(format c-file +lisp-library-main+
main-name prologue-code init-name epilogue-code)
(close c-file)
@ -545,7 +546,8 @@ output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), ECL_NIL);
(:shared-library
(format c-file +lisp-program-init+
init-name init-tag prologue-code submodules epilogue-code)
(format c-file +lisp-init-wrapper+ wrap-name init-name)
(when wrap-name
(format c-file +lisp-init-wrapper+ wrap-name init-name))
(format c-file +lisp-library-main+
main-name prologue-code init-name epilogue-code)
(close c-file)