This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
provide some basic documentation for Perl_dounwind
authorDavid Mitchell <davem@iabyn.com>
Thu, 17 Dec 2015 17:50:52 +0000 (17:50 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Feb 2016 09:18:35 +0000 (09:18 +0000)
pp_ctl.c

index 84252ad..1758448 100644 (file)
--- 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)
 {