me/guix
Archived
1
0
Fork 0
Code Activity

gnu: make-libiberty: Use install-file.

Browse source 
* gnu/packages/gcc.scm(make-libiberty): In phase install use
install-file helper function to install file.
This commit is contained in:
guy fleury iteriteka 2020-03-18 09:54:57 +02:00 • committed by Marius Bakke
parent 12eb7bb8af
commit 0f7e6964c7
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 12 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
gnu/packages/gcc.scm
View file

@ -8,6 +8,7 @@
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 Joseph LaFreniere <joseph@lafreniere.xyz> ;;; Copyright © 2020 Joseph LaFreniere <joseph@lafreniere.xyz>
;;; Copyright © 2020 Guy Fleury Iteriteka <gfleury@disroot.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -578,22 +579,17 @@ using compilers other than GCC."
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'chdir (add-before 'configure 'chdir
(lambda _ (lambda _
(chdir "libiberty") (chdir "libiberty")
#t)) #t))
(replace (replace 'install
'install (lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out"))
(let* ((out (assoc-ref outputs "out")) (lib (string-append out "/lib/"))
(lib (string-append out "/lib/")) (include (string-append out "/include/")))
(include (string-append out "/include/"))) (install-file "libiberty.a" lib)
(mkdir-p lib) (install-file "../include/libiberty.h" include))
(mkdir-p include) #t)))))
(copy-file "libiberty.a"
(string-append lib "libiberty.a"))
(copy-file "../include/libiberty.h"
(string-append include "libiberty.h"))
#t))))))
(inputs '()) (inputs '())
(outputs '("out")) (outputs '("out"))
(native-inputs '()) (native-inputs '())