mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 07:12:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmp: unwind-cjump: avoid recursive call to unwind-exit

Browse source 
Previously our call for conditional jumps worked like:

  unwind-exit -> unwind-cjump -> unwind-exit -> unwind-{label,exit}

The roundtrip to unwind-exit makes tracking invocations harder. The new
invocation chain is:

  unwind-exit -> unwind-cjump -> unwind-{label,exit}
This commit is contained in:
Daniel Kochmański 2023-11-27 11:32:59 +01:00
parent b9605fd3e4
commit bc01ff1a3c
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/cmp/cmpbackend-cxx/cmppass2-exit.lsp
View file

@ -212,7 +212,9 @@
(unwind-jump label)))
(unless (and constantp (not (null value)))
(let ((*destination* 'TRASH))
(unwind-exit *vv-nil*))))
(if (labelp *exit*)
(unwind-label *vv-nil*)
(unwind-leave *vv-nil*)))))
(JUMP-FALSE
(cond ((not constantp)
(case (loc-representation-type loc)
@ -224,4 +226,6 @@
(unwind-jump label)))
(unless (and constantp (null value))
(let ((*destination* 'TRASH))
(unwind-exit *vv-t*))))))))
(if (labelp *exit*)
(unwind-label *vv-t*)
(unwind-leave *vv-t*)))))))))