From 7d697488aa89ee7799c6440eb36d176081169b7e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 10 Mar 2021 08:29:49 -0800 Subject: compiler: eliminate unused global symbol accesses. * share/txr/stdlib/optimize.tl (basic-blocks peephole-blocks): Extend dead reg mov pattern to also handle the getlx, getv, getf and getfb instructions. --- share/txr/stdlib/optimize.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- cgit v1.2.3