22/54: bootstrap: Add patch-mesboot0.

[guix-commits]

janneke pushed a commit to branch wip-bootstrap
in repository guix.

commit 995e5c623430a9d8c97ad12298c22eaeaaf1e516
Author: Jan Nieuwenhuizen <address@hidden>
Date:   Sun Oct 6 14:57:54 2019 +0200

    bootstrap: Add patch-mesboot0.
    
    * gnu/packages/commencement.scm (patch-mesboot0): New variable.
---
 gnu/packages/commencement.scm | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index ba1d6f2..a2baf7f 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -815,6 +815,49 @@
                (install-file "diff" bin)
                #t))))))))
 
+(define patch-mesboot0
+  (package
+    (inherit patch)
+    (name "patch-mesboot0")
+    (version "2.5.9")
+    (source (bootstrap-origin
+             (origin
+               (method url-fetch)
+               (uri (string-append "mirror://gnu/patch/patch-"
+                                   version ".tar.gz"))
+               (sha256
+                (base32
+                 "12nv7jx3gxfp50y11nxzlnmqqrpicjggw6pcsq0wyavkkm3cddgc")))))
+    (supported-systems '("i686-linux" "x86_64-linux"))
+    (inputs '())
+    (propagated-inputs '())
+    (native-inputs `(("gzip" ,gzip-mesboot0)
+                     ("make" ,make-mesboot0)
+                     ("mes" ,mes-boot)
+                     ("tcc" ,tcc-boot0)
+
+                     ("bash" ,bash-mesboot0)
+                     ("gash" ,%bootstrap-gash)
+                     ("guile" ,%bootstrap-guile)))
+    (arguments
+     `(#:implicit-inputs? #f
+       #:guile ,%bootstrap-guile
+       #:parallel-build? #f
+       #:tests? #f            ; check is naive, also checks non-built PROGRAMS
+       #:strip-binaries? #f   ; no strip yet
+       #:configure-flags '("AR=tcc -ar" "CC=tcc" "LD-tcc")
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'scripted-patch
+           (lambda _
+             ;; avoid another segfault
+             (substitute* "pch.c"
+               (("while [(]p_end >= 0[)]" all)
+                "p_end = -1;\nwhile (0)"))
+             #t))
+         ;; FIXME: no compressing gzip yet
+         (delete 'compress-documentation))))))
+
 (define binutils-mesboot0
   (package
     (inherit binutils)