diff options
| -rw-r--r-- | share/txr/stdlib/optimize.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/optimize.tl b/share/txr/stdlib/optimize.tl index 5d0b2806..b1008d0a 100644 --- a/share/txr/stdlib/optimize.tl +++ b/share/txr/stdlib/optimize.tl @@ -355,7 +355,7 @@ (and li (bit li.used n) (not (bit bl.live n)))))) (rewrite-case insns code ;; dead t-reg - (@(require ((mov (t @n) . @nil) . @nil) + (@(require ((@(or mov getlx getv getf getfb) (t @n) . @nil) . @nil) (dead-treg (car insns) n)) (pushnew bl bb.rescan) (set bb.recalc t) |