03/03: gnu: rust: Use GDB 8.2 for tests.

[guix-commits]

mbakke pushed a commit to branch staging
in repository guix.

commit 47dda6e01e51478567e013e3814aaf48143abbc3
Author: Marius Bakke <address@hidden>
Date:   Fri Oct 18 12:12:21 2019 +0200

    gnu: rust: Use GDB 8.2 for tests.
    
    * gnu/packages/gdb.scm (gdb-8.2): New public variable.
    * gnu/packages/rust.scm (rust-1.27)[native-inputs]: Use GDB-8.2 instead of 
GDB.
---
 gnu/packages/gdb.scm  | 12 ++++++++++++
 gnu/packages/rust.scm |  3 +++
 2 files changed, 15 insertions(+)

diff --git a/gnu/packages/gdb.scm b/gnu/packages/gdb.scm
index 66bdb81..81e2892 100644
--- a/gnu/packages/gdb.scm
+++ b/gnu/packages/gdb.scm
@@ -106,6 +106,18 @@ the program is running to try to fix bugs.  It can be used 
to debug programs
 written in C, C++, Ada, Objective-C, Pascal and more.")
     (license gpl3+)))
 
+(define-public gdb-8.2
+  (package/inherit
+   gdb-8.3
+   (version "8.2.1")
+   (source (origin
+             (method url-fetch)
+             (uri (string-append "mirror://gnu/gdb/gdb-"
+                                 version ".tar.xz"))
+             (sha256
+              (base32
+               "00i27xqawjv282a07i73lp1l02n0a3ywzhykma75qg500wll6sha"))))))
+
 (define-public gdb
   ;; This is the fixed version that packages depend on.  Update it rarely
   ;; enough to avoid massive rebuilds.
diff --git a/gnu/packages/rust.scm b/gnu/packages/rust.scm
index 241826e..d04cb0a 100644
--- a/gnu/packages/rust.scm
+++ b/gnu/packages/rust.scm
@@ -779,6 +779,9 @@ jemalloc = \"" jemalloc "/lib/libjemalloc_pic.a" "\"
                                        "rust-bootstrap-stage0-test.patch"
                                        
"rust-1.25-accept-more-detailed-gdb-lines.patch"
                                        "rust-reproducible-builds.patch")))))
+      (native-inputs
+       (alist-replace "gdb" (list gdb-8.2)
+                      (package-native-inputs base-rust)))
       (arguments
        (substitute-keyword-arguments (package-arguments base-rust)
          ((#:phases phases)