9 lines
324 B
Plaintext
9 lines
324 B
Plaintext
;;;; A slice kept past its arena's free-all. A dev build fills the released
|
|
;;;; bytes with 0xDEADBEEF, so the element reads -559038737; a release build
|
|
;;;; leaves the old value, 7.
|
|
(defn main [] i32
|
|
(let [a (arena-new 4096) v (vec-new i32 a)]
|
|
(push v 7)
|
|
(let [s (slice v)] (free-all a) (println (at s 0))))
|
|
0)
|