Commit 0acc3687 by Daniel Kochmanski

ecl: create-image: don't call internal function compute-init-name

It is wrong to call this function. If :init-name is not supplied, or NIL ECL will compute the init name itself (it is not a new mechanism). Enabling specifying init-name makes it possible to build static and shared libraries with known initialization function (important, when CL module is linked with bigger C/C++ project outside ASDF). If :init-name is NIL, it will default to compute-init-name internally. Calling explicitly is not guaranteed to work in the future (internal mechanism).
parent 5eca3749
......@@ -463,8 +463,7 @@ or COMPRESSION on SBCL, and APPLICATION-TYPE on SBCL/Windows."
#+(or clasp ecl) :lisp-files #+mkcl :lisp-object-files
(append lisp-object-files #+(or clasp ecl) extra-object-files)
#+ecl :init-name
#+ecl (c::compute-init-name (or output-name destination)
:kind (if (eq kind :fasb) :fasl kind))
#+ecl (getf build-args :init-name)
(append
(when prologue-code `(:prologue-code ,prologue-code))
(when epilogue-code `(:epilogue-code ,epilogue-code))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment