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

Add support for named union members in c-layout

Browse source
This commit is contained in:
Justin Tirrell 2024-10-10 11:56:28 -04:00
parent 3fb34923e1
commit 413d231d29
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1149,7 +1149,12 @@
(defmethod c-layout ::union (defmethod c-layout ::union
[[_union types & {:as _opts} :as _type]] [[_union types & {:as _opts} :as _type]]
(let [items (map c-layout types)] (let [items (if (map? types)
(map
(fn [[field-name field]]
(.withName ^MemoryLayout (c-layout field) (name field-name)))
types)
(map c-layout types))]
(MemoryLayout/unionLayout (MemoryLayout/unionLayout
(into-array MemoryLayout items)))) (into-array MemoryLayout items))))