21 lines
523 B
Plaintext
21 lines
523 B
Plaintext
;; Benchmark: 666ns
|
|
;; Benchmark-Repeat: 2975
|
|
(do
|
|
;; 1. Provokation Stack-Gap (bei Optimization Level 2)
|
|
(def result
|
|
(fn []
|
|
(do
|
|
(def unused 10) ;; Wird entfernt, Slot 0 ist dann "leer"
|
|
(def used 42) ;; Bleibt auf Slot 1 -> Lücke!
|
|
used)))
|
|
|
|
;; 2. Provokation Inlining-Blockade
|
|
;; Diese Funktion wird nicht inlined, weil sie ein 'def' enthält
|
|
(def complex-add
|
|
(fn [a]
|
|
(do
|
|
(def b 100)
|
|
(+ a b))))
|
|
|
|
[(result) (complex-add 50)]
|
|
) |