diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-28 06:32:06 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-28 06:32:06 -0700 |
| commit | c2b3237bea99b43d0a68d4117d42ca0bfb7ef81e (patch) | |
| tree | 1afa6db60381afba92e93e2a293a1ddd833270d7 | |
| parent | 38a691aa1d3640a31a7eadf1883271ea249ed9ee (diff) | |
| download | txr-c2b3237bea99b43d0a68d4117d42ca0bfb7ef81e.tar.gz txr-c2b3237bea99b43d0a68d4117d42ca0bfb7ef81e.tar.bz2 txr-c2b3237bea99b43d0a68d4117d42ca0bfb7ef81e.zip | |
compiler: if: remove spurious instruction.
* share/txr/stdlib/compiler.tl (compiler comp-if): Remove a
trailing maybe-mov from the instruction template that
serves no purpose and can potentially generate an instruction.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 6f0211ad..1e089402 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -380,8 +380,7 @@ ,lelse ,*el-frag.code ,*(maybe-mov oreg el-frag.oreg) - ,lskip - ,*(maybe-mov te-oreg te-frag.oreg)) + ,lskip) (uni te-frag.fvars (uni th-frag.fvars el-frag.fvars)) (uni te-frag.ffuns (uni th-frag.ffuns el-frag.ffuns)))))))) ((op test then) |