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

Remove also the unused labels in complex tagbodies

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-12-01 23:33:58 +01:00
parent 4a0ac440e1
commit 9d48c73a74
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmptag.lsp
View file

@ -135,7 +135,6 @@
(setf (tag-unwind-exit x) *unwind-exit*)))
;; some tag used non locally or inside an unwind-protect
(let ((*unwind-exit* (cons 'FRAME *unwind-exit*))
(label (next-label))
(*env* *env*) (*env-lvl* *env-lvl*)
(*lex* *lex*) (*lcl* *lcl*)
(*inline-blocks* 0)
@ -162,8 +161,7 @@
(when (var-ref-ccb tag-loc)
(wt-nl "ecl_internal_error(\"GO found an inexistent tag\");"))
(wt-nl "}")
(let ((*unwind-exit* (cons label *unwind-exit*)))
(c2tagbody-body body))
(c2tagbody-body body)
(close-inline-blocks))))
(defun c2tagbody-body (body)