diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-03-02 07:31:21 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-03-02 07:31:21 -0800 |
| commit | 0a7247a382d3152be5fe4203312a85d0822c9e56 (patch) | |
| tree | 2955c2ddf08920a774166eefec8afe9f8c0fc826 | |
| parent | cdeb5bfa8b2fae5cfd8d427d347fbe9195e2d115 (diff) | |
| download | txr-0a7247a382d3152be5fe4203312a85d0822c9e56.tar.gz txr-0a7247a382d3152be5fe4203312a85d0822c9e56.tar.bz2 txr-0a7247a382d3152be5fe4203312a85d0822c9e56.zip | |
compiler: unmatchable pattern in jump threading.
* share/txr/stdlib/optimize.tl (basic-blocks
thread-jumps-block): The two accidental occurrences of @reg
will never match each other: rename one to @dn.
| -rw-r--r-- | share/txr/stdlib/optimize.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/optimize.tl b/share/txr/stdlib/optimize.tl index e4a6e225..02354e25 100644 --- a/share/txr/stdlib/optimize.tl +++ b/share/txr/stdlib/optimize.tl @@ -266,7 +266,7 @@ (while* (nequal ninsn insn) (set insn ninsn ninsn (match-case insn - (@(require (if @(as reg (d @reg)) @jlabel) + (@(require (if @(as reg (d @dn)) @jlabel) (not (memqual reg bb.lt-dregs))) nil) ((if (t 0) @jlabel) |