HCoop / jackhill / guix / guix.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Merge remote-tracking branch 'signed/master' into core-updates
[jackhill/guix/guix.git] / gnu / packages / commencement.scm
CommitLineData
bdb36958 1;;; GNU Guix --- Functional package management for GNU
b644008c 2;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
bdb36958
LC		 3;;; Copyright © 2014 Andreas Enge <andreas@enge.fr>
4;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
13f7f2fd 5;;; Copyright © 2014, 2015, 2017 Mark H Weaver <mhw@netris.org>
5fe2c549 6;;; Copyright © 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
53bfec7b 7;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
a2b2070b 8;;; Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
01e8263f 9;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
bdb36958
LC		 10;;;
11;;; This file is part of GNU Guix.
12;;;
13;;; GNU Guix is free software; you can redistribute it and/or modify it
14;;; under the terms of the GNU General Public License as published by
15;;; the Free Software Foundation; either version 3 of the License, or (at
16;;; your option) any later version.
17;;;
18;;; GNU Guix is distributed in the hope that it will be useful, but
19;;; WITHOUT ANY WARRANTY; without even the implied warranty of
20;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21;;; GNU General Public License for more details.
22;;;
23;;; You should have received a copy of the GNU General Public License
24;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
25
26(define-module (gnu packages commencement)
27 #:use-module ((guix licenses)
28 #:select (gpl3+ lgpl2.0+ public-domain))
b2fd8f63 29 #:use-module (gnu packages)
bdb36958
LC		 30 #:use-module (gnu packages bootstrap)
31 #:use-module (gnu packages base)
32 #:use-module (gnu packages bash)
0b652851 33 #:use-module (gnu packages c)
bdb36958 34 #:use-module (gnu packages gcc)
2d5d63d7 35 #:use-module (gnu packages m4)
c00a9fbf 36 #:use-module (gnu packages file)
bdb36958 37 #:use-module (gnu packages gawk)
2d5d63d7 38 #:use-module (gnu packages bison)
d75acc29 39 #:use-module (gnu packages flex)
bdb36958 40 #:use-module (gnu packages guile)
6162b95d 41 #:use-module (gnu packages gettext)
bdb36958
LC		 42 #:use-module (gnu packages multiprecision)
43 #:use-module (gnu packages compression)
0b652851 44 #:use-module (gnu packages mes)
bdb36958 45 #:use-module (gnu packages perl)
5f3f7039 46 #:use-module (gnu packages python)
bdb36958 47 #:use-module (gnu packages linux)
d75acc29 48 #:use-module (gnu packages hurd)
bdb36958
LC		 49 #:use-module (gnu packages texinfo)
50 #:use-module (gnu packages pkg-config)
5f3f7039 51 #:use-module (gnu packages xml)
bdb36958
LC		 52 #:use-module (guix packages)
53 #:use-module (guix download)
54 #:use-module (guix build-system gnu)
55 #:use-module (guix build-system trivial)
8102cf0b 56 #:use-module (guix memoization)
bdb36958
LC		 57 #:use-module (guix utils)
58 #:use-module (srfi srfi-1)
59 #:use-module (srfi srfi-26)
60 #:use-module (ice-9 vlist)
d75acc29 61 #:use-module (ice-9 match)
6869b663
CD		 62 #:use-module (ice-9 regex)
63 #:export (make-gcc-toolchain))
bdb36958
LC		 64
65;;; Commentary:
66;;;
67;;; This is the commencement, this is where things start. Before the
68;;; commencement, of course, there's the 'bootstrap' module, which provides us
69;;; with the initial binaries. This module uses those bootstrap binaries to
70;;; actually build up the whole tool chain that make up the implicit inputs of
71;;; 'gnu-build-system'.
72;;;
73;;; To avoid circular dependencies, this module should not be imported
74;;; directly from anywhere.
75;;;
a1df45e9
CM		 76;;; Below, we frequently use "inherit" to create modified packages. The
77;;; reason why we use "inherit" instead of "package/inherit" is because we do
78;;; not want these commencement packages to inherit grafts. By definition,
79;;; these packages are not depended on at run time by any of the packages we
80;;; use. Thus it does not make sense to inherit grafts. Furthermore, those
81;;; grafts would often lead to extra overhead for users who would end up
82;;; downloading those "-boot0" packages just to build package replacements
83;;; that are in fact not going to be used.
84;;;
bdb36958
LC		 85;;; Code:
86
0b652851 87(define mes-boot
9a45a24f
LC		 88 (package
89 (inherit mes)
90 (name "mes-boot")
91 (version "0.19")
92 (source (origin
93 (method url-fetch)
94 (uri (string-append "mirror://gnu/mes/"
95 "mes-" version ".tar.gz"))
96 (sha256
97 (base32
98 "15h4yhaywdc0djpjlin2jz1kzahpqxfki0r0aav1qm9nxxmnp1l0"))))
99 (inputs '())
100 (propagated-inputs '())
101 (native-inputs
102 `(("mescc-tools" ,%bootstrap-mescc-tools)
103 ("nyacc-source" ,(bootstrap-origin
104 (package-source nyacc-0.86)))
0b652851 105
9a45a24f
LC		 106 ("coreutils" , %bootstrap-coreutils&co)
107 ("bootstrap-mes" ,%bootstrap-mes)))
108 (arguments
109 `(#:implicit-inputs? #f
110 #:guile ,%bootstrap-guile
111 #:strip-binaries? #f ; binutil's strip b0rkes MesCC/M1/hex2 binaries
112 #:phases
113 (modify-phases %standard-phases
114 (add-after 'unpack 'unpack-seeds
115 (lambda _
116 (let ((nyacc-source (assoc-ref %build-inputs "nyacc-source"))
117 (bootstrap-mes (assoc-ref %build-inputs "bootstrap-mes")))
118 (with-directory-excursion ".."
119 (mkdir-p "nyacc-source")
120 (invoke "tar" "--strip=1" "-C" "nyacc-source" "-xvf" nyacc-source)
121 (symlink (string-append bootstrap-mes "/share/mes/lib") "mes-seed"))
122 #t)))
123 (replace 'configure
124 (lambda* (#:key outputs #:allow-other-keys)
125 (let ((out (assoc-ref %outputs "out")))
126 (setenv "GUILE" "mes")
127 (setenv "GUILE_EFFECTIVE_VERSION" "2.2")
128 (setenv "GUILE_LOAD_PATH" "nyacc")
129 (symlink (string-append "../nyacc-source/module") "nyacc")
130 (invoke "bash" "configure.sh"
131 (string-append "--prefix=" out)))))
132 (replace 'build
133 (lambda _
134 (let ((mes (assoc-ref %build-inputs "bootstrap-mes")))
135 (setenv "MES_PREFIX" (string-append mes "/share/mes"))
136 (setenv "MES_ARENA" "100000000")
137 (setenv "MES_MAX_ARENA" "100000000")
138 (setenv "MES_STACK" "10000000")
139 (invoke "sh" "bootstrap.sh"))))
140 (replace 'check
141 (lambda _
142 (setenv "DIFF" "sh scripts/diff.scm")
143 ;; fail fast tests
144 ;; (invoke "sh" "-x" "build-aux/test.sh" "scaffold/tests/t")
145 ;; (invoke "sh" "-x" "build-aux/test.sh" "scaffold/tests/63-struct-cell")
146 (invoke "sh" "check.sh")))
147 (replace 'install
148 (lambda _
149 (invoke "sh" "install.sh"))))))
150 (native-search-paths
151 ;; Use the language-specific variables rather than 'CPATH' because they
152 ;; are equivalent to '-isystem' whereas 'CPATH' is equivalent to '-I'.
153 ;; The intent is to allow headers that are in the search path to be
154 ;; treated as "system headers" (headers exempt from warnings) just like
155 ;; the typical /usr/include headers on an FHS system.
156 (list (search-path-specification
157 (variable "C_INCLUDE_PATH")
158 (files '("share/mes/include")))
159 (search-path-specification
160 (variable "LIBRARY_PATH")
161 (files '("share/mes/lib")))))))
0b652851
JN		 162
163(define tcc-boot0
164 ;; Pristine tcc cannot be built by MesCC, we are keeping a delta of 11
165 ;; patches. In a very early and rough form they were presented to the
166 ;; TinyCC developers, who at the time showed no interest in supporting the
167 ;; bootstrappable effort; we will try again later. These patches have been
168 ;; ported to 0.9.27, alas the resulting tcc is buggy. Once MesCC is more
169 ;; mature, this package should use the 0.9.27 sources (or later).
170 (let ((version "0.9.26")
b02dc758
JN		 171 (revision "6")
172 (commit "c004e9a34fb026bb44d211ab98bb768e79900eef"))
9a45a24f
LC		 173 (package
174 (inherit tcc)
175 (name "tcc-boot0")
176 (version (string-append version "-" revision "." (string-take commit 7)))
177 (source (origin
178 (method url-fetch)
179 (uri (string-append "https://gitlab.com/janneke/tinycc"
180 "/-/archive/" commit
181 "/tinycc-" commit ".tar.gz"))
182 (sha256
183 (base32
184 "1hmzn1pq0x22ppd80hyrn5qzqq94mxd0ychzj6vrr2vnj2frjv5b"))))
185 (build-system gnu-build-system)
186 (supported-systems '("i686-linux" "x86_64-linux"))
187 (inputs '())
188 (propagated-inputs '())
189 (native-inputs
190 `(("mes" ,mes-boot)
191 ("mescc-tools" ,%bootstrap-mescc-tools)
192 ("nyacc-source" ,(bootstrap-origin
193 (package-source nyacc-0.86)))
0b652851 194
9a45a24f
LC		 195 ("coreutils" , %bootstrap-coreutils&co)
196 ("bootstrap-mes" ,%bootstrap-mes)))
197 (arguments
198 `(#:implicit-inputs? #f
199 #:guile ,%bootstrap-guile
200 #:strip-binaries? #f ; binutil's strip b0rkes MesCC/M1/hex2 binaries
201 #:phases
202 (modify-phases %standard-phases
203 (add-after 'unpack 'unpack-seeds
204 (lambda* (#:key outputs #:allow-other-keys)
205 (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
206 (nyacc-source (assoc-ref %build-inputs "nyacc-source"))
207 (bootstrap-mes (assoc-ref %build-inputs "bootstrap-mes")))
208 (setenv "PATH" (string-append
209 coreutils "/bin"))
210 (format (current-error-port) "PATH=~s\n" (getenv "PATH"))
211 (with-directory-excursion ".."
212 (mkdir-p "nyacc-source")
213 (invoke "tar" "--strip=1" "-C" "nyacc-source"
214 "-xvf" nyacc-source)
215 (symlink (string-append bootstrap-mes "/share/mes/lib") "mes-seed"))
216 #t)))
217 (replace 'configure
218 (lambda* (#:key outputs #:allow-other-keys)
219 (let* ((out (assoc-ref %outputs "out"))
220 (dir (with-directory-excursion ".." (getcwd)))
221 (coreutils (assoc-ref %build-inputs "coreutils"))
222 (mes (assoc-ref %build-inputs "mes"))
223 (mescc-tools (assoc-ref %build-inputs "mescc-tools"))
224 (libc (assoc-ref %build-inputs "libc"))
225 (interpreter (if libc
226 ;; also for x86_64-linux, we are still on i686-linux
227 (string-append libc ,(glibc-dynamic-linker "i686-linux"))
228 (string-append mes "/lib/mes-loader"))))
229 (setenv "PATH" (string-append
230 coreutils "/bin"
231 ":" mes "/bin"
232 ":" mescc-tools "/bin"))
233 (format (current-error-port) "PATH=~s\n" (getenv "PATH"))
0b652851 234
9a45a24f
LC		 235 (setenv "PREFIX" out)
236 (symlink (string-append mes "/share/mes") "mes")
237 (symlink (string-append "../nyacc-source/module") "nyacc")
238 (setenv "MES_PREFIX" "mes")
239 (setenv "MES_ARENA" "100000000")
240 (setenv "MES_MAX_ARENA" "100000000")
241 (setenv "MES_STACK" "10000000")
242 (setenv "MES" "mes")
243 (setenv "GUILE_LOAD_PATH" "nyacc")
244 (invoke "sh" "configure"
245 "--prefix=$PREFIX"
246 (string-append "--elfinterp=" interpreter)
247 "--crtprefix=."
248 "--tccdir=."))))
249 (replace 'build
250 (lambda _
251 (substitute* "bootstrap.sh"
252 (("^ cmp") "# cmp"))
253 (invoke "sh" "bootstrap.sh")))
254 (replace 'check
255 (lambda _
256 (setenv "DIFF" "diff.scm")
257 (setenv "OBJDUMP" "true")
258 ;; fail fast tests
259 ;; (invoke "sh" "test.sh" "mes/scaffold/tests/30-strlen")
260 ;; (invoke "sh" "-x" "test.sh" "mes/scaffold/tinycc/00_assignment")
261 (setenv "TCC" "./tcc")
262 (invoke "sh" "check.sh")))
263 (replace 'install
264 (lambda _
265 (invoke "sh" "install.sh"))))))
266 (native-search-paths
267 ;; Use the language-specific variables rather than 'CPATH' because they
268 ;; are equivalent to '-isystem' whereas 'CPATH' is equivalent to '-I'.
269 ;; The intent is to allow headers that are in the search path to be
270 ;; treated as "system headers" (headers exempt from warnings) just like
271 ;; the typical /usr/include headers on an FHS system.
272 (list (search-path-specification
273 (variable "C_INCLUDE_PATH")
274 (files '("include")))
275 (search-path-specification
276 (variable "LIBRARY_PATH")
277 (files '("lib"))))))))
0b652851
JN		 278
279(define tcc-boot
9a45a24f
LC		 280 (package
281 (inherit tcc-boot0)
282 (name "tcc-boot")
283 (version "0.9.27")
284 (source (bootstrap-origin
285 (origin
0b652851 286 (inherit (package-source tcc))
9a45a24f
LC		 287 (patches (search-patches "tcc-boot-0.9.27.patch")))))
288 (build-system gnu-build-system)
289 (inputs '())
290 (propagated-inputs '())
291 (native-inputs
292 `(("mes" ,mes-boot)
293 ("tcc" ,tcc-boot0)
0b652851 294
9a45a24f
LC		 295 ("coreutils" , %bootstrap-coreutils&co)))
296 (arguments
297 `(#:implicit-inputs? #f
298 #:guile ,%bootstrap-guile
299
300 ;; Binutils' 'strip' b0rkes MesCC/M1/hex2 binaries, tcc-boot also comes
301 ;; with MesCC/M1/hex2-built binaries.
302 #:strip-binaries? #f
303
304 #:phases
305 (modify-phases %standard-phases
306 (replace 'configure
307 (lambda* (#:key outputs #:allow-other-keys)
308 (let* ((out (assoc-ref %outputs "out"))
309 (coreutils (assoc-ref %build-inputs "coreutils"))
310 (mes (assoc-ref %build-inputs "mes"))
311 (tcc (assoc-ref %build-inputs "tcc"))
312 (libc (assoc-ref %build-inputs "libc"))
313 (interpreter (if libc
314 ;; also for x86_64-linux, we are still on i686-linux
315 (string-append libc ,(glibc-dynamic-linker "i686-linux"))
316 (string-append mes "/lib/mes-loader"))))
317 ;; unpack
318 (setenv "PATH" (string-append
319 coreutils "/bin"
320 ":" tcc "/bin"))
321 (format (current-error-port) "PATH=~s\n" (getenv "PATH"))
322 (invoke "sh" "configure"
323 (string-append "--cc=tcc")
324 (string-append "--cpu=i386")
325 (string-append "--prefix=" out)
326 (string-append "--elfinterp=" interpreter)
327 (string-append "--crtprefix=" tcc "/lib")
328 (string-append "--sysincludepaths=" tcc "/include")
329 (string-append "--libpaths=" tcc "/lib")))))
330 (replace 'build
331 (lambda* (#:key outputs #:allow-other-keys)
332 (let* ((out (assoc-ref %outputs "out"))
333 (mes (assoc-ref %build-inputs "mes"))
334 (tcc (assoc-ref %build-inputs "tcc"))
335 (libc (assoc-ref %build-inputs "libc"))
336 (interpreter (if libc
337 ;; also for x86_64-linux, we are still on i686-linux
338 (string-append libc ,(glibc-dynamic-linker "i686-linux"))
339 (string-append mes "/lib/mes-loader"))))
340 (invoke "tcc"
341 "-vvv"
342 "-D" "BOOTSTRAP=1"
343 "-D" "ONE_SOURCE=1"
344 "-D" "TCC_TARGET_I386=1"
345 "-D" "CONFIG_TCC_STATIC=1"
346 "-D" "CONFIG_USE_LIBGCC=1"
347 "-D" (string-append "CONFIG_TCCDIR=\"" out "/lib/tcc\"")
348 "-D" (string-append "CONFIG_TCC_CRTPREFIX=\"" out "/lib:{B}/lib:.\"")
349 "-D" (string-append "CONFIG_TCC_CRTPREFIX=\"" out
350 "/lib:{B}/lib:.\"")
351 "-D" (string-append "CONFIG_TCC_ELFINTERP=\"" interpreter "\"")
352 "-D" (string-append "CONFIG_TCC_LIBPATHS=\"" tcc "/lib:{B}/lib:.\"")
353 "-D" (string-append "CONFIG_TCC_SYSINCLUDEPATHS=\"" tcc "/include" ":/include:{B}/include\"")
354 "-D" (string-append "TCC_LIBGCC=\"" tcc "/lib/libc.a\"")
355 "-o" "tcc"
356 "tcc.c"))))
357 (replace 'check
358 (lambda _
359 ;; FIXME: add sensible check target (without depending on make)
360 ;; ./check.sh ?
361 (= 1 (status:exit-val (system* "./tcc" "--help")))))
362 (replace 'install
363 (lambda* (#:key outputs #:allow-other-keys)
364 (let ((out (assoc-ref %outputs "out"))
365 (tcc (assoc-ref %build-inputs "tcc")))
366 (mkdir-p (string-append out "/bin"))
367 (copy-file "tcc" (string-append out "/bin/tcc"))
368 (mkdir-p (string-append out "/lib/tcc"))
369 (copy-recursively (string-append tcc "/include")
370 (string-append out "/include"))
371 (copy-recursively (string-append tcc "/lib")
372 (string-append out "/lib"))
373 (invoke "tcc" "-D" "TCC_TARGET_I386=1" "-c" "-o" "libtcc1.o" "lib/libtcc1.c")
374 (invoke "tcc" "-ar" "rc" "libtcc1.a" "libtcc1.o")
375 (copy-file "libtcc1.a" (string-append out "/lib/libtcc1.a"))
376 (delete-file (string-append out "/lib/tcc/libtcc1.a"))
377 (copy-file "libtcc1.a" (string-append out "/lib/tcc/libtcc1.a"))
378 #t))))))))
0b652851
JN		 379
380(define make-mesboot0
9a45a24f
LC		 381 (package
382 (inherit gnu-make)
383 (name "make-mesboot0")
384 (version "3.80")
385 (source (origin
386 (method url-fetch)
387 (uri (string-append "mirror://gnu/make/make-"
388 version ".tar.gz"))
389 (sha256
390 (base32
391 "1pb7fb7fqf9wz9najm85qdma1xhxzf1rhj5gwrlzdsz2zm0hpcv4"))))
392 (supported-systems '("i686-linux" "x86_64-linux"))
393 (inputs '())
394 (propagated-inputs '())
395 (native-inputs `(("tcc" ,tcc-boot)
0b652851 396
9a45a24f
LC		 397 ("bash" ,%bootstrap-coreutils&co)
398 ("coreutils" ,%bootstrap-coreutils&co)))
399 (arguments
400 `(#:implicit-inputs? #f
401 #:tests? #f ; check depends on perl
402 #:guile ,%bootstrap-guile
403 #:configure-flags `("CC=tcc -DO_RDONLY=0"
404 "LD=tcc"
405 "--disable-nls")
406 #:phases
407 (modify-phases %standard-phases
408 (add-after 'configure 'configure-fixup
409 (lambda _
410 (substitute* "build.sh"
411 (("^REMOTE=.*") "REMOTE=stub\n")
412 (("^extras=.*") "extras=getloadavg.c\n"))
413 (substitute* "make.h"
414 (("^extern long int lseek.*" all) (string-append "// " all)))
415 #t))
416 (delete 'patch-generated-file-shebangs) ; no perl
417 (replace 'build
418 (lambda _
419 (invoke "sh" "./build.sh")))
420 (replace 'install
421 (lambda* (#:key outputs #:allow-other-keys)
422 (let* ((out (assoc-ref outputs "out"))
423 (bin (string-append out "/bin")))
424 (install-file "make" bin)
425 #t))))))))
0b652851
JN		 426
427(define diffutils-mesboot
9a45a24f
LC		 428 (package
429 (inherit diffutils)
430 (name "diffutils-mesboot")
431 (version "2.7")
432 (source (origin
433 (method url-fetch)
434 (uri (string-append "mirror://gnu/diffutils/diffutils-"
435 version ".tar.gz"))
436 (sha256
437 (base32
438 "1mirn5i825bn5w7rh6mgn0r8aj9xqanav95dwcl1b8sn82f4iwnm"))))
439 (supported-systems '("i686-linux" "x86_64-linux"))
440 (inputs '())
441 (propagated-inputs '())
442 (native-inputs `(("mes" ,mes-boot)
443 ("tcc" ,tcc-boot)
0b652851 444
9a45a24f
LC		 445 ("bash" ,%bootstrap-coreutils&co)
446 ("coreutils" ,%bootstrap-coreutils&co)
447 ("make" ,make-mesboot0)))
448 (arguments
449 `(#:implicit-inputs? #f
450 #:guile ,%bootstrap-guile
451 #:parallel-build? #f
452 #:tests? #f ; check is naive, also checks non-built PROGRAMS
453 #:strip-binaries? #f ; no strip yet
454 #:phases
455 (modify-phases %standard-phases
456 ;; diffutils-2.7 needs more traditional configure
457 (replace 'configure
458 (lambda* (#:key outputs #:allow-other-keys)
459 (let ((out (assoc-ref outputs "out"))
460 (bash (assoc-ref %build-inputs "bash")))
461 (setenv "CONFIG_SHELL" (string-append bash "/bin/sh"))
462 (setenv "CC" "tcc")
463 (setenv "LD" "tcc")
464 (invoke "./configure" (string-append "--prefix=" out)))))
465 (add-before 'configure 'remove-diff3-sdiff
466 (lambda* (#:key outputs #:allow-other-keys)
467 (substitute* "Makefile.in"
468 (("PROGRAMS = .*" all) "PROGRAMS = cmp diff"))
469 #t)))))))
0b652851
JN		 470
471(define binutils-mesboot0
9a45a24f
LC		 472 (package
473 (inherit binutils)
474 (name "binutils-mesboot0")
475 (version "2.20.1a")
476 (source (bootstrap-origin
477 (origin
0b652851
JN		 478 (method url-fetch)
479 (uri (string-append "mirror://gnu/binutils/binutils-"
480 version ".tar.bz2"))
481 (patches (search-patches "binutils-boot-2.20.1a.patch"))
482 (sha256
483 (base32
9a45a24f
LC		 484 "0r7dr0brfpchh5ic0z9r4yxqn4ybzmlh25sbp30cacqk8nb7rlvi")))))
485 (inputs '())
486 (propagated-inputs '())
487 (native-inputs `(("tcc" ,tcc-boot)
0b652851 488
9a45a24f
LC		 489 ("bash" ,%bootstrap-coreutils&co)
490 ("coreutils" ,%bootstrap-coreutils&co)
491 ("diffutils" ,diffutils-mesboot)
492 ("make" ,make-mesboot0)))
493 (supported-systems '("i686-linux" "x86_64-linux"))
494 (arguments
495 `(#:implicit-inputs? #f
496 #:guile ,%bootstrap-guile
497 #:tests? #f ; runtest: command not found
498 #:parallel-build? #f
499 #:strip-binaries? #f ; no strip yet
500 #:configure-flags
501 (let ((cppflags (string-append " -D __GLIBC_MINOR__=6"
502 " -D MES_BOOTSTRAP=1"))
503 (bash (assoc-ref %build-inputs "bash")))
504 `(,(string-append "CONFIG_SHELL=" bash "/bin/sh")
505 ,(string-append "CPPFLAGS=" cppflags)
506 "AR=tcc -ar"
507 "CXX=false"
508 "RANLIB=true"
509 ,(string-append "CC=tcc" cppflags)
510 "--disable-nls"
511 "--disable-shared"
512 "--disable-werror"
513 "--build=i686-unknown-linux-gnu"
514 "--host=i686-unknown-linux-gnu"
515 "--with-sysroot=/"))))))
0b652851
JN		 516
517(define gcc-core-mesboot
518 ;; Gcc-2.95.3 is the most recent GCC that is supported by what the Mes C
519 ;; Library v0.16 offers. Gcc-3.x (and 4.x) place higher demands on a C
520 ;; library, such as dir.h/struct DIR/readdir, locales, signals... Also,
521 ;; with gcc-2.95.3, binutils-boot-2.20.1a and glibc-2.2.5 we found a GNU
522 ;; toolchain triplet "that works".
9a45a24f
LC		 523 (package
524 (inherit gcc)
525 (name "gcc-core-mesboot")
526 (version "2.95.3")
527 (source (bootstrap-origin
528 (origin
0b652851
JN		 529 (method url-fetch)
530 (uri (string-append "mirror://gnu/gcc/gcc-2.95.3/gcc-core-"
531 version
532 ".tar.gz"))
533 (patches (search-patches "gcc-boot-2.95.3.patch"))
534 (sha256
535 (base32
9a45a24f
LC		 536 "1xvfy4pqhrd5v2cv8lzf63iqg92k09g6z9n2ah6ndd4h17k1x0an")))))
537 (supported-systems '("i686-linux" "x86_64-linux"))
538 (inputs '())
539 (propagated-inputs '())
540 (native-inputs `(("binutils" ,binutils-mesboot0)
541 ("tcc" ,tcc-boot)
0b652851 542
9a45a24f
LC		 543 ("bash" ,%bootstrap-coreutils&co)
544 ("coreutils" ,%bootstrap-coreutils&co)
545 ("diffutils" ,diffutils-mesboot)
546 ("make" ,make-mesboot0)))
547 (outputs '("out"))
548 (arguments
549 `(#:implicit-inputs? #f
550 #:guile ,%bootstrap-guile
551 #:tests? #f
552 #:parallel-build? #f
553 #:strip-binaries? #f
554 #:configure-flags
555 (let ((out (assoc-ref %outputs "out")))
556 `("--enable-static"
557 "--disable-shared"
558 "--disable-werror"
559 "--build=i686-unknown-linux-gnu"
560 "--host=i686-unknown-linux-gnu"
561 ,(string-append "--prefix=" out)))
562 #:make-flags (list
563 "CC=tcc -static -D __GLIBC_MINOR__=6"
564 "OLDCC=tcc -static -D __GLIBC_MINOR__=6"
565 "CC_FOR_BUILD=tcc -static -D __GLIBC_MINOR__=6"
566 "AR=ar"
567 "RANLIB=ranlib"
568 (string-append "LIBGCC2_INCLUDES=-I "
569 (assoc-ref %build-inputs "tcc")
570 "/include")
571 "LANGUAGES=c"
572 (string-append "BOOT_LDFLAGS="
573 " -B" (assoc-ref %build-inputs "tcc")
574 "/lib/"))
575 #:modules ((guix build gnu-build-system)
576 (guix build utils)
577 (srfi srfi-1))
578 #:phases
579 (modify-phases %standard-phases
580 ;; gcc-2.95.3 needs more traditional configure
581 (add-before 'configure 'setenv
582 (lambda* (#:key outputs #:allow-other-keys)
583 (let ((out (assoc-ref outputs "out"))
584 (bash (assoc-ref %build-inputs "bash"))
585 (tcc (assoc-ref %build-inputs "tcc"))
586 (cppflags " -D __GLIBC_MINOR__=6"))
587 (setenv "CONFIG_SHELL" (string-append bash "/bin/sh"))
588 (setenv "CPPFLAGS" cppflags)
589 (setenv "CC" (string-append "tcc" cppflags))
590 (setenv "CC_FOR_BUILD" (string-append "tcc" cppflags))
591 (setenv "CPP" (string-append "tcc -E" cppflags))
592 (with-output-to-file "config.cache"
593 (lambda _
594 (display "
0b652851 595ac_cv_c_float_format='IEEE (little-endian)'
2b5e412b 596")))
9a45a24f
LC		 597 #t)))
598 (replace 'configure
599 (lambda* (#:key configure-flags #:allow-other-keys)
600 (format (current-error-port)
601 "running ./configure ~a\n" (string-join configure-flags))
602 (apply invoke "./configure" configure-flags)))
603 (add-after 'configure 'remove-info
604 (lambda _
605 ;; no info at this stage
606 (delete-file-recursively "texinfo")
607 (invoke "touch" "gcc/cpp.info" "gcc/gcc.info")))
608 (add-after 'install 'install2
609 (lambda* (#:key outputs #:allow-other-keys)
610 (let* ((tcc (assoc-ref %build-inputs "tcc"))
611 (tcc-lib (string-append tcc "/lib/x86-mes-gcc"))
612 (out (assoc-ref outputs "out"))
613 (gcc-dir (string-append
614 out "/lib/gcc-lib/i686-unknown-linux-gnu/2.95.3")))
615 (mkdir-p "tmp")
616 (zero? (system (string-append "set -x; cd tmp && ar x ../gcc/libgcc2.a")))
617 (zero? (system (string-append "set -x; cd tmp && ar r " gcc-dir "/libgcc.a *.o")))
618 (copy-file "gcc/libgcc2.a" (string-append out "/lib/libgcc2.a"))
619 (copy-file (string-append tcc "/lib/libtcc1.a")
620 (string-append out "/lib/libtcc1.a"))
621 (invoke "ar" "r" (string-append gcc-dir "/libc.a")
622 (string-append tcc-lib "/libc+gnu.o")
623 (string-append tcc-lib "/libtcc1.o"))
624 (invoke "ar" "r" (string-append out "/lib/libc.a")
625 (string-append tcc-lib "/libc+gnu.o")
626 (string-append tcc-lib "/libtcc1.o"))
627 (invoke "ls" "-ltrF" gcc-dir)
628 (copy-recursively (string-append tcc "/include")
629 (string-append out "/include"))
630 #t))))))
631 (native-search-paths
632 ;; Use the language-specific variables rather than 'CPATH' because they
633 ;; are equivalent to '-isystem' whereas 'CPATH' is equivalent to '-I'.
634 ;; The intent is to allow headers that are in the search path to be
635 ;; treated as "system headers" (headers exempt from warnings) just like
636 ;; the typical /usr/include headers on an FHS system.
637 (list (search-path-specification
638 (variable "C_INCLUDE_PATH")
639 (files '("include" "/lib/gcc-lib/i686-unknown-linux-gnu/2.95.3/include")))
640 (search-path-specification
641 (variable "LIBRARY_PATH")
642 (files '("lib")))))))
0b652851
JN		 643
644(define mesboot-headers
9a45a24f
LC		 645 (package
646 (inherit mes-boot)
647 (name "mesboot-headers")
648 (supported-systems '("i686-linux" "x86_64-linux"))
649 (inputs '())
650 (propagated-inputs '())
651 (native-inputs `(("coreutils" ,%bootstrap-coreutils&co)
652 ("headers" ,%bootstrap-linux-libre-headers)))
653 (arguments
654 `(#:implicit-inputs? #f
655 #:guile ,%bootstrap-guile
656 #:tests? #f
657 #:strip-binaries? #f
658 #:phases
659 (modify-phases %standard-phases
660 (delete 'configure)
661 (delete 'build)
662 (replace 'install
663 (lambda* (#:key outputs #:allow-other-keys)
664 (let* ((out (assoc-ref outputs "out"))
665 (include (string-append out "/include"))
666 (headers (assoc-ref %build-inputs "headers" )))
667 (mkdir-p include)
668 (copy-recursively "include" out)
669 (copy-recursively headers out)
670 #t))))))
671 (native-search-paths
672 ;; Use the language-specific variables rather than 'CPATH' because they
673 ;; are equivalent to '-isystem' whereas 'CPATH' is equivalent to '-I'.
674 ;; The intent is to allow headers that are in the search path to be
675 ;; treated as "system headers" (headers exempt from warnings) just like
676 ;; the typical /usr/include headers on an FHS system.
677 (list (search-path-specification
678 (variable "C_INCLUDE_PATH")
679 (files '("include")))))))
0b652851
JN		 680
681(define glibc-mesboot0
682 ;; GNU C Library 2.2.5 is the most recent glibc that we managed to build
683 ;; using gcc-2.95.3. Newer versions (2.3.x, 2.6, 2.1x) seem to need a newer
684 ;; gcc.
9a45a24f
LC		 685 (package
686 (inherit glibc)
687 (name "glibc-mesboot0")
688 (version "2.2.5")
689 (source (bootstrap-origin
690 (origin
0b652851
JN		 691 (method url-fetch)
692 (uri (string-append "mirror://gnu/glibc/glibc-"
693 version
694 ".tar.gz"))
695 (patches (search-patches "glibc-boot-2.2.5.patch"))
696 (sha256
697 (base32
9a45a24f
LC		 698 "1vl48i16gx6h68whjyhgnn1s57vqq32f9ygfa2fls7pdkbsqvp2q")))))
699 (supported-systems '("i686-linux" "x86_64-linux"))
700 (inputs '())
701 (propagated-inputs '())
702 (native-inputs `(("binutils" ,binutils-mesboot0)
703 ("gcc" ,gcc-core-mesboot)
0b652851 704
9a45a24f
LC		 705 ("bash" ,%bootstrap-coreutils&co)
706 ("coreutils" ,%bootstrap-coreutils&co)
707 ("diffutils" ,diffutils-mesboot)
708 ("headers" ,mesboot-headers)
709 ("make" ,make-mesboot0)))
710 (outputs '("out"))
711 (arguments
712 `(#:implicit-inputs? #f
713 #:guile ,%bootstrap-guile
714 #:tests? #f
715 #:strip-binaries? #f
716 #:parallel-build? #f ; gcc-2.95.3 ICEs on massively parallel builds
717 #:make-flags (list (string-append
718 "SHELL="
719 (assoc-ref %build-inputs "bash")
720 "/bin/sh"))
721 #:configure-flags
722 (let ((out (assoc-ref %outputs "out"))
723 (headers (assoc-ref %build-inputs "headers")))
724 (list
725 "--disable-shared"
726 "--enable-static"
727 "--disable-sanity-checks"
728 "--build=i686-unknown-linux-gnu"
729 "--host=i686-unknown-linux-gnu"
730 (string-append "--with-headers=" headers "/include")
731 "--enable-static-nss"
732 "--without-__thread"
733 "--without-cvs"
734 "--without-gd"
735 "--without-tls"
736 (string-append "--prefix=" out)))
737 #:phases
738 (modify-phases %standard-phases
739 (add-before 'configure 'setenv
740 (lambda* (#:key outputs #:allow-other-keys)
741 (let* ((out (assoc-ref outputs "out"))
742 (bash (assoc-ref %build-inputs "bash"))
743 (gcc (assoc-ref %build-inputs "gcc"))
744 (headers (assoc-ref %build-inputs "headers"))
745 (cppflags (string-append
746 ;;" -D __STDC__=1"
747 " -D MES_BOOTSTRAP=1"
748 " -D BOOTSTRAP_GLIBC=1"))
749 (cflags (string-append " -L " (getcwd))))
750 (setenv "CONFIG_SHELL" (string-append bash "/bin/sh"))
751 (setenv "SHELL" (getenv "CONFIG_SHELL"))
752 (setenv "CPP" (string-append gcc "/bin/gcc -E " cppflags))
753 (setenv "CC" (string-append gcc "/bin/gcc " cppflags cflags))
754 #t)))
755 ;; glibc-2.2.5 needs a more classic invocation of configure
756 ;; configure: warning: CONFIG_SHELL=/gnu/store/…-bash-minimal-4.4.12/bin/bash: invalid host type
757 (replace 'configure
758 (lambda* (#:key configure-flags #:allow-other-keys)
759 (format (current-error-port)
760 "running ./configure ~a\n" (string-join configure-flags))
761 (apply invoke "./configure" configure-flags))))))
762 (native-search-paths
763 ;; Use the language-specific variables rather than 'CPATH' because they
764 ;; are equivalent to '-isystem' whereas 'CPATH' is equivalent to '-I'.
765 ;; The intent is to allow headers that are in the search path to be
766 ;; treated as "system headers" (headers exempt from warnings) just like
767 ;; the typical /usr/include headers on an FHS system.
768 (list (search-path-specification
769 (variable "C_INCLUDE_PATH")
770 (files '("include")))
771 (search-path-specification
772 (variable "CPLUS_INCLUDE_PATH")
773 (files '("include")))
774 (search-path-specification
775 (variable "LIBRARY_PATH")
776 (files '("lib")))))))
0b652851
JN		 777
778(define gcc-mesboot0
9a45a24f
LC		 779 (package
780 (inherit gcc-core-mesboot)
781 (name "gcc-mesboot0")
782 (native-inputs `(("binutils" ,binutils-mesboot0)
783 ("gcc" ,gcc-core-mesboot)
784 ("libc" ,glibc-mesboot0)
0b652851 785
9a45a24f
LC		 786 ("bash" ,%bootstrap-coreutils&co)
787 ("coreutils" ,%bootstrap-coreutils&co)
788 ("diffutils" ,diffutils-mesboot)
789 ("kernel-headers" ,%bootstrap-linux-libre-headers)
790 ("make" ,make-mesboot0)))
791 (arguments
792 (substitute-keyword-arguments (package-arguments gcc-core-mesboot)
793 ((#:phases phases)
794 `(modify-phases ,phases
795 (replace 'setenv
796 (lambda* (#:key outputs #:allow-other-keys)
797 (let ((out (assoc-ref outputs "out"))
798 (bash (assoc-ref %build-inputs "bash"))
799 (gcc (assoc-ref %build-inputs "gcc"))
800 (glibc (assoc-ref %build-inputs "libc"))
801 (kernel-headers (assoc-ref %build-inputs "kernel-headers")))
802 (setenv "CONFIG_SHELL" (string-append bash "/bin/sh"))
803 (format (current-error-port) "C_INCLUDE_PATH=~a\n" (getenv "C_INCLUDE_PATH"))
804 (setenv "C_INCLUDE_PATH" (string-append
805 gcc "/lib/gcc-lib/i686-unknown-linux-gnu/2.95.3/include"
806 ":" kernel-headers "/include"
807 ":" glibc "/include"))
808 (format (current-error-port) "C_INCLUDE_PATH=~a\n" (getenv "C_INCLUDE_PATH"))
809 (format (current-error-port) "LIBRARY_PATH=~a\n" (getenv "LIBRARY_PATH"))
810 ;; FIXME: add glibc dirs to paths manually
811 (setenv "LIBRARY_PATH" (string-join
812 (list (string-append glibc "/lib")
813 (getenv "LIBRARY_PATH"))
814 ":"))
815 (format (current-error-port) "LIBRARY_PATH=~a\n" (getenv "LIBRARY_PATH"))
816 (with-output-to-file "config.cache"
817 (lambda _
818 (display "
0b652851
JN		 819ac_cv_c_float_format='IEEE (little-endian)'
820")))
9a45a24f
LC		 821 #t)))
822 (replace 'install2
823 (lambda* (#:key outputs #:allow-other-keys)
824 (let* ((out (assoc-ref outputs "out"))
825 (gcc-dir (string-append
826 out "/lib/gcc-lib/i686-unknown-linux-gnu/2.95.3")))
827 (mkdir-p "tmp")
828 (zero? (system (string-append "set -x; cd tmp && ar x ../gcc/libgcc2.a")))
829 (zero? (system (string-append "set -x; cd tmp && ar r " gcc-dir "/libgcc.a *.o")))
830 (copy-file "gcc/libgcc2.a" (string-append out "/lib/libgcc2.a"))
831 #t)))))
832 ((#:configure-flags configure-flags)
833 `(let ((out (assoc-ref %outputs "out")))
834 `("--disable-shared"
835 "--disable-werror"
836 "--build=i686-unknown-linux-gnu"
837 "--host=i686-unknown-linux-gnu"
838 ,(string-append "--prefix=" out))))
839 ((#:make-flags make-flags)
840 `(let ((gcc (assoc-ref %build-inputs "gcc")))
841 `("RANLIB=true"
842 ,(string-append "LIBGCC2_INCLUDES=-I " gcc "/include")
843 "LANGUAGES=c")))))))
0b652851
JN		 844
845(define binutils-mesboot
9a45a24f
LC		 846 (package
847 (inherit binutils-mesboot0)
848 (name "binutils-mesboot")
849 (native-inputs `(("binutils" ,binutils-mesboot0)
850 ("libc" ,glibc-mesboot0)
851 ("gcc" ,gcc-mesboot0)
0b652851 852
9a45a24f
LC		 853 ("bash" ,%bootstrap-coreutils&co)
854 ("coreutils" ,%bootstrap-coreutils&co)
855 ("diffutils" ,diffutils-mesboot)
856 ("kernel-headers" ,%bootstrap-linux-libre-headers)
857 ("make" ,make-mesboot0)))
858 (arguments
859 (substitute-keyword-arguments (package-arguments binutils-mesboot0)
860 ((#:configure-flags configure-flags)
861 '(list "--disable-nls"
862 "--disable-shared"
863 "--disable-werror"
864 "--build=i686-unknown-linux-gnu"
865 "--host=i686-unknown-linux-gnu"
866 "--with-sysroot=/"))))))
0b652851
JN		 867
868(define make-mesboot
9a45a24f
LC		 869 (package
870 (inherit make-mesboot0)
871 (name "make-mesboot")
872 (version "3.82")
873 (source (origin
874 (method url-fetch)
875 (uri (string-append "mirror://gnu/make/make-"
876 version ".tar.gz"))
877 (sha256
878 (base32
879 "1rs2f9hmvy3q6zkl15jnlmnpgffm0bhw5ax0h5c7q604wqrip69x"))))
880 (native-inputs `(("binutils" ,binutils-mesboot0)
881 ("libc" ,glibc-mesboot0)
882 ("gcc" ,gcc-mesboot0)
883 ("make" ,make-mesboot0)
0b652851 884
9a45a24f
LC		 885 ("bash" ,%bootstrap-coreutils&co)
886 ("coreutils" ,%bootstrap-coreutils&co)
887 ("kernel-headers" ,%bootstrap-linux-libre-headers)))
888 (arguments
889 (substitute-keyword-arguments (package-arguments make-mesboot0)
890 ((#:configure-flags configure-flags)
891 `(let ((out (assoc-ref %outputs "out")))
892 `(,(string-append "--prefix=" out))))
893 ((#:phases phases)
894 `(modify-phases ,phases
895 (delete 'configure-fixup)
896 (add-before 'configure 'setenv
897 (lambda _
898 (setenv "LIBS" "-lc -lnss_files -lnss_dns -lresolv")
899 #t))))))))
0b652851
JN		 900
901(define gmp-boot
902 (package
903 (inherit gmp)
904 (version "4.3.2")
905 (source (origin
906 (method url-fetch)
907 (uri (string-append "mirror://gnu/gmp/gmp-" version
908 ".tar.gz"))
909 (sha256 (base32
910 "15rwq54fi3s11izas6g985y9jklm3xprfsmym3v1g6xr84bavqvv"))))))
911
912(define mpfr-boot
913 (package
914 (inherit mpfr)
915 (version "2.4.2")
916 (source (origin
917 (method url-fetch)
918 (uri (string-append "mirror://gnu/mpfr/mpfr-" version
919 ".tar.gz"))
920 (sha256 (base32
921 "0dxn4904dra50xa22hi047lj8kkpr41d6vb9sd4grca880c7wv94"))))))
922
923(define mpc-boot
924 (package
925 (inherit mpc)
926 (version "1.0.3")
927 (source (origin
928 (method url-fetch)
929 (uri (string-append
930 "mirror://gnu/mpc/mpc-" version ".tar.gz"))
931 (sha256
932 (base32
933 "1hzci2zrrd7v3g1jk35qindq05hbl0bhjcyyisq9z209xb3fqzb1"))))))
934
935(define gcc-mesboot1
9a45a24f
LC		 936 (package
937 (inherit gcc-mesboot0)
938 (name "gcc-mesboot1")
939 (version "4.7.4")
940 (source (bootstrap-origin
941 (origin (inherit (package-source gcc-4.7))
942 (patches (search-patches "gcc-boot-4.7.4.patch")))))
943 (inputs `(("gmp-source" ,(package-source gmp-boot))
944 ("mpfr-source" ,(package-source mpfr-boot))
945 ("mpc-source" ,(package-source mpc-boot))))
946 (native-inputs `(("binutils" ,binutils-mesboot)
947 ("gcc" ,gcc-mesboot0)
948 ("libc" ,glibc-mesboot0)
0b652851 949
9a45a24f
LC		 950 ("bash" ,%bootstrap-coreutils&co)
951 ("coreutils" ,%bootstrap-coreutils&co)
952 ("diffutils" ,diffutils-mesboot)
953 ("kernel-headers" ,%bootstrap-linux-libre-headers)
954 ("make" ,make-mesboot)))
955 (arguments
956 (substitute-keyword-arguments (package-arguments gcc-core-mesboot)
957 ((#:make-flags make-flags)
958 `(let* ((libc (assoc-ref %build-inputs "libc"))
959 (ldflags (string-append
960 "-B" libc "/lib "
961 "-Wl,-dynamic-linker "
962 "-Wl," libc
963 ,(glibc-dynamic-linker "i686-linux"))))
964 (list (string-append "LDFLAGS=" ldflags)
965 (string-append "LDFLAGS_FOR_TARGET=" ldflags))))
966 ((#:phases phases)
967 `(modify-phases ,phases
968 ;; c&p from commencement.scm:gcc-boot0
969 (add-after 'unpack 'unpack-gmp&co
970 (lambda* (#:key inputs #:allow-other-keys)
971 (let ((gmp (assoc-ref %build-inputs "gmp-source"))
972 (mpfr (assoc-ref %build-inputs "mpfr-source"))
973 (mpc (assoc-ref %build-inputs "mpc-source")))
0b652851 974
9a45a24f
LC		 975 ;; To reduce the set of pre-built bootstrap inputs, build
976 ;; GMP & co. from GCC.
977 (for-each (lambda (source)
978 (or (invoke "tar" "xvf" source)
979 (error "failed to unpack tarball"
980 source)))
981 (list gmp mpfr mpc))
0b652851 982
9a45a24f
LC		 983 ;; Create symlinks like `gmp' -> `gmp-x.y.z'.
984 ,@(map (lambda (lib)
985 ;; Drop trailing letters, as gmp-6.0.0a unpacks
986 ;; into gmp-6.0.0.
987 `(symlink ,(string-trim-right
988 (package-full-name lib "-")
989 char-set:letter)
990 ,(package-name lib)))
991 (list gmp-boot mpfr-boot mpc-boot))
992 #t)))
993 (delete 'remove-info)
994 (replace 'setenv
995 (lambda* (#:key outputs #:allow-other-keys)
996 (let* ((out (assoc-ref outputs "out"))
997 (binutils (assoc-ref %build-inputs "binutils"))
998 (bash (assoc-ref %build-inputs "bash"))
999 (gcc (assoc-ref %build-inputs "gcc"))
1000 (glibc (assoc-ref %build-inputs "libc"))
1001 (kernel-headers (assoc-ref %build-inputs "kernel-headers")))
1002 (setenv "CONFIG_SHELL" (string-append bash "/bin/sh"))
1003 (setenv "C_INCLUDE_PATH" (string-append
1004 gcc "/lib/gcc-lib/i686-unknown-linux-gnu/2.95.3/include"
1005 ":" kernel-headers "/include"
1006 ":" glibc "/include"
1007 ":" (getcwd) "/mpfr/src"))
1008 (setenv "LIBRARY_PATH" (string-append glibc "/lib"
1009 ":" gcc "/lib"))
1010 (format (current-error-port) "C_INCLUDE_PATH=~a\n" (getenv "C_INCLUDE_PATH"))
1011 (format (current-error-port) "LIBRARY_PATH=~a\n" (getenv "LIBRARY_PATH"))
1012 #t)))
1013 (delete 'install2)))
1014 ((#:configure-flags configure-flags)
1015 `(let ((out (assoc-ref %outputs "out"))
1016 (glibc (assoc-ref %build-inputs "libc")))
1017 (list (string-append "--prefix=" out)
1018 "--build=i686-unknown-linux-gnu"
1019 "--host=i686-unknown-linux-gnu"
0b652851 1020
9a45a24f
LC		 1021 (string-append "--with-native-system-header-dir=" glibc "/include")
1022 (string-append "--with-build-sysroot=" glibc "/include")
0b652851 1023
9a45a24f
LC		 1024 "--disable-bootstrap"
1025 "--disable-decimal-float"
1026 "--disable-libatomic"
1027 "--disable-libcilkrts"
1028 "--disable-libgomp"
1029 "--disable-libitm"
1030 "--disable-libmudflap"
1031 "--disable-libquadmath"
1032 "--disable-libsanitizer"
1033 "--disable-libssp"
1034 "--disable-libvtv"
1035 "--disable-lto"
1036 "--disable-lto-plugin"
1037 "--disable-multilib"
1038 "--disable-plugin"
1039 "--disable-threads"
1040 "--enable-languages=c,c++"
0b652851 1041
9a45a24f
LC		 1042 "--enable-static"
1043 ;; libstdc++.so: error: depends on 'libgcc_s.so.1', which cannot be found in RUNPATH ()
1044 "--disable-shared"
1045 "--enable-threads=single"
0b652851 1046
9a45a24f
LC		 1047 ;; No pre-compiled libstdc++ headers, to save space.
1048 "--disable-libstdcxx-pch"
0b652851 1049
9a45a24f
LC		 1050 ;; for libcpp ...
1051 "--disable-build-with-cxx")))))))
0b652851
JN		 1052
1053(define gcc-mesboot1-wrapper
1054 ;; We need this so gcc-mesboot1 can be used to create shared binaries that
1055 ;; have the correct interpreter, otherwise configuring gcc-mesboot using
1056 ;; --enable-shared will fail.
9a45a24f
LC		 1057 (package
1058 (inherit gcc-mesboot1)
1059 (name "gcc-mesboot1-wrapper")
1060 (source #f)
1061 (inputs '())
1062 (native-inputs `(("bash" ,%bootstrap-coreutils&co)
1063 ("libc" ,glibc-mesboot)
1064 ("gcc" ,gcc-mesboot1)))
1065 (arguments
1066 `(#:implicit-inputs? #f
1067 #:guile ,%bootstrap-guile
1068 #:phases
1069 (modify-phases %standard-phases
1070 (delete 'unpack)
1071 (delete 'configure)
1072 (delete 'install)
1073 (replace 'build
1074 (lambda* (#:key outputs #:allow-other-keys)
1075 (let* ((out (assoc-ref outputs "out"))
1076 (bash (assoc-ref %build-inputs "bash"))
1077 (libc (assoc-ref %build-inputs "libc"))
1078 (gcc (assoc-ref %build-inputs "gcc"))
1079 (bin (string-append out "/bin")))
1080 (mkdir-p bin)
1081 (for-each
1082 (lambda (program)
1083 (let ((wrapper (string-append bin "/" program)))
1084 (with-output-to-file wrapper
1085 (lambda _
1086 (display (string-append "#! " bash "/bin/bash
0b652851
JN		 1087exec " gcc "/bin/" program
1088" -Wl,--dynamic-linker"
eb443459
JN		 1089;; also for x86_64-linux, we are still on i686-linux
1090" -Wl," libc ,(glibc-dynamic-linker "i686-linux")
0b652851
JN		 1091" -Wl,--rpath"
1092" -Wl," libc "/lib"
1093" \"$@\"
1094"))
9a45a24f
LC		 1095 (chmod wrapper #o555)))))
1096 '(
1097 "gcc"
1098 "g++"
1099 "i686-unknown-linux-gnu-gcc"
1100 "i686-unknown-linux-gnu-g++"
1101 ))
1102 #t)))
1103 (replace 'check
1104 (lambda* (#:key outputs #:allow-other-keys)
1105 (let* ((out (assoc-ref outputs "out"))
1106 (bin (string-append out "/bin"))
1107 (program (string-append bin "/gcc")))
1108 (invoke program "--help")))))))))
0b652851
JN		 1109
1110(define glibc-headers-mesboot
9a45a24f
LC		 1111 (package
1112 (inherit glibc-mesboot0)
1113 (name "glibc-headers-mesboot")
1114 (version "2.16.0")
1115 (source (bootstrap-origin
1116 (origin
0b652851
JN		 1117 (method url-fetch)
1118 (uri (string-append "mirror://gnu/glibc/glibc-"
1119 version
1120 ".tar.gz"))
1121 (patches (search-patches "glibc-boot-2.16.0.patch"
1122 "glibc-bootstrap-system-2.16.0.patch"))
1123 (sha256
1124 (base32
9a45a24f
LC		 1125 "0vlz4x6cgz7h54qq4528q526qlhnsjzbsvgc4iizn76cb0bfanx7")))))
1126 (native-inputs `(("binutils" ,binutils-mesboot)
1127 ("libc" ,glibc-mesboot0)
1128 ("gcc" ,gcc-mesboot1)
1129 ("headers" ,mesboot-headers)
0b652851 1130
9a45a24f
LC		 1131 ("bash" ,%bootstrap-coreutils&co)
1132 ("coreutils" ,%bootstrap-coreutils&co)
1133 ("diffutils" ,diffutils-mesboot)
1134 ("kernel-headers" ,%bootstrap-linux-libre-headers)
1135 ("make" ,make-mesboot)))
0b652851 1136
9a45a24f
LC		 1137 (arguments
1138 (substitute-keyword-arguments (package-arguments glibc-mesboot0)
1139 ((#:configure-flags configure-flags)
1140 `(let ((out (assoc-ref %outputs "out"))
1141 (headers (assoc-ref %build-inputs "headers")))
1142 (list
1143 (string-append "--prefix=" out)
1144 "--disable-obsolete-rpc"
1145 "--host=i686-unknown-linux-gnu"
1146 (string-append "--with-headers=" headers "/include")
1147 "--enable-static-nss"
1148 "--with-pthread"
1149 "--without-cvs"
1150 "--without-gd"
1151 "--enable-add-ons=nptl")))
1152 ((#:make-flags make-flags)
1153 `(let ((bash (assoc-ref %build-inputs "bash")))
1154 (list (string-append "SHELL=" bash "/bin/sh")
1155 "install-bootstrap-headers=yes" "install-headers")))
1156 ((#:phases phases)
1157 `(modify-phases ,phases
1158 (replace 'setenv
1159 (lambda* (#:key outputs #:allow-other-keys)
1160 (let* ((out (assoc-ref outputs "out"))
1161 (headers (assoc-ref %build-inputs "headers"))
1162 (bash (assoc-ref %build-inputs "bash"))
1163 (coreutils (assoc-ref %build-inputs "coreutils"))
1164 (libc (assoc-ref %build-inputs "libc"))
1165 (gcc (assoc-ref %build-inputs "gcc"))
1166 (cppflags (string-append
1167 " -I " (getcwd) "/nptl/sysdeps/pthread/bits"
1168 " -D BOOTSTRAP_GLIBC=1"))
1169 (cflags (string-append " -L " (getcwd)
1170 " -L " libc "/lib")))
1171 (setenv "libc_cv_friendly_stddef" "yes")
1172 (setenv "CONFIG_SHELL" (string-append bash "/bin/sh"))
1173 (setenv "SHELL" (getenv "CONFIG_SHELL"))
1174 (format (current-error-port) "CONFIG_SHELL=~s\n" (getenv "CONFIG_SHELL"))
0b652851 1175
9a45a24f
LC		 1176 (setenv "CPP" (string-append gcc "/bin/gcc -E " cppflags))
1177 (setenv "CC" (string-append gcc "/bin/gcc " cppflags cflags))
0b652851 1178
9a45a24f
LC		 1179 ;; avoid -fstack-protector
1180 (setenv "libc_cv_ssp" "false")
1181 (substitute* "configure"
1182 (("/bin/pwd") (string-append coreutils "/bin/pwd")))
1183 (setenv "C_INCLUDE_PATH" (string-append libc "/include"
1184 headers "/include"))
1185 (setenv "LIBRARY_PATH" (string-append libc "/lib"))
1186 #t)))
1187 (replace 'install
1188 (lambda* (#:key outputs make-flags #:allow-other-keys)
1189 (let ((kernel-headers (assoc-ref %build-inputs "kernel-headers"))
1190 (out (assoc-ref outputs "out")))
1191 (apply invoke "make" make-flags)
1192 (copy-recursively kernel-headers out)
1193 #t)))
1194 (replace 'configure
1195 (lambda* (#:key configure-flags #:allow-other-keys)
1196 (format (current-error-port) "running ../configure ~a\n" (string-join configure-flags))
1197 (mkdir-p "build")
1198 (chdir "build")
1199 (apply invoke "../configure" configure-flags)))
1200 (add-after 'configure 'remove-sunrpc
1201 (lambda _
1202 (invoke "make" (string-append (getcwd) "/sysd-sorted" )
1203 (string-append "SHELL=" (getenv "CONFIG_SHELL")))
1204 (substitute* "sysd-sorted"
1205 ((" sunrpc") " ")
1206 ((" nis") " "))
1207 ;; 'rpcgen' needs native libc headers to be built.
1208 (substitute* "../Makefile"
1209 (("^SHELL := /bin/sh") (string-append "SHELL := " (getenv "CONFIG_SHELL"))))
1210 (substitute* "../Makeconfig"
1211 (("^SHELL := /bin/sh") (string-append "SHELL := " (getenv "CONFIG_SHELL"))))
1212 (substitute* "../elf/Makefile"
1213 (("^SHELL := /bin/sh") (string-append "SHELL := " (getenv "CONFIG_SHELL"))))))))))))
0b652851
JN		 1214
1215(define glibc-mesboot
9a45a24f
LC		 1216 (package
1217 (inherit glibc-headers-mesboot)
1218 (name "glibc-mesboot")
1219 (native-inputs `(("binutils" ,binutils-mesboot)
1220 ("libc" ,glibc-mesboot0)
1221 ("headers" ,glibc-headers-mesboot)
1222 ("gcc" ,gcc-mesboot1)
0b652851 1223
9a45a24f
LC		 1224 ("bash" ,%bootstrap-coreutils&co)
1225 ("coreutils" ,%bootstrap-coreutils&co)
1226 ("diffutils" ,diffutils-mesboot)
1227 ("kernel-headers" ,%bootstrap-linux-libre-headers)
1228 ("make" ,make-mesboot)))
0b652851 1229
9a45a24f
LC		 1230 (arguments
1231 `(#:validate-runpath? #f ; fails when using --enable-shared
1232 ,@(substitute-keyword-arguments (package-arguments glibc-headers-mesboot)
1233 ((#:make-flags make-flags)
1234 `(let ((bash (assoc-ref %build-inputs "bash")))
1235 (list (string-append "SHELL=" bash "/bin/sh"))))
1236 ((#:phases phases)
1237 `(modify-phases ,phases
1238 (replace 'install
1239 (lambda* (#:key outputs make-flags #:allow-other-keys)
1240 (let* ((kernel-headers (assoc-ref %build-inputs "kernel-headers"))
1241 (out (assoc-ref outputs "out"))
1242 (install-flags (cons "install" make-flags)))
1243 (apply invoke "make" install-flags)
1244 (copy-recursively kernel-headers out)
1245 #t))))))))
1246 (native-search-paths ;; FIXME: move to glibc-mesboot0
1247 ;; Use the language-specific variables rather than 'CPATH' because they
1248 ;; are equivalent to '-isystem' whereas 'CPATH' is equivalent to '-I'.
1249 ;; The intent is to allow headers that are in the search path to be
1250 ;; treated as "system headers" (headers exempt from warnings) just like
1251 ;; the typical /usr/include headers on an FHS system.
1252 (list (search-path-specification
1253 (variable "C_INCLUDE_PATH")
1254 (files '("include")))
1255 (search-path-specification
1256 (variable "CPLUS_INCLUDE_PATH")
1257 (files '("include")))
1258 (search-path-specification
1259 (variable "LIBRARY_PATH")
1260 (files '("lib")))))))
0b652851
JN		 1261
1262(define gcc-mesboot
9a45a24f
LC		 1263 (package
1264 (inherit gcc-mesboot1)
1265 (name "gcc-mesboot")
1266 (version "4.9.4")
1267 (source (bootstrap-origin (package-source gcc-4.9)))
1268 (native-inputs `(("binutils" ,binutils-mesboot)
1269 ("gcc-wrapper" ,gcc-mesboot1-wrapper)
1270 ("gcc" ,gcc-mesboot1)
1271 ("libc" ,glibc-mesboot)
0b652851 1272
9a45a24f
LC		 1273 ("bash" ,%bootstrap-coreutils&co)
1274 ("coreutils" ,%bootstrap-coreutils&co)
1275 ("diffutils" ,diffutils-mesboot)
1276 ("kernel-headers" ,%bootstrap-linux-libre-headers)
1277 ("make" ,make-mesboot)))
1278 (arguments
1279 `(#:validate-runpath? #f
1280 ,@(substitute-keyword-arguments (package-arguments gcc-mesboot1)
1281 ((#:configure-flags configure-flags)
1282 `(let ((out (assoc-ref %outputs "out"))
1283 (glibc (assoc-ref %build-inputs "libc")))
1284 (list (string-append "--prefix=" out)
1285 "--build=i686-unknown-linux-gnu"
1286 "--host=i686-unknown-linux-gnu"
0b652851 1287
9a45a24f 1288 "--with-host-libstdcxx=-lsupc++"
0b652851 1289
9a45a24f
LC		 1290 (string-append "--with-native-system-header-dir=" glibc "/include")
1291 (string-append "--with-build-sysroot=" glibc "/include")
0b652851 1292
9a45a24f
LC		 1293 "--disable-bootstrap"
1294 "--disable-decimal-float"
1295 "--disable-libatomic"
1296 "--disable-libcilkrts"
1297 "--disable-libgomp"
1298 "--disable-libitm"
1299 "--disable-libmudflap"
1300 "--disable-libquadmath"
1301 "--disable-libsanitizer"
1302 "--disable-libssp"
1303 "--disable-libvtv"
1304 "--disable-lto"
1305 "--disable-lto-plugin"
1306 "--disable-multilib"
1307 "--disable-plugin"
1308 "--disable-threads"
1309 "--enable-languages=c,c++"
0b652851 1310
9a45a24f
LC		 1311 "--enable-static"
1312 "--enable-shared"
1313 "--enable-threads=single"
0b652851 1314
9a45a24f
LC		 1315 ;; No pre-compiled libstdc++ headers, to save space.
1316 "--disable-libstdcxx-pch"
0b652851 1317
9a45a24f
LC		 1318 ;; for libcpp ...
1319 "--disable-build-with-cxx")))
1320 ((#:phases phases)
1321 `(modify-phases ,phases
1322 (replace 'setenv
1323 (lambda* (#:key outputs #:allow-other-keys)
1324 (let* ((out (assoc-ref outputs "out"))
1325 (binutils (assoc-ref %build-inputs "binutils"))
1326 (bash (assoc-ref %build-inputs "bash"))
1327 (gcc (assoc-ref %build-inputs "gcc"))
1328 (glibc (assoc-ref %build-inputs "libc"))
1329 (kernel-headers (assoc-ref %build-inputs "kernel-headers")))
1330 (setenv "CONFIG_SHELL" (string-append bash "/bin/sh"))
1331 (setenv "C_INCLUDE_PATH" (string-append
1332 gcc "/lib/gcc-lib/i686-unknown-linux-gnu/4.7.4/include"
1333 ":" kernel-headers "/include"
1334 ":" glibc "/include"
1335 ":" (getcwd) "/mpfr/src"))
1336 (setenv "CPLUS_INCLUDE_PATH" (string-append
1337 gcc "/lib/gcc-lib/i686-unknown-linux-gnu/4.7.4/include"
1338 ":" kernel-headers "/include"
1339 ":" glibc "/include"
1340 ":" (getcwd) "/mpfr/src"))
1341 (setenv "LIBRARY_PATH" (string-append glibc "/lib"
1342 ":" gcc "/lib"))
1343 (format (current-error-port) "C_INCLUDE_PATH=~a\n" (getenv "C_INCLUDE_PATH"))
1344 (format (current-error-port) "CPLUS_INCLUDE_PATH=~a\n" (getenv "CPLUS_INCLUDE_PATH"))
1345 (format (current-error-port) "LIBRARY_PATH=~a\n" (getenv "LIBRARY_PATH"))
1346 #t))))))))))
0b652851
JN		 1347
1348(define gcc-mesboot-wrapper
1349 ;; We need this so gcc-mesboot can be used to create shared binaries that
1350 ;; have the correct interpreter and runpath to libc.
9a45a24f
LC		 1351 (package
1352 (inherit gcc-mesboot1-wrapper)
1353 (name "gcc-mesboot-wrapper")
1354 (version (package-version gcc-mesboot))
1355 (source #f)
1356 (inputs '())
1357 (native-inputs `(("bash" ,%bootstrap-coreutils&co)
1358 ("libc" ,glibc-mesboot)
1359 ("gcc" ,gcc-mesboot)))))
0b652851
JN		 1360
1361(define m4-mesboot
9a45a24f
LC		 1362 (package
1363 (inherit m4)
1364 (name "m4-mesboot")
1365 (version "1.4")
1366 (source (origin
1367 (method url-fetch)
1368 (uri (string-append "mirror://gnu/m4/m4-"
1369 version ".tar.gz"))
1370 (sha256
1371 (base32
1372 "1f9bxj176kf3pvs350w2dfs8jgwhminywri5pyn01b11yc4yhsjw"))))
1373 (supported-systems '("i686-linux" "x86_64-linux"))
1374 (native-inputs `(("mes" ,mes-boot)
1375 ("tcc" ,tcc-boot)))
1376 (arguments
1377 `(#:phases
1378 (modify-phases %standard-phases
1379 (replace 'configure
1380 (lambda* (#:key outputs #:allow-other-keys)
1381 (let ((out (assoc-ref outputs "out")))
1382 (setenv "CONFIG_SHELL" (string-append
1383 (assoc-ref %build-inputs "bash")
1384 "/bin/sh"))
1385 (setenv "CC" "tcc -static")
1386 (setenv "CPP" "tcc -E")
1387 (invoke "./configure" (string-append "--prefix=" out))))))))))
0b652851 1388
c3629044 1389(define (%bootstrap-inputs+toolchain)
0b652851
JN		 1390 ;; The traditional bootstrap-inputs. For the i686-linux Reduced Binary Seed
1391 ;; the actual reduced set with bootstrapped toolchain.
1380be3c
LC		 1392 (match (%current-system)
1393 ((or "i686-linux" "x86_64-linux")
1394 `(("libc" ,glibc-mesboot)
1395 ("binutils" ,binutils-mesboot)
1396 ("gcc-wrapper" ,gcc-mesboot-wrapper)
1397 ("gcc" ,gcc-mesboot)
1398 ,@(fold alist-delete (%bootstrap-inputs)
1399 '("bootstrap-mescc-tools" "mes"))))
1400 (_
1401 (%bootstrap-inputs))))
c3629044 1402
bdb36958 1403(define gnu-make-boot0
9a45a24f
LC		 1404 (package
1405 (inherit gnu-make)
1406 (source (bootstrap-origin (package-source gnu-make)))
1407 (name "make-boot0")
1408 (arguments
1409 `(#:guile ,%bootstrap-guile
1410 #:implicit-inputs? #f
1411 #:tests? #f ; cannot run "make check"
1412 ,@(substitute-keyword-arguments (package-arguments gnu-make)
1413 ((#:phases phases)
1414 `(modify-phases ,phases
1415 (replace 'build
1416 (lambda _
1417 (invoke "./build.sh")))
1418 (replace 'install
1419 (lambda* (#:key outputs #:allow-other-keys)
1420 (let* ((out (assoc-ref outputs "out"))
1421 (bin (string-append out "/bin")))
1422 (install-file "make" bin)
1423 #t))))))))
1424 (native-inputs '()) ; no need for 'pkg-config'
1425 (inputs (%bootstrap-inputs+toolchain))))
bdb36958
LC		 1426
1427(define diffutils-boot0
99b73d0f
LC		 1428 (package
1429 (inherit diffutils)
1430 (name "diffutils-boot0")
1431 (native-inputs `())
1432 (inputs
1433 `(("make" ,gnu-make-boot0)
1434 ,@(%bootstrap-inputs+toolchain)))
1435 (arguments
1436 `(#:tests? #f ; the test suite needs diffutils
1437 #:guile ,%bootstrap-guile
1438 #:implicit-inputs? #f
1439 ,@(package-arguments diffutils)))))
bdb36958
LC		 1440
1441(define findutils-boot0
99b73d0f
LC		 1442 (package
1443 (inherit findutils)
1444 (name "findutils-boot0")
1445 (source (bootstrap-origin (package-source findutils)))
1446 (inputs
1447 `(("make" ,gnu-make-boot0)
1448 ("diffutils" ,diffutils-boot0) ; for tests
1449 ,@(%bootstrap-inputs+toolchain)))
1450 (arguments
1451 `(#:implicit-inputs? #f
1452 #:guile ,%bootstrap-guile
1453 ,@(package-arguments findutils)))))
bdb36958 1454
c00a9fbf 1455(define file-boot0
99b73d0f
LC		 1456 (package
1457 (inherit file)
1458 (source (bootstrap-origin (package-source file)))
1459 (name "file-boot0")
1460 (inputs
1461 `(("make" ,gnu-make-boot0)
1462 ,@(%bootstrap-inputs+toolchain)))
1463 (arguments
1464 `(#:implicit-inputs? #f
1465 #:guile ,%bootstrap-guile
1466 #:strip-binaries? #f
1467 #:validate-runpath? #f))))
c00a9fbf 1468
a2b2070b 1469(define (%boot0-inputs)
bdb36958
LC		 1470 `(("make" ,gnu-make-boot0)
1471 ("diffutils" ,diffutils-boot0)
1472 ("findutils" ,findutils-boot0)
c00a9fbf 1473 ("file" ,file-boot0)
c3629044 1474 ,@(%bootstrap-inputs+toolchain)))
bdb36958 1475
bdb36958
LC		 1476(define* (boot-triplet #:optional (system (%current-system)))
1477 ;; Return the triplet used to create the cross toolchain needed in the
1478 ;; first bootstrapping stage.
1479 (nix-system->gnu-triplet system "guix"))
1480
1481;; Following Linux From Scratch, build a cross-toolchain in stage 0. That
1482;; toolchain actually targets the same OS and arch, but it has the advantage
c3629044
JN		 1483;; of being independent of the libc and tools in
1484;; (%BOOTSTRAP-INPUTS+TOOLCHAIN), since GCC-BOOT0 (below) is built without any
1485;; reference to the target libc.
bdb36958
LC		 1486
1487(define binutils-boot0
99b73d0f
LC		 1488 (package
1489 (inherit binutils)
1490 (source (bootstrap-origin (package-source binutils)))
1491 (name "binutils-cross-boot0")
1492 (arguments
1493 `(#:guile ,%bootstrap-guile
1494 #:implicit-inputs? #f
1495
1496 #:modules ((guix build gnu-build-system)
1497 (guix build utils)
1498 (ice-9 ftw)) ; for 'scandir'
1499 #:phases (modify-phases %standard-phases
1500 (add-after 'install 'add-symlinks
1501 (lambda* (#:key outputs #:allow-other-keys)
1502 ;; The cross-gcc invokes 'as', 'ld', etc, without the
1503 ;; triplet prefix, so add symlinks.
1504 (let ((out (assoc-ref outputs "out"))
1505 (triplet-prefix (string-append ,(boot-triplet) "-")))
1506 (define (has-triplet-prefix? name)
1507 (string-prefix? triplet-prefix name))
1508 (define (remove-triplet-prefix name)
1509 (substring name (string-length triplet-prefix)))
1510 (with-directory-excursion (string-append out "/bin")
1511 (for-each (lambda (name)
1512 (symlink name (remove-triplet-prefix name)))
1513 (scandir "." has-triplet-prefix?)))
1514 #t))))
1515
1516 ,@(substitute-keyword-arguments (package-arguments binutils)
1517 ((#:configure-flags cf)
1518 `(cons ,(string-append "--target=" (boot-triplet))
1519 ,cf)))))
1520 (inputs (%boot0-inputs))))
bdb36958 1521
b810a850
LC		 1522(define libstdc++-boot0
1523 ;; GCC's libcc1 is always built as a shared library (the top-level
1524 ;; 'Makefile.def' forcefully adds --enable-shared) and thus needs to refer
1525 ;; to libstdc++.so. We cannot build libstdc++-5.3 because it relies on
809b0a90 1526 ;; C++14 features missing in some of our bootstrap compilers.
99b73d0f 1527 (let ((lib (make-libstdc++ gcc-4.9)))
b810a850
LC		 1528 (package
1529 (inherit lib)
99b73d0f 1530 (source (bootstrap-origin (package-source lib)))
b810a850
LC		 1531 (name "libstdc++-boot0")
1532 (arguments
1533 `(#:guile ,%bootstrap-guile
1534 #:implicit-inputs? #f
1535
1536 ;; XXX: libstdc++.so NEEDs ld.so for some reason.
1537 #:validate-runpath? #f
1538
d536c39e 1539 ,@(match (%current-system)
eb443459 1540 ((or "i686-linux" "x86_64-linux")
d536c39e
JN		 1541 (substitute-keyword-arguments (package-arguments lib)
1542 ((#:phases phases)
1543 `(modify-phases ,phases
a6facf94
MB		 1544 (add-after 'unpack 'workaround-wrapper-bug
1545 ;; XXX: The crude gcc-cross-wrapper causes "g++ -v" to
1546 ;; fail, which in turn confuses the configure script.
1547 (lambda _
1548 (substitute* "libstdc++-v3/configure"
1549 (("g\\+\\+ -v") "true"))
1550 #t))))))
d536c39e 1551 (_ (package-arguments lib)))))
a2b2070b 1552 (inputs (%boot0-inputs))
b810a850
LC		 1553 (native-inputs '()))))
1554
bdb36958 1555(define gcc-boot0
99b73d0f
LC		 1556 (package
1557 (inherit gcc)
1558 (name "gcc-cross-boot0")
1559 (source (bootstrap-origin (package-source gcc)))
1560 (arguments
1561 `(#:guile ,%bootstrap-guile
1562 #:implicit-inputs? #f
1563 #:modules ((guix build gnu-build-system)
1564 (guix build utils)
1565 (ice-9 regex)
1566 (srfi srfi-1)
1567 (srfi srfi-26))
1568 ,@(substitute-keyword-arguments (package-arguments gcc)
1569 ((#:configure-flags flags)
1570 `(append (list ,(string-append "--target=" (boot-triplet))
1571
1572 ;; No libc yet.
1573 "--without-headers"
1574
1575 ;; Disable features not needed at this stage.
1576 "--disable-shared"
1577 "--enable-languages=c,c++"
1578
1579 ;; libstdc++ cannot be built at this stage
1580 ;; ("Link tests are not allowed after
1581 ;; GCC_NO_EXECUTABLES.").
1582 "--disable-libstdc++-v3"
1583
1584 "--disable-threads"
1585 "--disable-libmudflap"
1586 "--disable-libatomic"
1587 "--disable-libsanitizer"
1588 "--disable-libitm"
1589 "--disable-libgomp"
1590 "--disable-libmpx"
1591 "--disable-libcilkrts"
1592 "--disable-libvtv"
1593 "--disable-libssp"
1594 "--disable-libquadmath"
1595 "--disable-decimal-float")
1596 (remove (cut string-match
1597 "--(with-system-zlib|enable-languages.*)" <>)
1598 ,flags)))
1599 ((#:make-flags flags)
1600 `(let* ((libc (assoc-ref %build-inputs "libc"))
1601 (libc-native (or (assoc-ref %build-inputs "libc-native")
1602 libc)))
1603 `(,(string-append "LDFLAGS="
1604 "-Wl,-rpath=" libc-native "/lib "
1605 "-Wl,-dynamic-linker "
1606 "-Wl," libc-native ,(glibc-dynamic-linker
1607 (match (%current-system)
1608 ("x86_64-linux" "i686-linux")
1609 (_ (%current-system))))))))
1610 ((#:phases phases)
1611 `(modify-phases ,phases
1612 (add-after 'unpack 'unpack-gmp&co
1613 (lambda* (#:key inputs #:allow-other-keys)
1614 (let ((gmp (assoc-ref %build-inputs "gmp-source"))
1615 (mpfr (assoc-ref %build-inputs "mpfr-source"))
1616 (mpc (assoc-ref %build-inputs "mpc-source")))
1617
1618 ;; To reduce the set of pre-built bootstrap inputs, build
1619 ;; GMP & co. from GCC.
1620 (for-each (lambda (source)
1621 (invoke "tar" "xvf" source))
1622 (list gmp mpfr mpc))
1623
1624 ;; Create symlinks like `gmp' -> `gmp-x.y.z'.
1625 ,@(map (lambda (lib)
1626 ;; Drop trailing letters, as gmp-6.0.0a unpacks
1627 ;; into gmp-6.0.0.
1628 `(symlink ,(string-trim-right
1629 (package-full-name lib "-")
1630 char-set:letter)
1631 ,(package-name lib)))
1632 (list gmp-6.0 mpfr mpc))
1633 #t)))
1634 ,(match (%current-system)
1635 ((or "i686-linux" "x86_64-linux")
1636 '(add-before 'configure 'fix-libcc1
77e02d94
MB		 1637 (lambda* (#:key inputs #:allow-other-keys)
1638 ;; libcc1.so NEEDs libgcc_s.so, so provide one here
1639 ;; to placate the 'validate-runpath' phase.
1640 (substitute* "libcc1/Makefile.in"
1641 (("la_LDFLAGS =")
1642 (string-append "la_LDFLAGS = -Wl,-rpath="
1643 (assoc-ref inputs "gcc") "/lib")))
1644 ;; XXX: "g++ -v" is broken (see also libstdc++ above).
1645 (substitute* "libcc1/configure"
1646 (("g\\+\\+ -v") "true"))
1647 #t)))
99b73d0f
LC		 1648 (_ '(add-before 'configure 'return-true
1649 (lambda _ #t))))
1650 (add-after 'install 'symlink-libgcc_eh
1651 (lambda* (#:key outputs #:allow-other-keys)
1652 (let ((out (assoc-ref outputs "lib")))
1653 ;; Glibc wants to link against libgcc_eh, so provide
1654 ;; it.
1655 (with-directory-excursion
1656 (string-append out "/lib/gcc/"
1657 ,(boot-triplet)
1658 "/" ,(package-version gcc))
1659 (symlink "libgcc.a" "libgcc_eh.a"))
1660 #t))))))))
bdb36958 1661
99b73d0f
LC		 1662 (inputs `(("gmp-source" ,(bootstrap-origin (package-source gmp-6.0)))
1663 ("mpfr-source" ,(bootstrap-origin (package-source mpfr)))
1664 ("mpc-source" ,(bootstrap-origin (package-source mpc)))
1665 ("binutils-cross" ,binutils-boot0)
bdb36958 1666
99b73d0f
LC		 1667 ;; The libstdc++ that libcc1 links against.
1668 ("libstdc++" ,libstdc++-boot0)
b810a850 1669
99b73d0f
LC		 1670 ;; Call it differently so that the builder can check whether
1671 ;; the "libc" input is #f.
1672 ("libc-native" ,@(assoc-ref (%boot0-inputs) "libc"))
1673 ,@(alist-delete "libc" (%boot0-inputs))))
9dee9e8f 1674
99b73d0f
LC		 1675 ;; No need for the native-inputs to build the documentation at this stage.
1676 (native-inputs `())))
bdb36958
LC		 1677
1678(define perl-boot0
99b73d0f
LC		 1679 (package
1680 (inherit perl)
1681 (name "perl-boot0")
1682 (source (bootstrap-origin (package-source perl)))
1683 (inputs (%boot0-inputs))
1684 (arguments
1685 `(#:implicit-inputs? #f
1686 #:guile ,%bootstrap-guile
1687 #:validate-runpath? #f
1688
1689 ;; At the very least, this must not depend on GCC & co.
1690 #:disallowed-references ,(list %bootstrap-binutils)
1691
1692 ,@(substitute-keyword-arguments (package-arguments perl)
1693 ((#:phases phases)
1694 `(modify-phases ,phases
1695 ;; Pthread support is missing in the bootstrap compiler
1696 ;; (broken spec file), so disable it.
1697 (add-before 'configure 'disable-pthreads
1698 (lambda _
1699 (substitute* "Configure"
1700 (("^libswanted=(.*)pthread" _ before)
1701 (string-append "libswanted=" before)))
1702 #t))))
1703 ;; Do not configure with '-Dusethreads' since pthread
1704 ;; support is missing.
1705 ((#:configure-flags configure-flags)
1706 `(delete "-Dusethreads" ,configure-flags)))))))
bdb36958 1707
32f4a073 1708(define m4-boot0
99b73d0f
LC		 1709 (package
1710 (inherit m4)
1711 (name "m4-boot0")
1712 (source (bootstrap-origin (package-source m4)))
1713 (inputs (%boot0-inputs))
1714 (arguments
1715 `(#:guile ,%bootstrap-guile
1716 #:implicit-inputs? #f
1717 ,@(package-arguments m4)))))
1718
1719(define m4-boot0*
1720 (package
1721 ;; TODO: On the next rebuild cycle, use M4-BOOT0 as is.
1722 (inherit m4-boot0)
1723 (name "m4")))
32f4a073 1724
d75acc29
MR		 1725(define bison-boot0
1726 ;; This Bison is needed to build MiG so we need it early in the process.
12908554 1727 ;; Recent versions of Linux-Libre headers also depend on this.
99b73d0f
LC		 1728 (package
1729 (inherit bison)
1730 ;; TODO: On the next build cycle, do:
1731 ;;(name "bison-boot0")
1732 (propagated-inputs `(("m4" ,m4-boot0*)))
1733 (native-inputs `(("perl" ,perl-boot0)))
1734 (inputs (%boot0-inputs)) ;remove Flex...
1735 (arguments
1736 `(#:tests? #f ;... and thus disable tests
1737 #:implicit-inputs? #f
1738 #:guile ,%bootstrap-guile
1739
1740 ;; XXX: These flags should be unconditional, but for now
1741 ;; we just add them on x86 to avoid a full rebuild.
1742 ;; TODO: On the next core-updates, use
1743 ;; 'substitute-keyword-arguments' to inherit them from
1744 ;; BISON.
1745 ,@(if (member (%current-system)
1746 '("x86_64-linux" "i686-linux"))
1747 '(#:parallel-build? #f
1748 #:parallel-tests? #f)
1749 '())
1750
1751 ;; Zero timestamps in liby.a; this must be done
1752 ;; explicitly here because the bootstrap Binutils don't
1753 ;; do that (default is "cru".)
1754 #:make-flags `("ARFLAGS=crD"
1755 ,,(match (%current-system)
1756 ;; ranlib: '-D': No such file
1757 ((or "i686-linux" "x86_64-linux")
1758 "RANLIB=ranlib")
1759 (_
1760 "RANLIB=ranlib -D"))
1761 "V=1")))))
d75acc29
MR		 1762
1763(define flex-boot0
12908554 1764 ;; This Flex is needed to build MiG as well as Linux-Libre headers.
99b73d0f
LC		 1765 (package
1766 (inherit flex)
1767 (native-inputs `(("bison" ,bison-boot0)))
1768 (propagated-inputs
1769 ;; XXX: Here we use an 'm4-boot0' package that's not eq? so that it
1770 ;; appears twice in '%build-inputs', like when we were using
1771 ;; 'package-with-explicit-inputs'.
1772 ;; TODO: Remove this hack on the next rebuild cycle.
1773 `(("m4" ,(package (inherit m4-boot0*)))))
1774 (inputs (%boot0-inputs))
1775 (arguments
1776 `(#:implicit-inputs? #f
1777 #:guile ,%bootstrap-guile
1778 #:tests? #f))))
d75acc29 1779
8102cf0b
LC		 1780(define linux-libre-headers-boot0
1781 (mlambda ()
1782 "Return Linux-Libre header files for the bootstrap environment."
1783 ;; Note: this is wrapped in a thunk to nicely handle circular dependencies
1784 ;; between (gnu packages linux) and this module. Additionally, memoize
1785 ;; the result to play well with further memoization and code that relies
1786 ;; on pointer identity; see <https://bugs.gnu.org/30155>.
99b73d0f
LC		 1787 (package
1788 (inherit linux-libre-headers)
1789 (arguments
1790 `(#:guile ,%bootstrap-guile
1791 #:implicit-inputs? #f
1792 ,@(package-arguments linux-libre-headers)))
1793 (native-inputs
1794 `(("perl" ,perl-boot0)
1795
1796 ;; Flex and Bison are required since version 4.16.
1797 ("flex" ,flex-boot0)
1798 ("bison" ,bison-boot0)
1799 ,@(%boot0-inputs))))))
bdb36958 1800
efa8fdda
LC		 1801(define with-boot0
1802 (package-with-explicit-inputs %boot0-inputs
1803 %bootstrap-guile))
1804
d75acc29 1805(define gnumach-headers-boot0
efa8fdda 1806 (with-boot0 (package-with-bootstrap-guile gnumach-headers)))
d75acc29
MR		 1807
1808(define mig-boot0
efa8fdda
LC		 1809 (let* ((mig (package
1810 (inherit (package-with-bootstrap-guile mig))
d75acc29
MR		 1811 (native-inputs `(("bison" ,bison-boot0)
1812 ("flex" ,flex-boot0)))
1813 (inputs `(("flex" ,flex-boot0)))
1814 (arguments
1815 `(#:configure-flags
1816 `(,(string-append "LDFLAGS=-Wl,-rpath="
1817 (assoc-ref %build-inputs "flex") "/lib/")))))))
efa8fdda 1818 (with-boot0 mig)))
d75acc29
MR		 1819
1820(define hurd-headers-boot0
1821 (let ((hurd-headers (package (inherit hurd-headers)
1822 (native-inputs `(("mig" ,mig-boot0)))
1823 (inputs '()))))
efa8fdda 1824 (with-boot0 (package-with-bootstrap-guile hurd-headers))))
d75acc29
MR		 1825
1826(define hurd-minimal-boot0
1827 (let ((hurd-minimal (package (inherit hurd-minimal)
1828 (native-inputs `(("mig" ,mig-boot0)))
1829 (inputs '()))))
efa8fdda 1830 (with-boot0 (package-with-bootstrap-guile hurd-minimal))))
d75acc29 1831
8102cf0b
LC		 1832(define hurd-core-headers-boot0
1833 (mlambda ()
1834 "Return the Hurd and Mach headers as well as initial Hurd libraries for
d75acc29 1835the bootstrap environment."
efa8fdda
LC		 1836 (package (inherit (package-with-bootstrap-guile hurd-core-headers))
1837 (arguments `(#:guile ,%bootstrap-guile
1838 ,@(package-arguments hurd-core-headers)))
1839 (inputs
1840 `(("gnumach-headers" ,gnumach-headers-boot0)
1841 ("hurd-headers" ,hurd-headers-boot0)
1842 ("hurd-minimal" ,hurd-minimal-boot0)
1843 ,@(%boot0-inputs))))))
d75acc29
MR		 1844
1845(define* (kernel-headers-boot0 #:optional (system (%current-system)))
1846 (match system
1847 ("i586-gnu" (hurd-core-headers-boot0))
1848 (_ (linux-libre-headers-boot0))))
1849
bdb36958
LC		 1850(define texinfo-boot0
1851 ;; Texinfo used to build libc's manual.
1852 ;; We build without ncurses because it fails to build at this stage, and
1853 ;; because we don't need the stand-alone Info reader.
a2b2070b 1854 ;; Also, use (%BOOT0-INPUTS) to avoid building Perl once more.
99b73d0f
LC		 1855 (package
1856 (inherit texinfo)
1857 (native-inputs '())
1858 (inputs `(,@(%boot0-inputs)
1859 ("perl" ,perl-boot0)))
1860 (arguments
1861 `(#:implicit-inputs? #f
1862 #:guile ,%bootstrap-guile
1863
1864 ;; Some of Texinfo 6.1's tests would fail with "Couldn't set UTF-8
1865 ;; character type in locale" but we don't have a UTF-8 locale at this
1866 ;; stage, so skip them.
1867 #:tests? #f))))
bdb36958 1868
5f3f7039
MB		 1869(define expat-sans-tests
1870 (package
1871 (inherit expat)
99b73d0f 1872 (inputs (%boot0-inputs))
5f3f7039
MB		 1873 (arguments
1874 ;; XXX: Linking 'runtestscpp' fails with things like:
1875 ;;
1876 ;; ld: Dwarf Error: found dwarf version '3789', this reader only handles version 2 and 3 information.
1877 ;;
1878 ;; Skip tests altogether.
99b73d0f
LC		 1879 `(#:implicit-inputs? #f
1880 #:guile ,%bootstrap-guile
1881
1882 ,@(substitute-keyword-arguments (package-arguments expat)
1883 ((#:configure-flags flags ''())
1884 ;; Since we're not passing the right -Wl,-rpath flags, build the
1885 ;; static library to avoid RUNPATH validation failure.
1886 `(cons "--disable-shared" ,flags))
1887 ((#:tests? _ #f) #f))))))
5f3f7039
MB		 1888
1889(define python-boot0
99b73d0f
LC		 1890 (package
1891 (inherit python-minimal)
1892 ;; We cannot use Python 3.7 and later here, because they require
1893 ;; pthreads, which is missing on non-x86 platforms at this stage.
1894 ;; Python 3.6 technically supports being built without threading
1895 ;; support, but requires additional patches.
1896 (version "3.5.7")
1897 (source (bootstrap-origin
1898 (origin
1899 (inherit (package-source python))
1900 (uri (string-append "https://www.python.org/ftp/python/"
1901 version "/Python-" version ".tar.xz"))
1902 (patches '())
1903 (sha256
1904 (base32
1905 "1p67pnp2ca5przx2s45r8m55dcn6f5hsm0l4s1zp7mglkf4r4n18")))))
1906 (inputs
1907 `(,@(%boot0-inputs)
1908 ("expat" ,expat-sans-tests))) ;remove OpenSSL, zlib, etc.
1909 (native-inputs '()) ;and pkg-config
1910 (arguments
1911 `(#:implicit-inputs? #f
1912 #:guile ,%bootstrap-guile
1913
1914 ,@(substitute-keyword-arguments (package-arguments python-minimal)
1915 ;; Disable features that cannot be built at this stage.
1916 ((#:configure-flags _ ''())
1917 `(list "--without-ensurepip"
1918 "--without-threads"))
1919 ;; Clear #:make-flags, such that changes to the regular
1920 ;; Python package won't interfere with this one.
1921 ((#:make-flags _ ''()) ''())
1922 ((#:phases phases)
1923 `(modify-phases ,phases
1924 (add-before 'configure 'disable-modules
1925 (lambda _
1926 (substitute* "setup.py"
1927 ;; Disable ctypes, since it requires libffi.
1928 (("extensions\\.append\\(ctypes\\)") "")
1929 ;; Prevent the 'ossaudiodev' extension from being
1930 ;; built, since it requires Linux headers.
1931 (("'linux', ") ""))
1932 #t))
1933 (delete 'set-TZDIR)))
1934 ((#:tests? _ #f) #f))))))
5f3f7039 1935
dab669e0
LC		 1936(define ld-wrapper-boot0
1937 (mlambda ()
1938 ;; We need this so binaries on Hurd will have libmachuser and libhurduser
1939 ;; in their RUNPATH, otherwise validate-runpath will fail.
1940 (make-ld-wrapper "ld-wrapper-boot0"
1941 #:target boot-triplet
1942 #:binutils binutils-boot0
1943 #:guile %bootstrap-guile
1944 #:bash (car (assoc-ref (%boot0-inputs) "bash"))
1945 #:guile-for-build %bootstrap-guile)))
d75acc29 1946
a2b2070b 1947(define (%boot1-inputs)
bdb36958
LC		 1948 ;; 2nd stage inputs.
1949 `(("gcc" ,gcc-boot0)
f50b013f 1950 ("ld-wrapper-cross" ,(ld-wrapper-boot0))
bdb36958 1951 ("binutils-cross" ,binutils-boot0)
a2b2070b 1952 ,@(alist-delete "binutils" (%boot0-inputs))))
bdb36958
LC		 1953
1954(define glibc-final-with-bootstrap-bash
1955 ;; The final libc, "cross-built". If everything went well, the resulting
1956 ;; store path has no dependencies. Actually, the really-final libc is
1957 ;; built just below; the only difference is that this one uses the
1958 ;; bootstrap Bash.
99b73d0f
LC		 1959 (package
1960 (inherit glibc)
1961 (name "glibc-intermediate")
1962 (source (bootstrap-origin (package-source glibc)))
1963 (arguments
1964 `(#:guile ,%bootstrap-guile
1965 #:implicit-inputs? #f
1966
1967 ,@(substitute-keyword-arguments (package-arguments glibc)
1968 ((#:configure-flags flags)
1969 `(append (list ,(string-append "--host=" (boot-triplet))
1970 ,(string-append "--build="
1971 (nix-system->gnu-triplet)))
1972 ,flags))
1973 ((#:phases phases)
1974 `(modify-phases ,phases
1975 (add-before 'configure 'pre-configure
1976 (lambda* (#:key inputs #:allow-other-keys)
1977 ;; Don't clobber CPATH with the bootstrap libc.
1978 (setenv "NATIVE_CPATH" (getenv "CPATH"))
1979 (unsetenv "CPATH")
1980
1981 ;; Tell 'libpthread' where to find 'libihash' on Hurd systems.
1982 ,@(if (hurd-triplet? (%current-system))
1983 `((substitute* "libpthread/Makefile"
1984 (("LDLIBS-pthread.so =.*")
1985 (string-append "LDLIBS-pthread.so = "
1986 (assoc-ref %build-inputs "kernel-headers")
1987 "/lib/libihash.a\n"))))
1988 '())
1989
1990 ;; 'rpcgen' needs native libc headers to be built.
1991 (substitute* "sunrpc/Makefile"
1992 (("sunrpc-CPPFLAGS =.*" all)
1993 (string-append "CPATH = $(NATIVE_CPATH)\n"
1994 "export CPATH\n"
1995 all "\n")))
1996 #t)))))))
1997 (propagated-inputs `(("kernel-headers" ,(kernel-headers-boot0))))
1998 (native-inputs
1999 `(("bison" ,bison-boot0)
2000 ("texinfo" ,texinfo-boot0)
2001 ("perl" ,perl-boot0)
2002 ("python" ,python-boot0)))
2003 (inputs
2004 `( ;; The boot inputs. That includes the bootstrap libc. We don't want
2005 ;; it in $CPATH, hence the 'pre-configure' phase above.
2006 ,@(%boot1-inputs)
2007
2008 ;; A native MiG is needed to build Glibc on Hurd.
2009 ,@(if (hurd-triplet? (%current-system))
2010 `(("mig" ,mig-boot0))
2011 '())
2012
2013 ;; A native GCC is needed to build `cross-rpcgen'.
2014 ("native-gcc" ,@(assoc-ref (%boot0-inputs) "gcc"))
2015
2016 ;; Here, we use the bootstrap Bash, which is not satisfactory
2017 ;; because we don't want to depend on bootstrap tools.
2018 ("static-bash" ,@(assoc-ref (%boot0-inputs) "bash"))))))
bdb36958
LC		 2019
2020(define (cross-gcc-wrapper gcc binutils glibc bash)
2021 "Return a wrapper for the pseudo-cross toolchain GCC/BINUTILS/GLIBC
2022that makes it available under the native tool names."
c92f1c0a 2023 (package (inherit gcc)
bdb36958
LC		 2024 (name (string-append (package-name gcc) "-wrapped"))
2025 (source #f)
2026 (build-system trivial-build-system)
2027 (outputs '("out"))
2028 (arguments
2029 `(#:guile ,%bootstrap-guile
2030 #:modules ((guix build utils))
2031 #:builder (begin
2032 (use-modules (guix build utils))
2033
2034 (let* ((binutils (assoc-ref %build-inputs "binutils"))
2035 (gcc (assoc-ref %build-inputs "gcc"))
2036 (libc (assoc-ref %build-inputs "libc"))
2037 (bash (assoc-ref %build-inputs "bash"))
2038 (out (assoc-ref %outputs "out"))
2039 (bindir (string-append out "/bin"))
2040 (triplet ,(boot-triplet)))
2041 (define (wrap-program program)
2042 ;; GCC-BOOT0 is a libc-less cross-compiler, so it
2043 ;; needs to be told where to find the crt files and
2044 ;; the dynamic linker.
2045 (call-with-output-file program
2046 (lambda (p)
2047 (format p "#!~a/bin/bash
2048exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%"
2049 bash
2050 gcc triplet program
2051 libc libc
2052 ,(glibc-dynamic-linker))))
2053
2054 (chmod program #o555))
2055
2056 (mkdir-p bindir)
2057 (with-directory-excursion bindir
2058 (for-each (lambda (tool)
2059 (symlink (string-append binutils "/bin/"
2060 triplet "-" tool)
2061 tool))
2062 '("ar" "ranlib"))
e3cfef22
MW		 2063 (for-each wrap-program '("gcc" "g++")))
2064
2065 #t))))
bdb36958
LC		 2066 (native-inputs
2067 `(("binutils" ,binutils)
2068 ("gcc" ,gcc)
2069 ("libc" ,glibc)
2070 ("bash" ,bash)))
2071 (inputs '())))
2072
eb443459
JN		 2073(define (gcc-boot0-intermediate-wrapped)
2074 ;; Make the cross-tools GCC-BOOT0 and BINUTILS-BOOT0 available under the
2075 ;; non-cross names.
2076 (cross-gcc-wrapper gcc-boot0 binutils-boot0
2077 glibc-final-with-bootstrap-bash
2078 (car (assoc-ref (%boot1-inputs) "bash"))))
2079
bdb36958 2080(define static-bash-for-glibc
90d891fc 2081 ;; A statically-linked Bash to be used by GLIBC-FINAL in system(3) & co.
99b73d0f
LC		 2082 (package
2083 (inherit static-bash)
2084 (source (bootstrap-origin (package-source static-bash)))
2085 (inputs `(("gcc" ,(gcc-boot0-intermediate-wrapped))
2086 ("libc" ,glibc-final-with-bootstrap-bash)
2087 ("libc:static" ,glibc-final-with-bootstrap-bash "static")
2088 ,@(fold alist-delete (%boot1-inputs)
2089 '("gcc" "libc"))))
2090 (arguments
2091 `(#:implicit-inputs? #f
2092 #:guile ,%bootstrap-guile
2093
2094 ,@(substitute-keyword-arguments (package-arguments static-bash)
2095 ((#:configure-flags flags '())
2096 ;; Add a '-L' flag so that the pseudo-cross-ld of
2097 ;; BINUTILS-BOOT0 can find libc.a.
2098 `(append ,flags
2099 (list (string-append "LDFLAGS=-static -L"
2100 (assoc-ref %build-inputs
2101 "libc:static")
2102 "/lib")))))))))
bdb36958 2103
6162b95d
LC		 2104(define gettext-boot0
2105 ;; A minimal gettext used during bootstrap.
99b73d0f
LC		 2106 (package
2107 (inherit gettext-minimal)
2108 (name "gettext-boot0")
2109 ;; Newer versions of GNU gettext depends on libxml2 and ncurses. To
2110 ;; simplify the dependency chain, we stick to this version here.
2111 (version "0.19.8.1")
2112 (source (origin
2113 (method url-fetch)
2114 (uri (string-append "mirror://gnu/gettext/gettext-"
2115 version ".tar.gz"))
2116 (sha256
2117 (base32
2118 "0hsw28f9q9xaggjlsdp2qmbp2rbd1mp0njzan2ld9kiqwkq2m57z"))))
2119 (inputs (%boot1-inputs)) ;zero dependencies
2120 (arguments
2121 `(#:implicit-inputs? #f
2122 #:guile ,%bootstrap-guile
2123 #:tests? #f
2124 #:phases (modify-phases %standard-phases
2125 ;; Build only the tools.
2126 (add-after 'unpack 'chdir
2127 (lambda _
2128 (chdir "gettext-tools")
2129 #t))
2130
2131 ;; Some test programs require pthreads, which we don't have.
2132 (add-before 'configure 'no-test-programs
2133 (lambda _
2134 (substitute* "tests/Makefile.in"
2135 (("^PROGRAMS =.*$")
2136 "PROGRAMS =\n"))
2137 #t)))))))
6162b95d 2138
89223417 2139(define glibc-final
bdb36958 2140 ;; The final glibc, which embeds the statically-linked Bash built above.
7c788ed2 2141 ;; Use 'package/inherit' so we get the 'replacement' of 'glibc', if any.
99b73d0f
LC		 2142 (package/inherit
2143 glibc
2144 (name "glibc")
2145 (source (bootstrap-origin (package-source glibc)))
2146 (inputs `(("static-bash" ,static-bash-for-glibc)
2147 ,@(alist-delete
2148 "static-bash"
2149 (package-inputs glibc-final-with-bootstrap-bash))))
2150
2151 ;; This time we need 'msgfmt' to install all the libc.mo files.
2152 (native-inputs `(,@(package-native-inputs glibc-final-with-bootstrap-bash)
2153 ("gettext" ,gettext-boot0)))
2154
2155 (propagated-inputs
2156 (package-propagated-inputs glibc-final-with-bootstrap-bash))
2157
2158 ;; The final libc only refers to itself, but the 'debug' output contains
2159 ;; references to GCC-BOOT0 and to the Linux headers. XXX: Would be great
2160 ;; if 'allowed-references' were per-output.
2161 (arguments
2162 `(#:allowed-references
2163 ,(cons* `(,gcc-boot0 "lib") (kernel-headers-boot0)
2164 static-bash-for-glibc
2165 (package-outputs glibc-final-with-bootstrap-bash))
2166
2167 ,@(package-arguments glibc-final-with-bootstrap-bash)))))
bdb36958 2168
f50b013f 2169(define (gcc-boot0-wrapped)
bdb36958
LC		 2170 ;; Make the cross-tools GCC-BOOT0 and BINUTILS-BOOT0 available under the
2171 ;; non-cross names.
2172 (cross-gcc-wrapper gcc-boot0 binutils-boot0 glibc-final
a2b2070b 2173 (car (assoc-ref (%boot1-inputs) "bash"))))
bdb36958 2174
a2b2070b 2175(define (%boot2-inputs)
bdb36958
LC		 2176 ;; 3rd stage inputs.
2177 `(("libc" ,glibc-final)
6dff905e 2178 ("libc:static" ,glibc-final "static")
f50b013f 2179 ("gcc" ,(gcc-boot0-wrapped))
4ae7dc7b 2180 ,@(fold alist-delete (%boot1-inputs) '("libc" "gcc" "linux-libre-headers"))))
bdb36958
LC		 2181
2182(define binutils-final
99b73d0f
LC		 2183 (package
2184 (inherit binutils)
2185 (source (bootstrap-origin (package-source binutils)))
2186 (arguments
2187 `(#:guile ,%bootstrap-guile
2188 #:implicit-inputs? #f
2189 #:allowed-references ("out" ,glibc-final)
2190 ,@(package-arguments binutils)))
2191 (inputs (%boot2-inputs))))
bdb36958
LC		 2192
2193(define libstdc++
2194 ;; Intermediate libstdc++ that will allow us to build the final GCC
2195 ;; (remember that GCC-BOOT0 cannot build libstdc++.)
99b73d0f 2196 (let ((lib (make-libstdc++ gcc)))
86d02fa8
EF		 2197 (package
2198 (inherit lib)
99b73d0f 2199 (source (bootstrap-origin (package-source lib)))
86d02fa8
EF		 2200 (arguments
2201 `(#:guile ,%bootstrap-guile
2202 #:implicit-inputs? #f
2203 #:allowed-references ("out")
2204
2205 ;; XXX: libstdc++.so NEEDs ld.so for some reason.
2206 #:validate-runpath? #f
2207
2208 ;; All of the package arguments from 'make-libstdc++
2209 ;; except for the configure-flags.
2210 ,@(package-arguments lib)
2211 #:configure-flags `("--disable-shared"
01e8263f 2212 "--disable-libstdcxx-dual-abi"
86d02fa8
EF		 2213 "--disable-libstdcxx-threads"
2214 "--disable-libstdcxx-pch"
2215 ,(string-append "--with-gxx-include-dir="
2216 (assoc-ref %outputs "out")
2217 "/include"))))
2218 (outputs '("out"))
a2b2070b 2219 (inputs (%boot2-inputs))
86d02fa8 2220 (synopsis "GNU C++ standard library (intermediate)"))))
bdb36958 2221
98bd851e
LC		 2222(define zlib-final
2223 ;; Zlib used by GCC-FINAL.
99b73d0f
LC		 2224 (package
2225 (inherit zlib)
2226 (arguments
2227 `(#:guile ,%bootstrap-guile
2228 #:implicit-inputs? #f
2229 #:allowed-references ("out" ,glibc-final)
2230 ,@(package-arguments zlib)))
2231 (inputs (%boot2-inputs))))
98bd851e 2232
dab669e0
LC		 2233(define ld-wrapper-boot3
2234 (mlambda ()
2235 ;; A linker wrapper that uses the bootstrap Guile.
2236 (make-ld-wrapper "ld-wrapper-boot3"
2237 #:binutils binutils-final
2238 #:guile %bootstrap-guile
2239 #:bash (car (assoc-ref (%boot2-inputs) "bash"))
2240 #:guile-for-build %bootstrap-guile)))
98bd851e 2241
89223417 2242(define gcc-final
bdb36958
LC		 2243 ;; The final GCC.
2244 (package (inherit gcc-boot0)
2245 (name "gcc")
ab999c25
LC		 2246
2247 ;; XXX: Currently #:allowed-references applies to all the outputs but the
2248 ;; "debug" output contains disallowed references, notably
2249 ;; linux-libre-headers. Disable the debugging output to work around that.
2250 (outputs (delete "debug" (package-outputs gcc-boot0)))
2251
bdb36958
LC		 2252 (arguments
2253 `(#:guile ,%bootstrap-guile
2254 #:implicit-inputs? #f
2255
98bd851e 2256 #:allowed-references ("out" "lib" ,zlib-final
90d891fc 2257 ,glibc-final ,static-bash-for-glibc)
bdb36958 2258
d485ebba
LC		 2259 ;; Things like libasan.so and libstdc++.so NEED ld.so for some
2260 ;; reason, but it is not in their RUNPATH. This is a false
2261 ;; positive, so turn it off.
2262 #:validate-runpath? #f
2263
eb443459 2264 ,@(substitute-keyword-arguments (package-arguments gcc)
bdb36958 2265 ((#:make-flags flags)
52cfd8cb 2266 ;; Since $LIBRARY_PATH is not honored, add the relevant flags.
98bd851e
LC		 2267 `(let ((zlib (assoc-ref %build-inputs "zlib")))
2268 (map (lambda (flag)
2269 (if (string-prefix? "LDFLAGS=" flag)
2270 (string-append flag " -L"
2271 (assoc-ref %build-inputs "libstdc++")
2272 "/lib -L" zlib "/lib -Wl,-rpath="
2273 zlib "/lib")
2274 flag))
2275 ,flags)))
eb443459
JN		 2276 ;; Build again GMP & co. within GCC's build process, because it's hard
2277 ;; to do outside (because GCC-BOOT0 is a cross-compiler, and thus
2278 ;; doesn't honor $LIBRARY_PATH, which breaks `gnu-build-system'.)
bdb36958 2279 ((#:phases phases)
eb443459
JN		 2280 `(modify-phases ,phases
2281 (add-after 'unpack 'unpack-gmp&co
2282 (lambda* (#:key inputs #:allow-other-keys)
2283 (let ((gmp (assoc-ref %build-inputs "gmp-source"))
2284 (mpfr (assoc-ref %build-inputs "mpfr-source"))
2285 (mpc (assoc-ref %build-inputs "mpc-source")))
2286
2287 ;; To reduce the set of pre-built bootstrap inputs, build
2288 ;; GMP & co. from GCC.
2289 (for-each (lambda (source)
2290 (invoke "tar" "xvf" source))
2291 (list gmp mpfr mpc))
2292
2293 ;; Create symlinks like `gmp' -> `gmp-x.y.z'.
2294 ,@(map (lambda (lib)
2295 ;; Drop trailing letters, as gmp-6.0.0a unpacks
2296 ;; into gmp-6.0.0.
2297 `(symlink ,(string-trim-right
2298 (package-full-name lib "-")
2299 char-set:letter)
2300 ,(package-name lib)))
2301 (list gmp-6.0 mpfr mpc))
01e8263f
MB		 2302 #t)))
2303 (add-before 'configure 'treat-glibc-as-system-header
2304 (lambda* (#:key inputs #:allow-other-keys)
2305 (let ((libc (assoc-ref inputs "libc")))
2306 ;; Make sure Glibc is treated as a "system header" so
2307 ;; #include_next does the right thing.
2308 (for-each (lambda (var)
2309 (setenv var (string-append libc "/include")))
2310 '("C_INCLUDE_PATH" "CPLUS_INCLUDE_PATH"))
eb443459 2311 #t))))))))
bdb36958 2312
90d891fc
LC		 2313 ;; This time we want Texinfo, so we get the manual. Add
2314 ;; STATIC-BASH-FOR-GLIBC so that it's used in the final shebangs of
2315 ;; scripts such as 'mkheaders' and 'fixinc.sh' (XXX: who cares about these
2316 ;; scripts?).
bdb36958 2317 (native-inputs `(("texinfo" ,texinfo-boot0)
19d27131 2318 ("perl" ,perl-boot0) ;for manpages
90d891fc 2319 ("static-bash" ,static-bash-for-glibc)
bdb36958
LC		 2320 ,@(package-native-inputs gcc-boot0)))
2321
8309c389 2322 (inputs `(("gmp-source" ,(bootstrap-origin (package-source gmp-6.0)))
bdb36958
LC		 2323 ("mpfr-source" ,(package-source mpfr))
2324 ("mpc-source" ,(package-source mpc))
f50b013f 2325 ("ld-wrapper" ,(ld-wrapper-boot3))
bdb36958
LC		 2326 ("binutils" ,binutils-final)
2327 ("libstdc++" ,libstdc++)
98bd851e 2328 ("zlib" ,zlib-final)
a2b2070b 2329 ,@(%boot2-inputs)))))
bdb36958 2330
a2b2070b 2331(define (%boot3-inputs)
bdb36958
LC		 2332 ;; 4th stage inputs.
2333 `(("gcc" ,gcc-final)
f50b013f 2334 ("ld-wrapper" ,(ld-wrapper-boot3))
a2b2070b 2335 ,@(alist-delete "gcc" (%boot2-inputs))))
bdb36958
LC		 2336
2337(define bash-final
2338 ;; Link with `-static-libgcc' to make sure we don't retain a reference
704243e0
LC		 2339 ;; to the bootstrap GCC. Use "bash-minimal" to avoid an extra dependency
2340 ;; on Readline and ncurses.
99b73d0f
LC		 2341 (let ((bash (static-libgcc-package bash-minimal)))
2342 (package
2343 (inherit bash)
2344 (source (bootstrap-origin (package-source bash)))
2345 (inputs (%boot3-inputs))
2346 (arguments
2347 `(#:implicit-inputs? #f
2348 #:guile ,%bootstrap-guile
2349
2350 #:disallowed-references ,(assoc-ref (%boot3-inputs) "coreutils&co")
2351
2352 ,@(package-arguments bash))))))
bdb36958 2353
a2b2070b 2354(define (%boot4-inputs)
bdb36958
LC		 2355 ;; Now use the final Bash.
2356 `(("bash" ,bash-final)
a2b2070b 2357 ,@(alist-delete "bash" (%boot3-inputs))))
bdb36958 2358
8f417ed2
LC		 2359(define with-boot4
2360 (package-with-explicit-inputs %boot4-inputs %bootstrap-guile))
2361
bdb36958 2362(define-public guile-final
386b71d1
LC		 2363 ;; This package must be public because other modules refer to it. However,
2364 ;; mark it as hidden so that 'fold-packages' ignores it.
8f417ed2
LC		 2365 (with-boot4 (hidden-package
2366 (package-with-bootstrap-guile guile-2.2/fixed))))
bdb36958 2367
89223417 2368(define glibc-utf8-locales-final
87c8b92f
LC		 2369 ;; Now that we have GUILE-FINAL, build the UTF-8 locales. They are needed
2370 ;; by the build processes afterwards so their 'scm_to_locale_string' works
2371 ;; with the full range of Unicode codepoints (remember
2372 ;; 'scm_to_locale_string' is called every time a string is passed to a C
2373 ;; function.)
2374 (package
2375 (inherit glibc-utf8-locales)
58a75996
MO		 2376 (native-inputs
2377 `(("glibc" ,glibc-final)
8f417ed2 2378 ("gzip" ,(with-boot4 gzip))))))
87c8b92f 2379
28cbc587
LC		 2380(define-public ld-wrapper
2381 ;; The final 'ld' wrapper, which uses the final Guile and Binutils.
78dea6f1
LC		 2382 (make-ld-wrapper "ld-wrapper"
2383 #:binutils binutils-final
2384 #:guile guile-final
2385 #:bash bash-final))
28cbc587 2386
a2b2070b 2387(define (%boot5-inputs)
b6ac5451
LC		 2388 ;; Now with UTF-8 locales. Remember that the bootstrap binaries were built
2389 ;; with an older libc, which cannot load the new locale format. See
28cbc587 2390 ;; <https://lists.gnu.org/archive/html/guix-devel/2015-08/msg00737.html>.
b6ac5451 2391 `(("locales" ,glibc-utf8-locales-final)
a2b2070b 2392 ,@(%boot4-inputs)))
87c8b92f 2393
8f417ed2
LC		 2394(define with-boot5
2395 (package-with-explicit-inputs %boot5-inputs))
2396
bdb36958
LC		 2397(define gnu-make-final
2398 ;; The final GNU Make, which uses the final Guile.
8f417ed2
LC		 2399 ;; FIXME: This is a mistake: we shouldn't be propagating GUILE-FINAL to
2400 ;; PKG-CONFIG.
2401 ;; TODO: Fix that on the next rebuild cycle.
2402 (let ((pkg-config (package
2403 (inherit pkg-config)
2404 (inputs `(("guile" ,guile-final)
2405 ,@(%boot5-inputs)))
2406 (arguments
2407 `(#:implicit-inputs? #f
2408 ,@(package-arguments pkg-config))))))
2409 (package
2410 (inherit (package-with-bootstrap-guile gnu-make))
2411 (inputs `(("guile" ,guile-final)
2412 ,@(%boot5-inputs)))
2413 (native-inputs `(("pkg-config" ,pkg-config)))
2414 (arguments
2415 `(#:implicit-inputs? #f
2416 ,@(package-arguments gnu-make))))))
2417
bdb36958 2418
bdb36958
LC		 2419(define coreutils-final
2420 ;; The final Coreutils. Treat them specially because some packages, such as
2421 ;; Findutils, keep a reference to the Coreutils they were built with.
8f417ed2
LC		 2422 (with-boot5 (package-with-bootstrap-guile coreutils)
2423 ;; Use the final Guile, linked against the
2424 ;; final libc with working iconv, so that
2425 ;; 'substitute*' works well when touching
2426 ;; test files in Gettext.
2427 ))
bdb36958
LC		 2428
2429(define grep-final
2430 ;; The final grep. Gzip holds a reference to it (via zgrep), so it must be
2431 ;; built before gzip.
8f417ed2 2432 (let ((grep (with-boot5 (package-with-bootstrap-guile grep))))
78ca500a
LC		 2433 (package/inherit grep
2434 (inputs (alist-delete "pcre" (package-inputs grep)))
2435 (native-inputs `(("perl" ,perl-boot0))))))
bdb36958 2436
a2b2070b 2437(define (%boot6-inputs)
bdb36958
LC		 2438 ;; Now use the final Coreutils.
2439 `(("coreutils" ,coreutils-final)
2440 ("grep" ,grep-final)
a2b2070b 2441 ,@(%boot5-inputs)))
b0fd2bd3 2442
8f417ed2
LC		 2443(define with-boot6
2444 (package-with-explicit-inputs %boot6-inputs))
2445
301a4249
LC		 2446(define sed-final
2447 ;; The final sed.
8f417ed2 2448 (let ((sed (with-boot6 (package-with-bootstrap-guile sed))))
301a4249
LC		 2449 (package/inherit sed (native-inputs `(("perl" ,perl-boot0))))))
2450
bdb36958
LC		 2451(define-public %final-inputs
2452 ;; Final derivations used as implicit inputs by 'gnu-build-system'. We
2453 ;; still use 'package-with-bootstrap-guile' so that the bootstrap tools are
2454 ;; used for origins that have patches, thereby avoiding circular
2455 ;; dependencies.
8f417ed2 2456 (let ((finalize (compose with-boot6
099dbc4f 2457 package-with-bootstrap-guile)))
bdb36958 2458 `(,@(map (match-lambda
099dbc4f
LC		 2459 ((name package)
2460 (list name (finalize package))))
bdb36958 2461 `(("tar" ,tar)
87c8b92f 2462 ("gzip" ,gzip)
bdb36958
LC		 2463 ("bzip2" ,bzip2)
2464 ("xz" ,xz)
c00a9fbf 2465 ("file" ,file)
bdb36958
LC		 2466 ("diffutils" ,diffutils)
2467 ("patch" ,patch)
bdb36958
LC		 2468 ("findutils" ,findutils)
2469 ("gawk" ,gawk)))
301a4249 2470 ("sed" ,sed-final)
bdb36958
LC		 2471 ("grep" ,grep-final)
2472 ("coreutils" ,coreutils-final)
2473 ("make" ,gnu-make-final)
2474 ("bash" ,bash-final)
2475 ("ld-wrapper" ,ld-wrapper)
2476 ("binutils" ,binutils-final)
2477 ("gcc" ,gcc-final)
b0fd2bd3 2478 ("libc" ,glibc-final)
6dff905e 2479 ("libc:static" ,glibc-final "static")
b0fd2bd3 2480 ("locales" ,glibc-utf8-locales-final))))
bdb36958
LC		 2481
2482(define-public canonical-package
2483 (let ((name->package (fold (lambda (input result)
2484 (match input
6dff905e 2485 ((_ package . outputs)
bdb36958
LC		 2486 (vhash-cons (package-full-name package)
2487 package result))))
2488 vlist-null
2489 `(("guile" ,guile-final)
2490 ,@%final-inputs))))
2491 (lambda (package)
2492 "Return the 'canonical' variant of PACKAGE---i.e., if PACKAGE is one of
2493the implicit inputs of 'gnu-build-system', return that one, otherwise return
2494PACKAGE.
2495
34d624ce 2496The goal is to avoid duplication in cases like GUILE-FINAL vs. GUILE-2.2,
bdb36958
LC		 2497COREUTILS-FINAL vs. COREUTILS, etc."
2498 ;; XXX: This doesn't handle dependencies of the final inputs, such as
2499 ;; libunistring, GMP, etc.
2500 (match (vhash-assoc (package-full-name package) name->package)
2501 ((_ . canon)
2502 ;; In general we want CANON, except if we're cross-compiling: CANON
2503 ;; uses explicit inputs, so it is "anchored" in the bootstrapped
2504 ;; process, with dependencies on things that cannot be
2505 ;; cross-compiled.
2506 (if (%current-target-system)
2507 package
2508 canon))
2509 (_ package)))))
2510
2511\f
2512;;;
2513;;; GCC toolchain.
2514;;;
2515
6869b663
CD		 2516;; Using the following procedure, a gcc toolchain targeting glibc-2.27 can be
2517;; instantiated like this:
2518;;
2519;; (define-public gcc-glibc-2.27-toolchain
2520;; (make-gcc-toolchain gcc glibc-2.27))
2521
2522(define* (make-gcc-toolchain gcc
2523 #:optional
2524 (libc #f))
2525 "Return a complete toolchain for GCC. If LIBC is specified, target that libc."
2526 (let ((gcc (if libc (make-gcc-libc gcc libc) gcc))
2527 (libc (if libc libc glibc-final)))
2528 (package
2529 (name (string-append (package-name gcc) "-toolchain"))
2530 (version (package-version gcc))
2531 (source #f)
2532 (build-system trivial-build-system)
2533 (arguments
2534 '(#:modules ((guix build union))
2535 #:builder (begin
2536 (use-modules (ice-9 match)
2537 (srfi srfi-26)
2538 (guix build union))
2539
2540 (let ((out (assoc-ref %outputs "out")))
2541
2542 (match %build-inputs
2543 (((names . directories) ...)
2544 (union-build out directories)))
2545
2546 (union-build (assoc-ref %outputs "debug")
2547 (list (assoc-ref %build-inputs
2548 "libc-debug")))
2549 (union-build (assoc-ref %outputs "static")
2550 (list (assoc-ref %build-inputs
2551 "libc-static")))
2552 #t))))
2553
2554 (native-search-paths (package-native-search-paths gcc))
2555 (search-paths (package-search-paths gcc))
2556
2557 (license (package-license gcc))
2558 (synopsis "Complete GCC tool chain for C/C++ development")
2559 (description
2560 "This package provides a complete GCC tool chain for C/C++ development to
2561be installed in user profiles. This includes GCC, as well as libc (headers
2562an d binaries, plus debugging symbols in the @code{debug} output), and Binutils.")
2563 (home-page "https://gcc.gnu.org/")
2564 (outputs '("out" "debug" "static"))
2565
2566 ;; The main raison d'être of this "meta-package" is (1) to conveniently
2567 ;; install everything that we need, and (2) to make sure ld-wrapper comes
2568 ;; before Binutils' ld in the user's profile.
2569 (inputs `(("gcc" ,gcc)
2570 ("ld-wrapper" ,(car (assoc-ref %final-inputs "ld-wrapper")))
2571 ("binutils" ,binutils-final)
2572 ("libc" ,libc)
2573 ("libc-debug" ,libc "debug")
2574 ("libc-static" ,libc "static"))))))
bdb36958 2575
01e8263f
MB		 2576(define-public gcc-toolchain
2577 (make-gcc-toolchain gcc-final))
2578
bdb36958 2579(define-public gcc-toolchain-4.8
b887ede1 2580 (make-gcc-toolchain gcc-4.8))
bdb36958
LC		 2581
2582(define-public gcc-toolchain-4.9
b887ede1
LC		 2583 (make-gcc-toolchain gcc-4.9))
2584
629f4d2e 2585(define-public gcc-toolchain-5
01e8263f 2586 (make-gcc-toolchain gcc-5))
60e2d5fe 2587
e760ec41 2588(define-public gcc-toolchain-6
b887ede1 2589 (make-gcc-toolchain gcc-6))
e760ec41 2590
d7ecab74 2591(define-public gcc-toolchain-7
01e8263f 2592 gcc-toolchain)
d7ecab74 2593
5ae27f57
LC		 2594(define-public gcc-toolchain-8
2595 (make-gcc-toolchain gcc-8))
2596
bdfc3276
CD		 2597(define-public gcc-toolchain-9
2598 (make-gcc-toolchain gcc-9))
2599
bdb36958 2600;;; commencement.scm ends here
jackhill's copy of GNU Guix: https://guix.gnu.org/