From 2714b395abb1b6d7565fd2f8c8941c03bac54a35 Mon Sep 17 00:00:00 2001 From: Lukasz Stafiniak Date: Fri, 18 Oct 2024 13:19:59 +0200 Subject: [PATCH] Simplify: `UInt64.of_string` -> `Int64.of_nativeint` --- cudajit.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cudajit.ml b/cudajit.ml index 23ae7d2..73c0e59 100644 --- a/cudajit.ml +++ b/cudajit.ml @@ -1062,7 +1062,7 @@ end let sexp_of_voidp ptr = Sexplib0.Sexp.Atom - ("@" ^ Unsigned.UInt64.to_hexstring @@ Unsigned.UInt64.of_string @@ Nativeint.to_string + ("@" ^ Unsigned.UInt64.to_hexstring @@ Unsigned.UInt64.of_int64 @@ Int64.of_nativeint @@ Ctypes.raw_address_of_ptr ptr) let sexp_of_cu_event (event : cu_event) = sexp_of_voidp @@ Ctypes.to_voidp event