diff options
| author | Mark H Weaver <mhw@netris.org> | 2017-08-09 17:25:31 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2017-08-09 17:25:31 -0400 |
| commit | cc294bcee6bfaa4524ac43450e41f083539f9cb1 (patch) | |
| tree | 1248811a6fd39e9169fd4b3c58f456bd21d1c7d5 /gnu/packages/debug.scm | |
| parent | 32b7506c987d8b7281382da4831958a64c048fc1 (diff) | |
| parent | ae7f246cf1c7e20ebf4025024bb10361938abaa2 (diff) | |
| download | patches-cc294bcee6bfaa4524ac43450e41f083539f9cb1.tar patches-cc294bcee6bfaa4524ac43450e41f083539f9cb1.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'gnu/packages/debug.scm')
| -rw-r--r-- | gnu/packages/debug.scm | 36 |
1 files changed, 21 insertions, 15 deletions
diff --git a/gnu/packages/debug.scm b/gnu/packages/debug.scm index 34c1061418..bde06f35b9 100644 --- a/gnu/packages/debug.scm +++ b/gnu/packages/debug.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2014, 2015, 2016 Eric Bavier <bavier@member.fsf.org> +;;; Copyright © 2014, 2015, 2016, 2017 Eric Bavier <bavier@member.fsf.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -287,20 +287,26 @@ down the road.") ;; not accept a directory name instead. To let the gnu-build-system's ;; patch-* phases work properly, we unpack the source first, then ;; repack before the configure phase. - `(#:configure-flags '("--with-make-tar=./make.tar.xz") - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'unpack-make - (lambda* (#:key inputs #:allow-other-keys) - (zero? (system* "tar" "xf" (assoc-ref inputs "make-source"))))) - (add-before 'configure 'repack-make - (lambda _ - (zero? (system* "tar" "cJf" "./make.tar.xz" - (string-append "make-" - ,(package-version gnu-make)))))) - (add-before 'configure 'bootstrap - (lambda _ - (zero? (system* "autoreconf" "-vfi"))))))) + (let ((make-dir (string-append "make-" (package-version gnu-make)))) + `(#:configure-flags '("--with-make-tar=./make.tar.xz") + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'unpack-make + (lambda* (#:key inputs #:allow-other-keys) + (zero? (system* "tar" "xf" (assoc-ref inputs "make-source"))))) + (add-after 'unpack-make 'set-default-shell + (lambda _ + ;; Taken mostly directly from (@ (gnu packages base) gnu-make) + (substitute* (string-append ,make-dir "/job.c") + (("default_shell = .*$") + (format #f "default_shell = \"~a\";\n" + (which "sh")))))) + (add-before 'configure 'repack-make + (lambda _ + (zero? (system* "tar" "cJf" "./make.tar.xz" ,make-dir)))) + (add-before 'configure 'bootstrap + (lambda _ + (zero? (system* "autoreconf" "-vfi")))))))) (home-page "https://github.com/losalamos/stress-make") (synopsis "Expose race conditions in Makefiles") (description |