+1 -1

dune-project

··· 35 35 (alcotest (and (>= 1.7.0) :with-test)) 36 36 (eio (= :version)) 37 37 (mdx (and (>= 2.2.0) :with-test)) 38 38 - (logs (>= 0.7.0)) 38 38 + (logs (and (>= 0.7.0) :with-test)) 39 39 (fmt (>= 0.8.9)) 40 40 (cmdliner (and (>= 1.1.0) :with-test)) 41 41 (uring (>= 0.7))))

+1 -1

eio_linux.opam

··· 13 13 "alcotest" {>= "1.7.0" & with-test} 14 14 "eio" {= version} 15 15 "mdx" {>= "2.2.0" & with-test} 16 16 - "logs" {>= "0.7.0"} 16 16 + "logs" {>= "0.7.0" & with-test} 17 17 "fmt" {>= "0.8.9"} 18 18 "cmdliner" {>= "1.1.0" & with-test} 19 19 "uring" {>= "0.7"}

+1 -1

lib_eio_linux/dune

··· 11 11 (flags :standard -D_LARGEFILE64_SOURCE) 12 12 (include_dirs ../lib_eio/unix/include) 13 13 (names eio_stubs)) 14 14 - (libraries eio eio.utils eio.unix uring logs fmt)) 14 14 + (libraries eio eio.utils eio.unix uring fmt)) 15 15 16 16 (rule 17 17 (enabled_if

-2

lib_eio_linux/log.ml

··· 1 1 - let src = Logs.Src.create "eio_linux" ~doc:"Effect-based IO system for Linux/io-uring" 2 2 - include (val Logs.src_log src : Logs.LOG)

+5 -9

lib_eio_linux/sched.ml

··· 292 292 | Job_no_cancel k -> 293 293 Suspended.continue k result 294 294 | Cancel_job -> 295 295 - begin match result with 296 296 - | 0 (* Operation cancelled successfully *) 297 297 - | -2 (* ENOENT - operation completed before cancel took effect *) 298 298 - | -114 (* EALREADY - operation already in progress *) 299 299 - -> () 300 300 - | errno -> 301 301 - Log.warn (fun f -> f "Cancel returned unexpected error: %s" (Unix.error_message (Uring.error_of_errno errno))) 302 302 - end; 295 295 + (* We don't care about the result of the cancel operation, and there's nowhere to send it. 296 296 + The possibilities are: 297 297 + 0 : Operation cancelled successfully 298 298 + -2 : ENOENT - operation completed before cancel took effect 299 299 + -114 : EALREADY - operation already in progress *) 303 300 schedule st 304 301 | Job_fn (k, f) -> 305 302 Fiber_context.clear_cancel_fn k.fiber; ··· 552 549 | Ok () -> 553 550 Some (Uring.Region.init ~block_size buf n_blocks) 554 551 | Error `ENOMEM -> 555 555 - Log.warn (fun f -> f "Failed to allocate %d byte fixed buffer" fixed_buf_len); 556 552 None 557 553 in 558 554 let run_q = Lf_queue.create () in

+2 -2

lib_eio_linux/tests/dune

··· 6 6 (= %{system} "linux_elf") ; Historically, Linux-x86_32 7 7 (= %{system} "elf"))) ; Historically, Linux-ppc64 8 8 (modules eurcp_lib) 9 9 - (libraries eio_linux)) 9 9 + (libraries eio_linux logs)) 10 10 11 11 (executable 12 12 (name eurcp) ··· 47 47 (= %{system} "linux_elf") ; Historically, Linux-x86_32 48 48 (= %{system} "elf"))) ; Historically, Linux-ppc64 49 49 (modules test) 50 50 - (libraries alcotest eio_linux)) 50 50 + (libraries alcotest eio_linux logs)) 51 51 52 52 (mdx 53 53 (package eio_linux)