From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:37978) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jEZtU-0002Uy-Jp for guix-patches@gnu.org; Wed, 18 Mar 2020 10:42:05 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1jEZtT-0005Ag-F3 for guix-patches@gnu.org; Wed, 18 Mar 2020 10:42:04 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:35033) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1jEZtS-000599-QV for guix-patches@gnu.org; Wed, 18 Mar 2020 10:42:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jEZtS-0003lm-NO for guix-patches@gnu.org; Wed, 18 Mar 2020 10:42:02 -0400 Subject: [bug#40117] [PATCH] gnu: make-libiberty: use install-file. Resent-Message-ID: Received: from eggs.gnu.org ([2001:470:142:3::10]:48545) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jETY3-0005rD-Hs for guix-patches@gnu.org; Wed, 18 Mar 2020 03:55:32 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1jETY0-0007xF-R1 for guix-patches@gnu.org; Wed, 18 Mar 2020 03:55:29 -0400 Received: from knopi.disroot.org ([178.21.23.139]:57238) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1jETXy-0007pi-C8 for guix-patches@gnu.org; Wed, 18 Mar 2020 03:55:28 -0400 From: guy fleury iteriteka Date: Wed, 18 Mar 2020 09:54:57 +0200 Message-Id: <20200318075457.11259-1-gfleury@disroot.org> Mime-Version: 1.0 Content-Type: text/plain; charset=y Content-Transfer-Encoding: quoted-printable List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 40117@debbugs.gnu.org Cc: guy fleury iteriteka * gnu/packages/gcc.scm(make-libiberty): In phase install use install-file helper function to install file. --- gnu/packages/gcc.scm | 28 ++++++++++++---------------- 1 file changed, 12 insertions(+), 16 deletions(-) diff --git a/gnu/packages/gcc.scm b/gnu/packages/gcc.scm index 08afd80358..d170ae9175 100644 --- a/gnu/packages/gcc.scm +++ b/gnu/packages/gcc.scm @@ -8,6 +8,7 @@ ;;; Copyright =C2=A9 2018 Tobias Geerinckx-Rice ;;; Copyright =C2=A9 2018 Marius Bakke ;;; Copyright =C2=A9 2020 Joseph LaFreniere +;;; Copyright =C2=A9 2020 Guy Fleury Iteriteka ;;; ;;; This file is part of GNU Guix. ;;; @@ -578,22 +579,17 @@ using compilers other than GCC." #:phases (modify-phases %standard-phases (add-before 'configure 'chdir - (lambda _ - (chdir "libiberty") - #t)) - (replace - 'install - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (lib (string-append out "/lib/")) - (include (string-append out "/include/"))) - (mkdir-p lib) - (mkdir-p include) - (copy-file "libiberty.a" - (string-append lib "libiberty.a")) - (copy-file "../include/libiberty.h" - (string-append include "libiberty.h")) - #t)))))) + (lambda _ + (chdir "libiberty") + #t)) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (lib (string-append out "/lib/")) + (include (string-append out "/include/"))) + (install-file "libiberty.a" lib) + (install-file "../include/libiberty.h" include)) + #t))))) (inputs '()) (outputs '("out")) (native-inputs '()) --=20 2.25.1