nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: american-fuzzy-lop: Unconditionally return #T from build phases. 

* gnu/packages/debug.scm (american-fuzzy-lop)[arguments]: Use INVOKE and
unconditionally return #T from build phases.
master
Ricardo Wurmus 2019-01-26 22:32:44 +01:00
parent e5855e6f6b
commit 75ac5e20bc
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnu/packages/debug.scm
View File

@ -194,10 +194,8 @@ tools that process C/C++ code.")
(patch-dir (patch-dir
(string-append afl-dir (string-append afl-dir
"/qemu_mode/patches"))) "/qemu_mode/patches")))
(unless (zero? (invoke "tar" "xf"
(system* "tar" "xf" (assoc-ref inputs "afl-src"))
(assoc-ref inputs "afl-src")))
(error "tar failed to unpack afl-src"))
(install-file (string-append patch-dir (install-file (string-append patch-dir
"/afl-qemu-cpu-inl.h") "/afl-qemu-cpu-inl.h")
".") ".")
@ -210,11 +208,12 @@ tools that process C/C++ code.")
(substitute* (string-append patch-dir (substitute* (string-append patch-dir
"/cpu-exec.diff") "/cpu-exec.diff")
(("\\.\\./patches/") "")) (("\\.\\./patches/") ""))
(every (lambda (patch-file) (for-each (lambda (patch-file)
(zero? (system* "patch" "--force" "-p1" (invoke "patch" "--force" "-p1"
"--input" patch-file))) "--input" patch-file))
(find-files patch-dir (find-files patch-dir
"\\.diff$")))))))))))))) "\\.diff$"))
#t))))))))))))
(arguments (arguments
`(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")) `(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
"CC=gcc") "CC=gcc")