mirror of https://github.com/rusefi/bldc.git
21 lines
373 B
Common Lisp
21 lines
373 B
Common Lisp
|
|
|
|
(def n (* (word-size) (mem-longest-free)))
|
|
|
|
(def a (bufcreate (/ n 2)))
|
|
|
|
(defun f ()
|
|
(progn
|
|
(+ 1 2)
|
|
(bufcreate (/ n 2)))) ;; Should not succeed
|
|
|
|
|
|
(spawn-trap f)
|
|
|
|
|
|
(def res (recv ((exit-error (? tid) (? e)) e)
|
|
((exit-ok (? tid) (? r)) r)))
|
|
|
|
(check (and (eq res out_of_memory) ;; error caught
|
|
(= (+ 1 2) 3))) ;; eval is alive
|