From 8f6201a31f54ac7a6ea028a2980a783abc8b1369 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 25 Aug 2012 13:11:13 +0200
Subject: [PATCH] distro: Add GNU Binutils.

* distro/base.scm (binutils): New variable.
---
 distro/base.scm | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/distro/base.scm b/distro/base.scm
index b99eb63477..b7e9bd5af9 100644
--- a/distro/base.scm
+++ b/distro/base.scm
@@ -535,6 +535,38 @@ (define-public mpc
    (license "LGPLv3+")
    (home-page "http://mpc.multiprecision.org/")))
 
+(define-public binutils
+  (package
+   (name "binutils")
+   (version "2.22")
+   (source (origin
+            (method http-fetch)
+            (uri (string-append "http://ftp.gnu.org/gnu/binutils/binutils-"
+                                version ".tar.bz2"))
+            (sha256
+             (base32
+              "1a9w66v5dwvbnawshjwqcgz7km6kw6ihkzp6sswv9ycc3knzhykc"))))
+   (build-system gnu-build-system)
+
+   ;; TODO: Add dependency on zlib + those for Gold.
+   (native-inputs
+    `(("patch/new-dtags" ,(search-patch "binutils-ld-new-dtags.patch"))))
+   (arguments
+    `(#:patches (list (assoc-ref %build-inputs "patch/new-dtags"))
+
+      ;; Add `-static-libgcc' to not retain a dependency on GCC when
+      ;; bootstrapping.
+      #:configure-flags '("LDFLAGS=-static-libgcc")))
+
+   (description "GNU Binutils, tools for manipulating binaries (linker,
+assembler, etc.)")
+   (long-description
+    "The GNU Binutils are a collection of binary tools.  The main ones are
+`ld' (the GNU linker) and `as' (the GNU assembler).  They also include the
+BFD (Binary File Descriptor) library, `gprof', `nm', `strip', etc.")
+   (license "GPLv3+")
+   (home-page "http://www.gnu.org/software/binutils/")))
+
 (define-public gcc-4.7
   (let ((stripped? #t))                         ; TODO: make this a parameter
     (package