diff --git a/examples/optimizer_repro.myc b/examples/optimizer_repro.myc new file mode 100644 index 0000000..1c91168 --- /dev/null +++ b/examples/optimizer_repro.myc @@ -0,0 +1,21 @@ +;; 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)] +) \ No newline at end of file