03/03: HACK commencement: tcc-boot: Patch for mes-0.23.

[guix-commits]

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

commit 07443347f7e332e8e738514e4a92e8d2b9cd4079
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Sun Jan 3 17:11:08 2021 +0100

    HACK commencement: tcc-boot: Patch for mes-0.23.
    
    * gnu/packages/commencement.scm (tcc-boot)[arguments]: Add 'mes-0.23-fixups'
    phase.
---
 gnu/packages/commencement.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index cf8584c..8afd980 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -919,6 +919,21 @@ typedef unsigned long long off64_t;
                        (string-append "--crtprefix=" tcc "/lib")
                        (string-append "--sysincludepaths=" tcc "/include")
                        (string-append "--libpaths=" tcc "/lib")))))
+         (add-after 'configure 'mes-0.23-fixups
+           (lambda _
+             (let ((config.h (open-file "config.h" "a")))
+               (display "
+// FIXME: mes-0.23 (TBR) only defines these if __SIZEOF_LONG_LONG__ != 8
+// but that requires patching of tcc's elf.h
+// and the updated tcc-boot-0.9.26-1136-g0fbeb2dd breaks floats
+typedef unsigned long long uint64_t;
+typedef long long int64_t;
+typedef unsigned long long ino64_t;
+typedef unsigned long long off64_t;
+"
+                        config.h)
+               (close config.h))
+             #t))
          (replace 'build
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref %outputs "out"))