allow global offset to be expression for

register-new-struct-deserialization
This commit is contained in:
Kristin Rutenkolk 2025-01-07 18:45:09 +01:00
parent a6b7ece504
commit f9784b33cc

View file

@ -1846,7 +1846,7 @@
(->> (typelist fields) (->> (typelist fields)
(map-indexed (map-indexed
(fn [index [offset [_ field-type]]] (fn [index [offset [_ field-type]]]
(generate-deserialize field-type (+ global-offset offset) segment-source-form))) (generate-deserialize field-type (if (number? global-offset) (+ global-offset offset) `(+ ~global-offset ~offset)) segment-source-form)))
(cons (symbol (str (name typename) ".")))))) (cons (symbol (str (name typename) "."))))))
(defmulti generate-serialize (fn [& xs] (if (vector? (first xs)) (ffirst xs) (first xs)))) (defmulti generate-serialize (fn [& xs] (if (vector? (first xs)) (ffirst xs) (first xs))))