From cdc11bd54995e80148e6b381a7d23b6e2161d094 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Thu, 8 Feb 2024 10:26:20 +0200
Subject: [PATCH] gnu: Add rust-libfuzzer-sys-0.4.

* gnu/packages/crates-io.scm (rust-libfuzzer-sys-0.4): New variable.
(rust-libfuzzer-sys-0.3): Inherit from rust-libfuzzer-sys-0.4.

Change-Id: I65b6d74c82d1e3114356c3de625f00a8e5dbf71d
---
 gnu/packages/crates-io.scm | 35 +++++++++++++++++++++++++++--------
 1 file changed, 27 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/crates-io.scm b/gnu/packages/crates-io.scm
index 1b5c2ff7e0..3dc4c8fbfa 100644
--- a/gnu/packages/crates-io.scm
+++ b/gnu/packages/crates-io.scm
@@ -32391,8 +32391,34 @@ algorithm and related formats (ZLIB, GZIP).")
     (description "This package provides a LZ77 encoder for libflate crate.")
     (license license:expat)))
 
+(define-public rust-libfuzzer-sys-0.4
+  (package
+    (name "rust-libfuzzer-sys")
+    (version "0.4.7")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (crate-uri "libfuzzer-sys" version))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32 "1xz70z8q85f80wdrc0m0flck73cqdhj5ajgd7ywg50pbaxazsv59"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:tests? #f      ; Needs to be built with clang to pass the tests.
+       #:cargo-inputs (("rust-arbitrary" ,rust-arbitrary-1)
+                       ("rust-cc" ,rust-cc-1)
+                       ("rust-once-cell" ,rust-once-cell-1))
+       #:cargo-development-inputs (("rust-flate2" ,rust-flate2-1)
+                                   ("rust-rand" ,rust-rand-0.8))))
+    (home-page "https://github.com/rust-fuzz/libfuzzer")
+    (synopsis "Wrapper around LLVM's libFuzzer runtime")
+    (description
+     "This package provides a wrapper around LLVM's @code{libFuzzer} runtime.")
+    (license (list license:expat license:asl2.0 license:ncsa))))
+
 (define-public rust-libfuzzer-sys-0.3
   (package
+    (inherit rust-libfuzzer-sys-0.4)
     (name "rust-libfuzzer-sys")
     (version "0.3.5")
     (source
@@ -32402,18 +32428,11 @@ algorithm and related formats (ZLIB, GZIP).")
        (file-name (string-append name "-" version ".tar.gz"))
        (sha256
         (base32 "1vv42rpvmfr83hlblyrjf8ifilsmc3d5gcznblmghx5jnsj89wgw"))))
-    (build-system cargo-build-system)
     (arguments
      `(#:skip-build? #t
        #:cargo-inputs
        (("rust-arbitrary" ,rust-arbitrary-0.4)
-        ("rust-cc" ,rust-cc-1))))
-    (home-page "https://github.com/rust-fuzz/libfuzzer")
-    (synopsis "Wrapper around LLVM's libFuzzer runtime")
-    (description
-     "This package provides a wrapper around LLVM's libFuzzer runtime.")
-    (license
-     (list license:expat license:asl2.0 license:ncsa))))
+        ("rust-cc" ,rust-cc-1))))))
 
 (define-public rust-libloading-0.8
   (package