Fixed the optimizer for OR

parent 3628bf3f
......@@ -152,15 +152,15 @@
(mapc #'c2expr* butlast))
(c2expr last))
(unwind-exit t))
(t
(with-exit-label (normal-exit)
(dolist (f butlast)
(let ((*destination* 'VALUE0))
(c2expr* f))
(set-jump-true 'VALUE0 normal-exit))
(let ((*destination* 'VALUE0))
(c2expr* last)))
(unwind-exit 'VALUE0))))
(t
(with-exit-label (common-exit)
(with-exit-label (normal-exit)
(dolist (f butlast)
(let ((*destination* 'VALUE0))
(c2expr* f))
(set-jump-true 'VALUE0 normal-exit))
(c2expr last))
(unwind-exit 'VALUE0)))))
(defun set-jump-true (loc label)
(multiple-value-bind (constantp value)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment