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

remove necessity to create array when deserializing

Browse source
This commit is contained in:
Kristin Rutenkolk 2024-12-29 11:32:31 +01:00
parent ab8cc0c859
commit 18f5699f3a
1 changed files with 24 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
src/clj/coffi/mem.clj
View file

@ -1868,18 +1868,30 @@
(if (= array-copy-method :loop)
(let [a (gensym 'array)]
(concat
`(let [~a (~(coffitype->array-fn array-type) ~n)])
[(list `dotimes ['m n]
(list `aset a 'm (generate-deserialize array-type `(+ ~offset (* ~(size-of array-type) ~'m)) segment-source-form)))]
[(if raw? a `(vec ~a))]))
(let [a (gensym 'array)]
(concat
`(let [~a (~(coffitype->array-fn array-type) ~n)])
(map
#(list `aset a % (generate-deserialize array-type (+ offset (* (size-of array-type) %)) segment-source-form))
(range n))
[(if raw? a `(vec ~a))])))))
(if raw?
(concat
`(let [~a (~(coffitype->array-fn array-type) ~n)])
[(list `dotimes ['m n]
(list `aset a 'm (generate-deserialize array-type `(+ ~offset (* ~(size-of array-type) ~'m)) segment-source-form)))]
[(if raw? a `(vec ~a))])
(list `loop ['i 0 'v (list `transient [])]
(list `if (list `< 'i n)
(list `recur (list `unchecked-inc 'i) (list `conj! 'v (generate-deserialize array-type `(+ ~offset (* ~(size-of array-type) ~'i)) segment-source-form)))
(list `persistent! 'v)))
))
(if raw?
(let [a (gensym 'array)]
(concat
`(let [~a (~(coffitype->array-fn array-type) ~n)])
(map
#(list `aset a % (generate-deserialize array-type (+ offset (* (size-of array-type) %)) segment-source-form))
(range n))
[(if raw? a `(vec ~a))]))
(vec
(map
#(generate-deserialize array-type (+ offset (* (size-of array-type) %)) segment-source-form)
(range n)))
))))
(defn- typelist [typename fields]
(->>