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 | 55945d1c3156cb63b348720d36514b19ecad8dcb (patch) | |
| tree | a823bde19ab254e551ba19eef29c597d3b37b8b1 | |
| parent | caaecc2c63b65321f3cc66b0d52d9f7b0b859317 (diff) | |
| download | txr-55945d1c3156cb63b348720d36514b19ecad8dcb.tar.gz txr-55945d1c3156cb63b348720d36514b19ecad8dcb.tar.bz2 txr-55945d1c3156cb63b348720d36514b19ecad8dcb.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 |