mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
gnu: american-fuzzy-lop: Really build against QEMU 2.3.0.
* gnu/packages/debug.scm (qemu-2.3.0): New variable. (american-fuzzy-lop): Use it instead of QEMU-HEADLESS.
This commit is contained in:
parent
9e6b9ea4b1
commit
4f14c628dc
1 changed files with 21 additions and 3 deletions
|
@ -141,6 +141,24 @@ (define-public c-reduce
|
|||
tools that process C/C++ code.")
|
||||
(license ncsa)))
|
||||
|
||||
(define qemu-2.3.0
|
||||
(package
|
||||
(inherit qemu-headless)
|
||||
(version "2.3.0")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append
|
||||
"http://wiki.qemu-project.org/download/qemu-"
|
||||
version ".tar.bz2"))
|
||||
(sha256
|
||||
(base32
|
||||
"120m53c3p28qxmfzllicjzr8syjv6v4d9rsyrgkp7gnmcgvvgfmn"))))
|
||||
(arguments
|
||||
;; XXX: Disable tests because of GTester's rejection of duplicate test
|
||||
;; names, which wasn't addressed in this version of QEMU.
|
||||
`(#:tests? #f
|
||||
,@(package-arguments qemu-headless)))))
|
||||
|
||||
(define-public american-fuzzy-lop
|
||||
(let ((machine (match (or (%current-target-system)
|
||||
(%current-system))
|
||||
|
@ -164,11 +182,11 @@ (define-public american-fuzzy-lop
|
|||
(inputs
|
||||
`(("custom-qemu"
|
||||
;; The afl-qemu tool builds qemu 2.3.0 with a few patches applied.
|
||||
,(package (inherit qemu-headless)
|
||||
,(package (inherit qemu-2.3.0)
|
||||
(name "afl-qemu")
|
||||
(inputs
|
||||
`(("afl-src" ,source)
|
||||
,@(package-inputs qemu-headless)))
|
||||
,@(package-inputs qemu-2.3.0)))
|
||||
;; afl only supports using a single afl-qemu-trace executable, so
|
||||
;; we only build qemu for the native target.
|
||||
(arguments
|
||||
|
@ -176,7 +194,7 @@ (define-public american-fuzzy-lop
|
|||
(list (string-append "--target-list=" ,machine "-linux-user"))
|
||||
#:modules ((srfi srfi-1)
|
||||
,@%gnu-build-system-modules)
|
||||
,@(substitute-keyword-arguments (package-arguments qemu-headless)
|
||||
,@(substitute-keyword-arguments (package-arguments qemu-2.3.0)
|
||||
((#:phases qemu-phases)
|
||||
`(modify-phases ,qemu-phases
|
||||
(add-after
|
||||
|
|
Loading…
Reference in a new issue