diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-02-09 20:18:46 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-02-09 20:18:46 -0800 |
commit | 3e8b3c556d559ce29afbd2f4e6260091da6b8daa (patch) | |
tree | 9ec317f51a9766f53d9c8ba51913b259386a9cf2 | |
parent | 3b460f87193a220a03c555c324e942716e7b8ffc (diff) | |
download | txr-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.tl | 4 |
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 |