On 16/12/2022 6:25 pm, Edwin Török wrote:
> diff --git a/tools/ocaml/libs/mmap/mmap_stubs.h 
> b/tools/ocaml/libs/mmap/mmap_stubs.h
> index 65e4239890..66f18d4406 100644
> --- a/tools/ocaml/libs/mmap/mmap_stubs.h
> +++ b/tools/ocaml/libs/mmap/mmap_stubs.h
> @@ -30,4 +30,8 @@ struct mmap_interface
>       int len;
>  };
>  
> +#ifndef Data_abstract_val
> +#define Data_abstract_val(x) ((void*)(value*)(x))

((void *)(x))

I take it this has come from the Ocaml headers?  The cast to (value *)
in the middle is entirely cancelled out.

Can be fixed on commit.

~Andrew

Reply via email to