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

Only the entry point of a file which is component of a library or a module can get a prefix.

Browse source
This commit is contained in:
jjgarcia 2004-06-13 08:53:18 +00:00
parent 428c31794f
commit 90fd78202c
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmpmain.lsp
View file

@ -153,7 +153,7 @@ main(int argc, char **argv)
~A
}")
(defun init-function-name (s)
(defun init-function-name (s &optional (si::*init-function-prefix* si::*init-function-prefix*))
(flet ((translate-char (c)
(cond ((and (char>= c #\a) (char<= c #\z))
(char-upcase c))
@ -184,13 +184,12 @@ main(int argc, char **argv)
(o-name (si::coerce-to-filename
(compile-file-pathname output-name :type :object)))
(init-name (string-upcase (pathname-name c-name)))
(si::*init-function-prefix* (and (member target '(:library :static-library :lib :shared-library :dll)) si::*init-function-prefix*))
submodules
c-file)
(dolist (item (reverse lisp-files))
(cond ((symbolp item)
(push (format nil "-l~A" (string-downcase item)) ld-flags)
(push (init-function-name item) submodules))
(push (init-function-name item nil) submodules))
(t
(push (si::coerce-to-filename
(compile-file-pathname item :type :object)) ld-flags)