Support type arguments to ::pointer in serialize-into
This commit is contained in:
parent
6bc907e720
commit
463d35809b
1 changed files with 6 additions and 2 deletions
|
|
@ -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.
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue