mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: uftrace: Use G-expressions.

Browse source 
* gnu/packages/instrumentation.scm (uftrace)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-02 02:00:01 +02:00
parent 34d7eb9721
commit 5237abd7ce
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 26 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/packages/instrumentation.scm
View file

@ -551,18 +551,19 @@ (define-public uftrace
(base32 "0gk0hv3rnf5czvazz1prg21rf9qlniz42g5b389n8a29hqj4q6xr"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags
(list
(string-append "CC=" ,(cc-for-target)))
;; runtest hang at some point -- probably dues to
#:make-flags
#~(list
(string-append "CC=" #$(cc-for-target)))
;; runtest hangs at some point -- probably due to
;; failed socket connection -- but we want to keep the
;; unit tests. Change the target to "test" when fixed.
#:test-target "unittest"
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs target #:allow-other-keys)
(let ((arch ,(platform-linux-architecture
(let ((arch #$(platform-linux-architecture
(lookup-platform-by-target-or-system
(or (%current-target-system)
(%current-system))))))
@ -575,7 +576,7 @@ (define-public uftrace
(setenv "SHELL" (which "sh"))
(invoke "./configure"
(string-append "--prefix="
(assoc-ref outputs "out"))))))))
#$output)))))))
(inputs
(list capstone
elfutils