patches/accelerate-llvm-native/0001-fix-removed-argInt-by-using-argInt64.patch

   1 From b88a2d966a144cfed6ca4086705a22d5b575c83b Mon Sep 17 00:00:00 2001
   2 From: Julien Moutinho <julm+gargantext@sourcephile.fr>
   3 Date: Thu, 29 Jun 2023 16:18:00 +0200
   4 Subject: [PATCH] fix removed `argInt` by using `argInt64`
   5
   6 ---
   7  .../src/Data/Array/Accelerate/LLVM/Native/Execute/Marshal.hs  | 4 +++-
   8  1 file changed, 3 insertions(+), 1 deletion(-)
   9
  10 diff --git a/accelerate-llvm-native/src/Data/Array/Accelerate/LLVM/Native/Execute/Marshal.hs b/accelerate-llvm-native/src/Data/Array/Accelerate/LLVM/Native/Execute/Marshal.hs
  11 index 280c2015..b7070bfa 100644
  12 --- a/accelerate-llvm-native/src/Data/Array/Accelerate/LLVM/Native/Execute/Marshal.hs
  13 +++ b/accelerate-llvm-native/src/Data/Array/Accelerate/LLVM/Native/Execute/Marshal.hs
  14 @@ -34,6 +34,8 @@ import qualified Foreign.LibFFI                                 as FFI
  15  instance Marshal Native where
  16    type ArgR Native = FFI.Arg
  17
  18 -  marshalInt = FFI.argInt
  19 +  -- FIXME: see if 64 bits is correct here
  20 +  -- https://github.com/remiturk/libffi/issues/13
  21 +  marshalInt = FFI.argInt64 . fromIntegral
  22    marshalScalarData' _ = return . DL.singleton . FFI.argPtr . unsafeUniqueArrayPtr
  23
  24 --
  25 2.40.1
  26