diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2025-06-16 21:36:31 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2025-06-16 21:36:31 -0700 |
| commit | 4ec938eedb98e167117aebb3bcd699abc3b6eccf (patch) | |
| tree | 523f68b2b8edc46776811ccffa7f6c39840f001e /stdlib/optimize.tl | |
| parent | a7c26d664010acb5d3c91f6b6b873b30f8c64f60 (diff) | |
| download | txr-4ec938eedb98e167117aebb3bcd699abc3b6eccf.tar.gz txr-4ec938eedb98e167117aebb3bcd699abc3b6eccf.tar.bz2 txr-4ec938eedb98e167117aebb3bcd699abc3b6eccf.zip | |
compiler: bug: bad slot ref in optimizer.
* stdlib/optimize.tl (basic-blocks do-peephole-block):
Update the links slot of the correct object, the
basic block bl, not the basic blocks graph bb.
This indicates that the code was never run hitherto.
Some compiler changes I'm making revealed it.
Diffstat (limited to 'stdlib/optimize.tl')
| -rw-r--r-- | stdlib/optimize.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/optimize.tl b/stdlib/optimize.tl index c3387a37..5a299a01 100644 --- a/stdlib/optimize.tl +++ b/stdlib/optimize.tl @@ -475,7 +475,7 @@ (set ybl.insns ^(,ybl.label ,(car insns) ,*(cdr yinsns))) (pushnew ybl bb.rescan) (set bb.recalc t) - (set bb.links (list ybl xbl)) + (set bl.links (list ybl xbl)) ^((if (t ,reg) ,xbl.label))) (t insns)))) (@nil insns)))) |