diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-12-11 01:31:33 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-12-11 01:31:33 -0800 |
| commit | 887c52b5e0426139ef43baed499ce8d6dc4903bb (patch) | |
| tree | a823bde19ab254e551ba19eef29c597d3b37b8b1 | |
| parent | 96a26f308a2f95ff87779027e70d43688d9eae60 (diff) | |
| download | txr-887c52b5e0426139ef43baed499ce8d6dc4903bb.tar.gz txr-887c52b5e0426139ef43baed499ce8d6dc4903bb.tar.bz2 txr-887c52b5e0426139ef43baed499ce8d6dc4903bb.zip | |
compiler: tweak in basic block debug print.
* stdlib/optimize (basic-block print): Print the label of the
next block, rather than the block itself. This reduces the
verbosity during debugging.
| -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 01105235..9c94d445 100644 --- a/stdlib/optimize.tl +++ b/stdlib/optimize.tl @@ -47,7 +47,7 @@ insns ,bl.insns links ,(mapcar .label bl.links) rlinks ,(mapcar .label bl.rlinks) - next ,bl.next) stream))) + next ,bl.next.?label) stream))) (defstruct (basic-blocks insns lt-dregs symvec) nil insns |