Skip to content
Snippets Groups Projects
Commit cd6465ff authored by wlott's avatar wlott
Browse files

Changed an :entry to both :block and :tagbody in an ecase.

parent 92d10b20
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.20 1990/08/24 18:35:51 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.21 1990/09/06 17:40:53 wlott Exp $
;;; ;;;
;;; This file contains the virtual machine independent parts of the code ;;; This file contains the virtual machine independent parts of the code
;;; which does the actual translation of nodes to VOPs. ;;; which does the actual translation of nodes to VOPs.
...@@ -1436,7 +1436,7 @@ ...@@ -1436,7 +1436,7 @@
(:catch (:catch
(vop make-catch-block node block block-tn (vop make-catch-block node block block-tn
(continuation-tn node block tag) target-label res)) (continuation-tn node block tag) target-label res))
((:unwind-protect :entry) ((:unwind-protect :block :tagbody)
(vop make-unwind-block node block block-tn target-label res))) (vop make-unwind-block node block block-tn target-label res)))
(ecase kind (ecase kind
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment