gnu: tcc: Update to a83b285.

Fixes <https://issues.guix.gnu.org/52140>.
Reported by Guillaume Le Vaillant <glv@posteo.net>.

* gnu/packages/c.scm (tcc): Update to a83b28568596afd8792fd58d1a5bd157fc6b6634.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Ekaitz Zarraga 2022-07-12 11:05:15 +02:00 committed by Ludovic Courtès
parent f35b771a0f
commit 18bb89c2b2
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -15,6 +15,7 @@
;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com> ;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com>
;;; Copyright © 2022 (unmatched parenthesis <paren@disroot.org> ;;; Copyright © 2022 (unmatched parenthesis <paren@disroot.org>
;;; Copyright © 2022 Artyom V. Poptsov <poptsov.artyom@gmail.com> ;;; Copyright © 2022 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;; Copyright © 2022 Ekaitz Zarraga <ekaitz@elenq.tech>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -112,58 +113,64 @@ (define-public cproc
(license license:expat)))) (license license:expat))))
(define-public tcc (define-public tcc
(package ;; There's currently no release fixing <https://issues.guix.gnu.org/52140>.
(name "tcc") ;aka. "tinycc" (let ((revision "1")
(version "0.9.27") (commit "a83b28568596afd8792fd58d1a5bd157fc6b6634"))
(source (origin (package
(method url-fetch) (name "tcc") ;aka. "tinycc"
(uri (string-append "mirror://savannah/tinycc/tcc-" (version (git-version "0.9.27" revision commit))
version ".tar.bz2")) (source (origin
(sha256 (method git-fetch)
(base32 (uri (git-reference
"177bdhwzrnqgyrdv1dwvpd04fcxj68s5pm1dzwny6359ziway8yy")))) (url "git://repo.or.cz/tinycc.git")
(build-system gnu-build-system) (commit commit)))
(native-inputs (list perl texinfo)) (file-name (git-file-name name version))
(arguments (sha256
`(#:configure-flags (list (string-append "--elfinterp=" (base32
(assoc-ref %build-inputs "libc") "01znw86fg73x3k0clafica4b6glbhz69p588kvp766i0zgvs68dh"))))
,(glibc-dynamic-linker)) (build-system gnu-build-system)
(string-append "--crtprefix=" (native-inputs (list perl texinfo))
(assoc-ref %build-inputs "libc") (arguments
"/lib") `(#:configure-flags (list (string-append "--elfinterp="
(string-append "--sysincludepaths=" (assoc-ref %build-inputs
(assoc-ref %build-inputs "libc") "libc")
"/include:" ,(glibc-dynamic-linker))
(assoc-ref %build-inputs (string-append "--crtprefix="
"kernel-headers") (assoc-ref %build-inputs
"/include:{B}/include") "libc") "/lib")
(string-append "--libpaths=" (string-append "--sysincludepaths="
(assoc-ref %build-inputs "libc") (assoc-ref %build-inputs
"/lib") "libc") "/include:"
,@(if (string-prefix? "armhf-linux" (assoc-ref %build-inputs
(or (%current-target-system) "kernel-headers")
(%current-system))) "/include:{B}/include")
`("--triplet=arm-linux-gnueabihf") (string-append "--libpaths="
'())) (assoc-ref %build-inputs
#:test-target "test")) "libc") "/lib")
(native-search-paths ,@(if (string-prefix? "armhf-linux"
(list (search-path-specification (or (%current-target-system)
(variable "CPATH") (%current-system)))
(files '("include"))) `("--triplet=arm-linux-gnueabihf")
(search-path-specification '()))
(variable "LIBRARY_PATH") #:test-target "test"))
(files '("lib" "lib64"))))) (native-search-paths
;; Fails to build on MIPS: "Unsupported CPU" (list (search-path-specification
(supported-systems (delete "mips64el-linux" %supported-systems)) (variable "CPATH")
(synopsis "Tiny and fast C compiler") (files '("include")))
(description (search-path-specification
"TCC, also referred to as \"TinyCC\", is a small and fast C compiler (variable "LIBRARY_PATH")
(files '("lib" "lib64")))))
;; Fails to build on MIPS: "Unsupported CPU"
(supported-systems (delete "mips64el-linux" %supported-systems))
(synopsis "Tiny and fast C compiler")
(description
"TCC, also referred to as \"TinyCC\", is a small and fast C compiler
written in C. It supports ANSI C with GNU and extensions and most of the C99 written in C. It supports ANSI C with GNU and extensions and most of the C99
standard.") standard.")
(home-page "http://www.tinycc.org/") (home-page "http://www.tinycc.org/")
;; An attempt to re-licence tcc under the Expat licence is underway but not ;; An attempt to re-licence tcc under the Expat licence is underway but not
;; (if ever) complete. See the RELICENSING file for more information. ;; (if ever) complete. See the RELICENSING file for more information.
(license license:lgpl2.1+))) (license license:lgpl2.1+))))
(define-public pcc (define-public pcc
(package (package