From: Nikodemus Siivola Date: Thu, 7 Oct 2010 16:40:47 +0000 (+0000) Subject: 1.0.43.34: differentiate cross-compiler output from target and host X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=97535256efa8ab0edefca516b2553efcccf3e2ec;p=sbcl.git 1.0.43.34: differentiate cross-compiler output from target and host No difference in the end-product, but seeing "x-compiling" in build-logs makes them easier to read for slow people like me. That is: * while building the xc-host messages are from the host compiler. If the host happens to be SBCL, that means: ; compiling (DEFUN FOO ...) * while building the target: ; x-compiling (DEFUN FOO ...) * while building CLOS and contribs on target: ; compiling (DEFUN FOO ...) --- diff --git a/make-host-2.lisp b/make-host-2.lisp index 5af5a98..ab16fe5 100644 --- a/make-host-2.lisp +++ b/make-host-2.lisp @@ -13,7 +13,7 @@ (defun proclaim-target-optimization () (let ((debug (if (position :sb-show *shebang-features*) 2 1))) - (sb-xc:proclaim + (proclaim `(optimize (compilation-speed 1) (debug ,debug) ;; CLISP's pretty-printer is fragile and tends to cause stack diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp index c0c6a81..33a1967 100644 --- a/src/compiler/main.lisp +++ b/src/compiler/main.lisp @@ -1234,8 +1234,10 @@ Examples: (*print-level* 2) (*print-pretty* nil)) (with-compiler-io-syntax - (compiler-mumble "~&; ~:[compiling~;converting~] ~S" - *block-compile* form))) + (compiler-mumble + #-sb-xc-host "~&; ~:[compiling~;converting~] ~S" + #+sb-xc-host "~&; ~:[x-compiling~;x-converting~] ~S" + *block-compile* form))) form) ((and finalp (eq :top-level-forms *compile-print*) diff --git a/version.lisp-expr b/version.lisp-expr index b0f1c21..56f29d7 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.43.33" +"1.0.43.34"