diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-03-10 08:29:49 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-03-10 08:29:49 -0800 |
| commit | 7d697488aa89ee7799c6440eb36d176081169b7e (patch) | |
| tree | e758d93cebdfd7a0e6382070b7d197a08033dceb | |
| parent | ef70b76d291b5b3a0045f2e2c1bb04a4a8a8debe (diff) | |
| download | txr-7d697488aa89ee7799c6440eb36d176081169b7e.tar.gz txr-7d697488aa89ee7799c6440eb36d176081169b7e.tar.bz2 txr-7d697488aa89ee7799c6440eb36d176081169b7e.zip | |
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.
| -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) |