From 33320a6dc294ac4dbf621d520bf15b7fb024020a Mon Sep 17 00:00:00 2001
From: Joshua Suskalo <joshua@iris.tv>
Date: Mon, 20 Sep 2021 15:29:35 -0500
Subject: [PATCH] Add a method to clone a segment

---
 src/coffi/ffi.clj | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/coffi/ffi.clj b/src/coffi/ffi.clj
index 60ad392..99cf51e 100644
--- a/src/coffi/ffi.clj
+++ b/src/coffi/ffi.clj
@@ -141,6 +141,13 @@
   [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
   "A set of keywords representing all the primitive types which may be passed to
   or returned from native functions."
@@ -489,7 +496,7 @@
 
 (defmethod deserialize-from ::union
   [segment type]
-  (slice segment 0 (size-of type)))
+  (clone-segment (slice segment 0 (size-of type))))
 
 ;;; FFI Code loading and function access