diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2025-06-16 21:38:17 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2025-06-16 21:38:17 -0700 |
| commit | a30f01bf44396a62c6bb71a01d9d7153fca2940c (patch) | |
| tree | 6fbbf8d31654f7aa89c69ec8795cd9ba291e05ba | |
| parent | 4ec938eedb98e167117aebb3bcd699abc3b6eccf (diff) | |
| download | txr-a30f01bf44396a62c6bb71a01d9d7153fca2940c.tar.gz txr-a30f01bf44396a62c6bb71a01d9d7153fca2940c.tar.bz2 txr-a30f01bf44396a62c6bb71a01d9d7153fca2940c.zip | |
compiler: rename local variable in optimizer.
* stdlib/optimize.tl (basic-blocks merge-jump-thunks):
A local variable named bb is used for walking a
list of basic blocks, and shadowing the self object,
also named bb. It should be called bl.
| -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 5a299a01..1599ad65 100644 --- a/stdlib/optimize.tl +++ b/stdlib/optimize.tl @@ -670,13 +670,13 @@ (hash (group-by [chain .insns cdr] candidates))) (dohash (insns bls hash) (let ((link (car (car bls).links))) - (each ((bb bb.list)) - (if (and (not (member bb bls)) - (null (cdr bb.links)) - (eq bb.next link) - (starts-with (cdr bb.insns) insns) - (eql (len bb.insns) (len insns))) - (push bb bls)))) + (each ((bl bb.list)) + (if (and (not (member bl bls)) + (null (cdr bl.links)) + (eq bl.next link) + (starts-with (cdr bl.insns) insns) + (eql (len bl.insns) (len insns))) + (push bl bls)))) (when (cdr bls) (whenlet ((keep (or (keep-if (op some @1.rlinks (op eq @@1) .next) bls) (list (car bls)))) |