diff options
| -rw-r--r-- | gnu/packages/gcc.scm | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/gnu/packages/gcc.scm b/gnu/packages/gcc.scm index e3ce0069f0..9ae6f77b37 100644 --- a/gnu/packages/gcc.scm +++ b/gnu/packages/gcc.scm @@ -715,22 +715,26 @@ It also includes runtime support libraries for these languages.") (snippet gcc-canadian-cross-objdump-snippet))) (arguments (substitute-keyword-arguments (package-arguments gcc-8) - ((#:phases phases #~%standard-phases) + ((#:phases phases '%standard-phases) (if (target-hurd?) - #~(modify-phases #$phases - (add-after 'unpack 'patch-hurd-libpthread - (lambda _ - (define patch - #$(local-file - (search-patch "gcc-11-libstdc++-hurd-libpthread.patch"))) - (invoke "patch" "--force" "-p1" "-i" patch)))) + `(modify-phases ,phases + (add-after 'unpack 'patch-hurd-libpthread + (lambda (#:key inputs) + (invoke "patch" "--force" "-p1" "-i" + (assoc-ref inputs "hurd-patch") + patch)))) phases)))) (properties `((compiler-cpu-architectures ("aarch64" ,@%gcc-11-aarch64-micro-architectures) ("armhf" ,@%gcc-11-armhf-micro-architectures) ("x86_64" ,@%gcc-11-x86_64-micro-architectures)) - ,@(package-properties gcc-8))))) + ,@(package-properties gcc-8))) + (native-inputs + `(,@(if (target-hurd?) + `(("hurd-patch" ,(search-patch "gcc-11-libstdc++-hurd-libpthread.patch"))) + '()) + ,@(package-native-inputs gcc-8))))) (define-public gcc-12 (package |