1 files changed, 0 insertions, 74 deletions

diff --git a/gnu/packages/debug.scm b/gnu/packages/debug.scm
index 0a278a8f5d0..773da375596 100644
--- a/gnu/packages/debug.scm
+++ b/gnu/packages/debug.scm
@@ -303,80 +303,6 @@ and uses the same efficient LLVM-based C/C++ @code{clang_delta} reduction
 tool.")
     (license license:ncsa)))
 
-(define-public american-fuzzy-lop
-  (let ((machine (match (or (%current-target-system)
-                            (%current-system))
-                   ("x86_64-linux"   "x86_64")
-                   ("i686-linux"     "i386")
-                   ("aarch64-linux"  "aarch64")
-                   ("armhf-linux"    "arm")
-                   ("mips64el-linux" "mips64el")
-                   ("powerpc-linux"  "ppc")
-                   ;; Prevent errors when querying this package on unsupported
-                   ;; platforms, e.g. when running "guix package --search="
-                   (_                "UNSUPPORTED"))))
-    (package
-      (name "american-fuzzy-lop")
-      (version "2.57b")             ;It seems all releases have the 'b' suffix
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url "https://github.com/google/AFL")
-               (commit (string-append "v" version))))
-         (sha256
-          (base32 "0ks0s8iizp7mpc9mlpv126rsny0dkljfsw68689g9jiisjz2z530"))
-         (file-name (git-file-name name version))))
-      (build-system gnu-build-system)
-      (inputs
-       (list qemu-for-american-fuzzy-lop))
-      (arguments
-       `(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
-                            (string-append "DOC_PATH=$(PREFIX)/share/doc/"
-                                           ,name "-" ,version)
-                            "CC=gcc")
-         #:phases (modify-phases %standard-phases
-                    (add-after 'unpack 'make-git-checkout-writable
-                      (lambda _
-                        (for-each make-file-writable (find-files "."))
-                        #t))
-                    (delete 'configure)
-                    ,@(if (string=? (%current-system) (or "x86_64-linux"
-                                                          "i686-linux"))
-                        '()
-                        '((add-before 'build 'set-afl-flag
-                            (lambda _ (setenv "AFL_NO_X86" "1") #t))
-                          (add-after 'install 'remove-x86-programs
-                            (lambda* (#:key outputs #:allow-other-keys)
-                              (let* ((out (assoc-ref outputs "out"))
-                                     (bin (string-append out "/bin/")))
-                                (delete-file (string-append bin "afl-gcc"))
-                                (delete-file (string-append bin "afl-g++"))
-                                (delete-file (string-append bin "afl-clang"))
-                                (delete-file (string-append bin "afl-clang++")))
-                              #t))))
-                    (add-after
-                     ;; TODO: Build and install the afl-llvm tool.
-                     'install 'install-qemu
-                     (lambda* (#:key inputs outputs #:allow-other-keys)
-                       (let ((qemu (assoc-ref inputs "qemu"))
-                             (out  (assoc-ref outputs "out")))
-                         (symlink (string-append qemu "/bin/qemu-" ,machine)
-                                  (string-append out "/bin/afl-qemu-trace"))
-                         #t)))
-                    (delete 'check)))) ; tests are run during 'install phase
-      (home-page "https://lcamtuf.coredump.cx/afl/")
-      (synopsis "Security-oriented fuzzer")
-      (description
-       "American fuzzy lop is a security-oriented fuzzer that employs a novel
-type of compile-time instrumentation and genetic algorithms to automatically
-discover clean, interesting test cases that trigger new internal states in the
-targeted binary.  This substantially improves the functional coverage for the
-fuzzed code.  The compact synthesized corpora produced by the tool are also
-useful for seeding other, more labor- or resource-intensive testing regimes
-down the road.")
-      (license license:asl2.0))))
-
 (define-public qemu-for-american-fuzzy-lop
   ;; afl only supports using a single afl-qemu-trace executable, so
   ;; we only build qemu for the native target.