diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-04-17 18:12:44 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-04-17 18:12:44 -0700 |
| commit | 533331cecacf84464eea5dc5c856309027fe7297 (patch) | |
| tree | db1a697ab17ddb91ac41ce6537451589faef1374 | |
| parent | a2b107b61b1fa7d2ac7689b93ac3fcd124c842fe (diff) | |
| download | txr-533331cecacf84464eea5dc5c856309027fe7297.tar.gz txr-533331cecacf84464eea5dc5c856309027fe7297.tar.bz2 txr-533331cecacf84464eea5dc5c856309027fe7297.zip | |
compiler: bugfix: lingering funarg eval order issue.
* stdlib/compiler.tl (compiler comp-call-impl): We can no longer
free the temporary registers as-we-go based on whether the
argument expression frag uses them as the output register
frag. Let's just put them all into the aoregs list to be freed
afterward.
| -rw-r--r-- | stdlib/compiler.tl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index b09324f9..913263a3 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -1496,9 +1496,7 @@ (afrags0 (collect-each ((arg args)) (let* ((aoreg me.(alloc-treg)) (afrag me.(compile aoreg env arg))) - (if (nequal afrag.oreg aoreg) - me.(free-treg aoreg) - (push aoreg aoregs)) + (push aoreg aoregs) afrag))) (afrags (handle-mutated-var-args afrags0 spy.mutated-vars)) (fvars [reduce-left uni afrags nil .fvars]) |