diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-09-30 07:07:10 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-09-30 07:07:10 -0700 |
commit | 5336fe15fa87107493cf4ca8ddcb4b05d5900318 (patch) | |
tree | b7bbf7d26a34b0047e5b64111fe7668ce215090b | |
parent | d88b3284479d562e819939bb6d7116678b080628 (diff) | |
download | txr-5336fe15fa87107493cf4ca8ddcb4b05d5900318.tar.gz txr-5336fe15fa87107493cf4ca8ddcb4b05d5900318.tar.bz2 txr-5336fe15fa87107493cf4ca8ddcb4b05d5900318.zip |
compiler: cosmetic: merge set assignments.
* stdlib/optimize.tl (basic-blocks join-block): Merge set
forms into one.
(basic-blocks elim-dead-code): Likewise.
-rw-r--r-- | stdlib/optimize.tl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/optimize.tl b/stdlib/optimize.tl index 628a5317..33ed898b 100644 --- a/stdlib/optimize.tl +++ b/stdlib/optimize.tl @@ -105,11 +105,11 @@ (:method join-block (bb bl nxbl) (when (eql (car nxbl.insns) nxbl.label) (pop nxbl.insns)) - (set bl.insns (append bl.insns nxbl.insns)) - (set nxbl.insns nil) - (set bl.next nxbl.next) - (set bl.links nxbl.links) - (set bb.list (remq nxbl bb.list)) + (set bl.insns (append bl.insns nxbl.insns) + nxbl.insns nil + bl.next nxbl.next + bl.links nxbl.links + bb.list (remq nxbl bb.list)) (del [bb.hash nxbl.label]) (each ((nx bl.links)) (upd nx.rlinks (remq nxbl)) @@ -502,8 +502,8 @@ (defmeth basic-blocks elim-dead-code (bb) (each ((bl bb.list)) - (set bl.links nil) - (set bl.rlinks nil)) + (set bl.links nil + bl.rlinks nil)) bb.(link-graph) (let* ((visited (hash :eq-based))) (labels ((visit (bl) |