From abaf5d5ada4e3983478a6c89f54ed039ef236595 Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Thu, 17 Dec 2015 17:50:52 +0000 Subject: [PATCH] provide some basic documentation for Perl_dounwind --- pp_ctl.c | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/pp_ctl.c b/pp_ctl.c index 84252ad..1758448 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -1505,6 +1505,15 @@ S_dopoptowhen(pTHX_ I32 startingblock) return i; } +/* dounwind(): pop all contexts above (but not including) cxix. + * Leaves cxstack_ix equal to cxix. Note that for efficiency, it doesn't + * call POPBLOCK at all; the caller should do + * CX_LEAVE_SCOPE; POPFOO; POPBLOCK + * or + * TOPBLOCK + * as appropriate. + */ + void Perl_dounwind(pTHX_ I32 cxix) { -- 1.8.3.1