Don't try to write map file when not using GNU ld. Also allow compile-file to process pathnames with whitespace on Windows - gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

Don't try to write map file when not using GNU ld. Also allow compile-file to process pathnames with whitespace on Windowsunlabeled-1.1.2.12.6.1.4

-rwxr-xr-x

1 files changed, 3 insertions, 3 deletions

diff --git a/gcl/cmpnew/gcl_cmpmain.lsp b/gcl/cmpnew/gcl_cmpmain.lsp
index b41ed8751..ef4fecd36 100755
--- a/gcl/cmpnew/gcl_cmpmain.lsp
+++ b/gcl/cmpnew/gcl_cmpmain.lsp

@@ -547,7 +547,7 @@ SYSTEM_SPECIAL_INIT

(setq na (namestring

(make-pathname :name name :type (pathname-type(first args)))))

#+(or dos winnt)

- (format nil "~a -I~a ~a ~a -c -w ~a -o ~a"

+ (format nil "~a -I~a ~a ~a -c -w ~s -o ~s"

*cc*

(concatenate 'string si::*system-directory* "../h")

(if (and (boundp '*c-debug*) *c-debug*) " -g " "")

@@ -560,7 +560,7 @@ SYSTEM_SPECIAL_INIT

)

#-(or dos winnt)

- (format nil "~a -I~a ~a ~a -c '~a' -o '~a' ~a"

+ (format nil "~a -I~a ~a ~a -c ~s -o ~s ~a"

*cc*

(concatenate 'string si::*system-directory* "../h")

(if (and (boundp '*c-debug*) *c-debug*) " -g " "")

@@ -826,7 +826,7 @@ SYSTEM_SPECIAL_INIT

(setq sfiles (concatenate 'string sfiles " " (namestring tem)))))

sfiles)

si::*system-directory*

- #+gnu-ld (format nil "-Wl,-Map ~a" (namestring map))

+ #+gnu-ld (format nil "-Wl,-Map ~a" (namestring map)) #-gnu-ld ""

(let* ((par (namestring (make-pathname :directory '(:parent))))

(i (concatenate 'string " " par))

(j (concatenate 'string " " si::*system-directory* par)))

generated by cgit v1.2.3 (git 2.39.1) at 2025年09月01日 18:05:09 +0000