Support type arguments to ::pointer in serialize-into

This commit is contained in:
Joshua Suskalo 2021-09-27 11:18:53 -05:00
parent 6bc907e720
commit 463d35809b

View file

@ -389,8 +389,12 @@
(MemoryAccess/setDouble segment (double obj))) (MemoryAccess/setDouble segment (double obj)))
(defmethod serialize-into ::pointer (defmethod serialize-into ::pointer
[obj _type segment _scope] [obj type segment scope]
(MemoryAccess/setAddress segment obj)) (with-acquired [(segment-scope segment) scope]
(MemoryAccess/setAddress
segment
(cond-> obj
(sequential? type) (serialize* type scope)))))
(defn serialize (defn serialize
"Serializes an arbitrary type. "Serializes an arbitrary type.