luciano/coffi
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change long type hints to casts

Browse source
This commit is contained in:
Joshua Suskalo 2021-09-23 12:25:59 -05:00
parent fc3b0a96a5
commit f7f8e44a80
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/clj/coffi/ffi.clj
View file

@ -74,7 +74,7 @@
If a `scope` is provided, the allocation will be reclaimed when it is closed." If a `scope` is provided, the allocation will be reclaimed when it is closed."
([size] (alloc size (connected-scope))) ([size] (alloc size (connected-scope)))
([size scope] (MemorySegment/allocateNative ^long size ^ResourceScope scope))) ([size scope] (MemorySegment/allocateNative (long size) ^ResourceScope scope)))
(defn alloc-with (defn alloc-with
"Allocates `size` bytes using the `allocator`." "Allocates `size` bytes using the `allocator`."
@ -115,26 +115,26 @@
freed. Be careful to ensure that you are not retaining an object incorrectly." freed. Be careful to ensure that you are not retaining an object incorrectly."
[address size] [address size]
(.asSlice (MemorySegment/globalNativeSegment) (.asSlice (MemorySegment/globalNativeSegment)
^MemoryAddress address ^long size)) ^MemoryAddress address (long size)))
(defn slice (defn slice
"Get a slice over the `segment` with the given `offset`." "Get a slice over the `segment` with the given `offset`."
([segment offset] ([segment offset]
(.asSlice ^MemorySegment segment ^long offset)) (.asSlice ^MemorySegment segment (long offset)))
([segment offset size] ([segment offset size]
(.asSlice ^MemorySegment segment ^long offset ^long size))) (.asSlice ^MemorySegment segment (long offset) (long size))))
(defn slice-into (defn slice-into
"Get a slice into the `segment` starting at the `address`." "Get a slice into the `segment` starting at the `address`."
([address segment] ([address segment]
(.asSlice ^MemorySegment segment ^MemoryAddress address)) (.asSlice ^MemorySegment segment ^MemoryAddress address))
([address segment size] ([address segment size]
(.asSlice ^MemorySegment segment ^MemoryAddress address ^long size))) (.asSlice ^MemorySegment segment ^MemoryAddress address (long size))))
(defn with-offset (defn with-offset
"Get a new address `offset` from the old `address`." "Get a new address `offset` from the old `address`."
[address offset] [address offset]
(.addOffset ^MemoryAddress address ^long offset)) (.addOffset ^MemoryAddress address (long offset)))
(defn as-segment (defn as-segment
"Dereferences an `address` into a memory segment associated with the `scope`. "Dereferences an `address` into a memory segment associated with the `scope`.
@ -255,7 +255,7 @@
(defn alloc-instance (defn alloc-instance
"Allocates a memory segment for the given `type`." "Allocates a memory segment for the given `type`."
([type] (alloc-instance type (connected-scope))) ([type] (alloc-instance type (connected-scope)))
([type scope] (MemorySegment/allocateNative ^long (size-of type) ^ResourceScope scope))) ([type scope] (MemorySegment/allocateNative (long (size-of type)) ^ResourceScope scope)))
(declare serialize serialize-into) (declare serialize serialize-into)