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

Add a method to clone a segment

Browse source
This commit is contained in:
Joshua Suskalo 2021-09-20 15:29:35 -05:00
parent 25a11d4ba0
commit 33320a6dc2
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/coffi/ffi.clj
View file

@ -141,6 +141,13 @@
[scope action] [scope action]
(.addCloseAction ^ResourceScope scope action)) (.addCloseAction ^ResourceScope scope action))
(defn clone-segment
"Clones the content of `segment` into a new segment of the same size."
([segment] (clone-segment segment (connected-scope)))
([segment scope]
(doto (alloc (.byteSize ^MemorySegment segment) scope)
(.copyFrom ^MemorySegment segment))))
(def primitive-types (def primitive-types
"A set of keywords representing all the primitive types which may be passed to "A set of keywords representing all the primitive types which may be passed to
or returned from native functions." or returned from native functions."
@ -489,7 +496,7 @@
(defmethod deserialize-from ::union (defmethod deserialize-from ::union
[segment type] [segment type]
(slice segment 0 (size-of type))) (clone-segment (slice segment 0 (size-of type))))
;;; FFI Code loading and function access ;;; FFI Code loading and function access