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

fix array handling code

Browse source
This commit is contained in:
Kristin Rutenkolk 2024-10-28 21:28:50 +01:00
parent 43acc60784
commit 8844eef320
1 changed files with 13 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1650,20 +1650,19 @@
(let [outer-code `(let [arr# (~(coffitype->array-fn (second _type)) ~(second (rest _type)))] arr# ) (let [outer-code `(let [arr# (~(coffitype->array-fn (second _type)) ~(second (rest _type)))] arr# )
gen-arr (nth outer-code 2)] gen-arr (nth outer-code 2)]
[(concat (butlast outer-code) [(concat (butlast outer-code)
(list
(concat [`aset gen-arr]
(reduce
concat
(map (map
(fn [index] (fn [index]
(let [deserialize-instructions (let [deserialize-instructions
(generate-deserialize (generate-deserialize
(second _type) (second _type)
(+ offset (* (size-of (second _type)) index)))] (+ offset (* (size-of (second _type)) index)))]
(if (vector? deserialize-instructions) (list `aset gen-arr index (first deserialize-instructions))
#_(if true #_(vector? deserialize-instructions)
(list index (first deserialize-instructions)) (list index (first deserialize-instructions))
(list index deserialize-instructions)))) (list index deserialize-instructions))
(range (second (rest _type)))))))
))
(range (second (rest _type))))
[gen-arr])])) [gen-arr])]))
(defn typelist [typename fields] (defn typelist [typename fields]