summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-02-09 20:18:46 -0800
committerKaz Kylheku <kaz@kylheku.com>2021-02-09 20:18:46 -0800
commit3e8b3c556d559ce29afbd2f4e6260091da6b8daa (patch)
tree9ec317f51a9766f53d9c8ba51913b259386a9cf2
parent3b460f87193a220a03c555c324e942716e7b8ffc (diff)
downloadtxr-3e8b3c556d559ce29afbd2f4e6260091da6b8daa.tar.gz
txr-3e8b3c556d559ce29afbd2f4e6260091da6b8daa.tar.bz2
txr-3e8b3c556d559ce29afbd2f4e6260091da6b8daa.zip
compiler: rename variable in optimizer code.
* share/txr/stdlib/optimize.tl (basic-blocks peephole): Rename jlabel3 variable to jlabel2, so it is in sequence after jlabel0 and jlabel1.
-rw-r--r--share/txr/stdlib/optimize.tl4
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/optimize.tl b/share/txr/stdlib/optimize.tl
index c06c5d22..0875231c 100644
--- a/share/txr/stdlib/optimize.tl
+++ b/share/txr/stdlib/optimize.tl
@@ -84,9 +84,9 @@
(jmp @(with @jlabel1
@(hash (@jlabel1 (@jlabel1
(if @reg @nil)
- (jmp @jlabel3) . @nil)))
+ (jmp @jlabel2) . @nil)))
bb.hash)) . @rest)
- ^(,(car insns) (jmp ,jlabel3) ,*rest))
+ ^(,(car insns) (jmp ,jlabel2) ,*rest))
(((if @reg @jlabel) . @rest)
(let ((jinsns [bb.hash jlabel]))
(match-case jinsns