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

remove array-copy-method

Browse source
This commit is contained in:
Kristin Rutenkolk 2024-12-29 16:16:41 +01:00
parent 869e6787fa
commit c49dc796b2
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1846,8 +1846,6 @@
:coffi.mem/float `read-floats :coffi.mem/float `read-floats
:coffi.mem/double `read-doubles} _type)) :coffi.mem/double `read-doubles} _type))
(def array-copy-method :bulk)
(defmulti generate-deserialize (fn [& xs] (if (vector? (first xs)) (first (first xs)) (first xs)))) (defmulti generate-deserialize (fn [& xs] (if (vector? (first xs)) (first (first xs)) (first xs))))
(defmethod generate-deserialize :coffi.mem/byte [_type offset segment-source-form] `(read-byte ~segment-source-form ~offset)) (defmethod generate-deserialize :coffi.mem/byte [_type offset segment-source-form] `(read-byte ~segment-source-form ~offset))
@ -2001,7 +1999,7 @@
(->> typelist (->> typelist
(map-indexed (map-indexed
(fn [index [offset [_ field-type]]] (fn [index [offset [_ field-type]]]
(generate-serialize field-type (list (symbol (str "." (name (nth fieldnames index)))) 'source-obj) (if (number? global-offset) (+ global-offset offset) `(+ ~global-offset ~offset)) segment-source-form))) (generate-serialize field-type (list (symbol (str "." (name (nth fieldnames index)))) 'source-obj) (if (number? global-offset) (+ global-offset offset) `(unchecked-add-int ~global-offset ~offset)) segment-source-form)))
(concat [`let ['source-obj source-form]]))))) (concat [`let ['source-obj source-form]])))))
(gen-interface (gen-interface