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

When invoking gcc, some of the pathnames might contain spaces. Enclose all pathnames in double-quotes to avoid problems.

Browse source
This commit is contained in:
jjgarcia 2004-06-22 08:01:25 +00:00
parent 84b668e15e
commit 58f1ef6e10
3 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpcfg.lsp.in
View file

@ -6,7 +6,7 @@
(setq *cc* "@ECL_CC@")
(setq *cc-flags* "@CFLAGS@ @ECL_CFLAGS@")
(setq *ld-flags* "@LDRPATH@ @LDFLAGS@ -lecl -lgmp -lgc @CLIBS@")
(setq *ld-format* "~A -o ~A -L~A ~{~A ~} ~@?")
(setq *ld-format* "~S -o ~S -L~S ~{~S ~} ~@?")
#+dlopen
(setq *ld-shared-flags* "@LDRPATH@ @SHARED_LDFLAGS@ @LDFLAGS@ -lecl @CLIBS@")
#+dlopen

12
src/cmp/cmpmain.lsp
View file

@ -32,10 +32,9 @@ coprocessor).")
(defvar *cc-flags* "-g -I.")
(defvar *cc-optimize* "-O") ; C compiler otimization flag
(defvar *cc-format* "~A ~A ~:[~*~;~A~] -I~A/h -w -c ~A -o ~A"))
;(defvar *cc-format* "~A ~A ~:[~*~;~A~] -I~A/h -c ~A -o ~A"))
(defvar *cc-format* "\"~A\" ~A ~:[~*~;~A~] \"-I~A/h\" -w -c \"~A\" -o \"~A\""))
(defvar *ld-flags* "")
(defvar *ld-format* "~A -o ~A -L~A ~{~A ~} ~@?")
(defvar *ld-format* "~S -o ~S -L~S ~{~S ~} ~@?")
#+dlopen
(defvar *ld-shared-flags* "")
#+dlopen
@ -282,6 +281,7 @@ cl_object Cblock;
shared-data-file submodules epilogue-code)
(close c-file)
(si:system (format nil "cat ~A" (namestring c-name)))
(print o-name)
(compiler-cc c-name o-name)
(apply #'bundle-cc output-name o-name ld-flags)))
(delete-file c-name)
@ -418,7 +418,8 @@ Cannot compile ~a."
(format t "~&;;; Calling the C compiler... "))
(compiler-cc c-pathname o-pathname)
#+dlopen
(unless system-p (bundle-cc so-pathname o-pathname))
(unless system-p (bundle-cc (si::coerce-to-filename so-pathname)
(si::coerce-to-filename o-pathname)))
(cond #+dlopen
((and (not system-p) (probe-file so-pathname))
(when load (load so-pathname))
@ -539,7 +540,8 @@ Cannot compile ~a."
(format t "~&;;; Calling the C compiler... "))
;;(si::system (format nil "cat ~A" (namestring c-pathname)))
(compiler-cc c-pathname o-pathname)
(bundle-cc so-pathname o-pathname)
(bundle-cc (si::coerce-to-filename so-pathname)
(si::coerce-to-filename o-pathname))
(delete-file c-pathname)
(delete-file h-pathname)
(delete-file o-pathname)