diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-04-02 08:22:58 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-04-02 08:22:58 -0700 |
| commit | 80e98ecc40883d9f153ef7a06fdda1d659389b8a (patch) | |
| tree | af155535383307f17ff021a6207d13c1e6d08c4a | |
| parent | c6a4325717a7a5a9dc6f086cd56a28fd6e36a557 (diff) | |
| download | txr-80e98ecc40883d9f153ef7a06fdda1d659389b8a.tar.gz txr-80e98ecc40883d9f153ef7a06fdda1d659389b8a.tar.bz2 txr-80e98ecc40883d9f153ef7a06fdda1d659389b8a.zip | |
compiler: unwind-protect bug: wrong output reg.
* share/txr/stdlib/compiler.tl (comp-unwind-protect): The
output register of the compiled unwind-protect is that
of the protected forms compiled in pfrag, not of the
compiled code for the cleanup forms in cfrag.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index c9d9bd05..986ebb7e 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -471,7 +471,7 @@ me.(free-treg treg) (cond ((null pfrag.code) - (new (frag pfrag.oreg + (new (frag cfrag.oreg cfrag.code cfrag.fvars cfrag.ffuns))) |