From 5c860cec8329cbcf68504791c01b6ebd0571e783 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 14 Jun 2014 23:28:28 +0200 Subject: [PATCH] gnu: gcc: Really avoid 'install-strip' when cross-compiling. This is a followup to 6b9229c. * gnu/packages/gcc.scm (gcc-4.7): Turn 'install-target' into a thunk, so (%current-target-system) is current. --- gnu/packages/gcc.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/gnu/packages/gcc.scm b/gnu/packages/gcc.scm index 93dc6c0565..c927e6e49c 100644 --- a/gnu/packages/gcc.scm +++ b/gnu/packages/gcc.scm @@ -52,12 +52,13 @@ (define-public (gcc-configure-flags-for-triplet target) (define-public gcc-4.7 (let* ((stripped? #t) ; TODO: make this a parameter (install-target - ;; The 'install-strip' rule uses the native 'strip' instead of - ;; 'TARGET-strip' when cross-compiling. Thus, use 'install' in that - ;; case. - (if (and stripped? (not (%current-target-system))) - "install-strip" - "install")) + (lambda () + ;; The 'install-strip' rule uses the native 'strip' instead of + ;; 'TARGET-strip' when cross-compiling. Thus, use 'install' in that + ;; case. + (if (and stripped? (not (%current-target-system))) + "install-strip" + "install"))) (maybe-target-tools (lambda () ;; Return the `_FOR_TARGET' variables that are needed when @@ -238,7 +239,7 @@ (define-public gcc-4.7 (alist-replace 'install (lambda* (#:key outputs #:allow-other-keys) (zero? - (system* "make" ,install-target))) + (system* "make" ,(install-target)))) %standard-phases))))) (native-search-paths