| 1 | |
| 2 | |
| 3 | |
| 4 | |
| 5 | |
| 6 | |
| 7 | |
| 8 | |
| 9 | |
| 10 | |
| 11 | |
| 12 | |
| 13 | |
| 14 | |
| 15 | |
| 16 | |
| 17 | |
| 18 | |
| 19 | |
| 20 | |
| 21 | |
| 22 | |
| 23 |
|
| 24 | (define-module (gnu packages libunwind)
|
| 25 | #:use-module (guix gexp)
|
| 26 | #:use-module (guix download)
|
| 27 | #:use-module (guix packages)
|
| 28 | #:use-module (guix utils)
|
| 29 | #:use-module (gnu packages)
|
| 30 | #:use-module (guix build-system gnu)
|
| 31 | #:use-module (guix licenses))
|
| 32 |
|
| 33 | (define-public libunwind
|
| 34 | (package
|
| 35 | (name "libunwind")
|
| 36 | (version "1.6.2")
|
| 37 | (source (origin
|
| 38 | (method url-fetch)
|
| 39 | (uri (string-append "mirror://savannah/libunwind/libunwind-"
|
| 40 | version ".tar.gz"))
|
| 41 | (sha256
|
| 42 | (base32
|
| 43 | "0xj9g6a9q7v7zz6lymf3f6011synibgawi4wi384bywid5kfqsja"))))
|
| 44 | (build-system gnu-build-system)
|
| 45 | (arguments
|
| 46 | (list
|
| 47 | #:configure-flags
|
| 48 | #~(list #$(string-append
|
| 49 | "CFLAGS=-g -O2"
|
| 50 | " -Wno-error=implicit-function-declaration"
|
| 51 | " -Wno-error=incompatible-pointer-types"))
|
| 52 | |
| 53 | |
| 54 | #:make-flags
|
| 55 | #~(list "XFAIL_TESTS=run-coredump-unwind run-coredump-unwind-mdi")
|
| 56 | |
| 57 | #:tests? (and (not (%current-target-system))
|
| 58 | (target-x86-64?))))
|
| 59 | (home-page "https://www.nongnu.org/libunwind")
|
| 60 | (synopsis "Determining the call chain of a program")
|
| 61 | (description
|
| 62 | "The primary goal of this project is to define a portable and efficient C
|
| 63 | programming interface (API) to determine the call-chain of a program. The API
|
| 64 | additionally provides the means to manipulate the preserved (callee-saved)
|
| 65 | state of each call-frame and to resume execution at any point in the
|
| 66 | call-chain (non-local goto). The API supports both local (same-process) and
|
| 67 | remote (across-process) operation. As such, the API is useful in a number of
|
| 68 | applications.")
|
| 69 | |
| 70 | |
| 71 | (license expat)))
|