gnu: fc-host-tools: Update to 11.
* gnu/packages/embedded.scm (fc-host-tools): Update to 11. [arguments]<:phases>[handle-tarbomb]: Delete phase. [patch-installation-paths]: Modify.
This commit is contained in:
parent
e0c6c18371
commit
1333eb5851
|
@ -1000,14 +1000,14 @@ SPI, I2C, JTAG.")
|
|||
(define-public fc-host-tools
|
||||
(package
|
||||
(name "fc-host-tools")
|
||||
(version "10")
|
||||
(version "11")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "ftp://ftp.freecalypso.org/pub/GSM/"
|
||||
"FreeCalypso/fc-host-tools-r" version ".tar.bz2"))
|
||||
(sha256
|
||||
(base32
|
||||
"0ybjqkz1cpnxni66p3valv1bva39vpwzdcc4040lqzx6py9h7h8b"))))
|
||||
"0s87lp6gd8i8ivrdd7mnnalysr65035nambcm992rgla7sk76sj1"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
`(#:tests? #f ; No tests exist.
|
||||
|
@ -1016,12 +1016,7 @@ SPI, I2C, JTAG.")
|
|||
(string-append "INCLUDE_INSTALL_DIR=" %output "include/rvinterf"))
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(add-after 'unpack 'handle-tarbomb
|
||||
(lambda _
|
||||
(chdir "..") ; url-fetch/tarbomb doesn't work for some reason.
|
||||
#t))
|
||||
(add-after 'handle-tarbomb 'patch-installation-paths
|
||||
(add-after 'unpack 'patch-installation-paths
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(substitute* '("Makefile"
|
||||
"rvinterf/etmsync/fsiomain.c"
|
||||
|
@ -1038,9 +1033,12 @@ SPI, I2C, JTAG.")
|
|||
(string-append (assoc-ref outputs "out") "/lib/freecalypso/loadtools"))
|
||||
(("\\$\\{INSTALL_PREFIX\\}/loadtools")
|
||||
(string-append (assoc-ref outputs "out") "/lib/freecalypso/loadtools"))
|
||||
(("\\$\\{INSTALL_PREFIX\\}/target-bin")
|
||||
(string-append (assoc-ref outputs "out") "/lib/freecalypso/target-bin"))
|
||||
(("/opt/freecalypso")
|
||||
(assoc-ref outputs "out")))
|
||||
#t)))))
|
||||
#t))
|
||||
(delete 'configure))))
|
||||
(inputs
|
||||
`(("libx11" ,libx11)))
|
||||
(synopsis "Freecalypso host tools")
|
||||
|
|
Loading…
Reference in New Issue