github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-04-26 11:48:28 +00:00
Code Issues Packages Projects Releases Wiki Activity

🐛 Fix regression on set-shape-children introduced in prev merge

Browse Source
This commit is contained in:
Andrey Antukh 2025-08-12 16:03:34 +02:00
parent 029a9674ca
commit 8e51aa8df4
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
frontend/src/app/render_wasm/api.cljs
View File

@ -152,20 +152,19 @@
(defn set-shape-children
[children]
(perf/begin-measure "set-shape-children")
(when-not ^boolean (empty? children)
(perf/begin-measure "set-shape-children")
(let [heap (mem/get-heap-u32)
size (mem/get-alloc-size children UUID-U8-SIZE)
offset (mem/alloc->offset-32 size)]
(reduce (fn [offset id]
(mem.h32/write-uuid offset heap id))
offset
children)
children)))
(let [result (h/call wasm/internal-module "_set_children")]
(perf/end-measure "set-shape-children")
result))))
(let [result (h/call wasm/internal-module "_set_children")]
(perf/end-measure "set-shape-children")
result))
(defn- get-string-length
[string]