mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-12 14:16:55 -05:00
gnu: glibc/linux: Fix build of glibc-intermediate.
This is a follow-up to commit b2fd8f6367
.
* gnu/packages/base.scm (glibc/linux)[arguments]: Take patch from either
native-inputs or just inputs; fix syntax error; report errors on patch
failure.
This commit is contained in:
parent
dc00f63527
commit
c2e4f14ac8
1 changed files with 7 additions and 4 deletions
|
@ -670,10 +670,13 @@ (define-public glibc/linux
|
|||
;; TODO: Move the patch to 'patches' in the next update cycle.
|
||||
,@(if (string-prefix? "i686" (or (%current-target-system)
|
||||
(%current-system)))
|
||||
`(zero? (system* "patch" "-p1" "--force"
|
||||
"--input"
|
||||
(assoc-ref native-inputs
|
||||
"glibc-memchr-overflow-i686.patch")))
|
||||
`((unless (zero? (system* "patch" "-p1" "--force"
|
||||
"--input"
|
||||
(or (assoc-ref native-inputs
|
||||
"glibc-memchr-overflow-i686.patch")
|
||||
(assoc-ref inputs
|
||||
"glibc-memchr-overflow-i686.patch"))))
|
||||
(error "patch failed for glibc-memchr-overflow-i686.patch")))
|
||||
'())
|
||||
|
||||
;; Have `system' use that Bash.
|
||||
|
|
Loading…
Reference in a new issue