github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-05-08 09:38:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

🐛 Fix last shape removal

Browse Source
This commit is contained in:
Elena Torro 2025-04-16 11:43:23 +02:00
parent 25a44e1387
commit 1ab5d5027f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -190,8 +190,8 @@
(defn set-shape-children
[shape-ids]
(let [num-shapes (count shape-ids)]
(perf/begin-measure "set-shape-children")
(when (> num-shapes 0)
(perf/begin-measure "set-shape-children")
(let [offset (mem/alloc-bytes (* CHILD-ENTRY-SIZE num-shapes))
heap (mem/get-heap-u32)]
@ -200,11 +200,11 @@
(when-not (empty? entries)
(let [id (first entries)]
(sr/heapu32-set-uuid id heap (mem/ptr8->ptr32 current-offset))
(recur (rest entries) (+ current-offset CHILD-ENTRY-SIZE)))))
(recur (rest entries) (+ current-offset CHILD-ENTRY-SIZE)))))))
(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] (+ (count string) 1))