Call clSetKernelArg with the integer-type defined in the header-file …

…instead of always using CULong
HIPERFIT · Jul 18, 2013 · ed2f53b · ed2f53b
1 parent f5b1c8a
commit ed2f53b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Foreign/OpenCL/Bindings/Kernel.chs b/Foreign/OpenCL/Bindings/Kernel.chs
@@ -89,7 +89,7 @@ setKernelArg :: Kernel -> Int -> KernelArg -> IO ()
 setKernelArg kernel n param =
   withForeignPtr kernel $ \k ->
   withPtr param $ \param_ptr -> do
-    err <- {# call unsafe clSetKernelArg #} k (fromIntegral n) (size param) param_ptr
+    err <- {# call unsafe clSetKernelArg #} k (fromIntegral n) (fromIntegral $ size param) param_ptr
     case toEnum $ fromIntegral err of
       InvalidArgSize  -> error $ "ClInvalidArgSize occurred in call to: clSetKernelArg. Argument #"
                                  ++ show n ++ " was set to size " ++ show (size param)