SecBSD's official ports repository

This commit is contained in:
purplerain 2023-08-16 22:26:55 +00:00
commit 2c0afcbbf3
Signed by: purplerain
GPG key ID: F42C07F07E2E35B7
64331 changed files with 5339189 additions and 0 deletions

View file

@ -0,0 +1,14 @@
Index: bytearray.ml
--- bytearray.ml.orig
+++ bytearray.ml
@@ -61,7 +61,9 @@ let of_string s =
let mmap_of_string fd s =
let l = String.length s in
- let ba = Bigarray.Array1.map_file fd Bigarray.char Bigarray.c_layout true l in
+ let ba =
+ Bigarray.array1_of_genarray @@
+ Unix.map_file fd Bigarray.char Bigarray.c_layout true [|l|] in
unsafe_blit_from_string s 0 ba 0 l;
ba
(*