[ PATCH 5.004 68 ] Text::ParseWords, ^W fixed, version 3.1

[p5sagit/p5-mst-13.2.git] / cop.h

diff --git a/cop.h b/cop.h
index 4b2e04f..4e14c88 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -114,7 +114,8 @@ struct block_loop {
     SV *       itersave;
     SV *       iterlval;
     AV *       iterary;
-    I32                iterix;
+    IV         iterix;
+    IV         itermax;
 };
 
 #define PUSHLOOP(cx, ivar, s)                                          \
@@ -285,6 +286,7 @@ struct context {
 #define G_EVAL         4       /* Assume eval {} around subroutine call. */
 #define G_NOARGS       8       /* Don't construct a @_ array. */
 #define G_KEEPERR      16      /* Append errors to $@, don't overwrite it */
+#define G_NODEBUG      32      /* Disable debugging at toplevel.  */
 
 /* Support for switching (stack and block) contexts.
  * This ensures magic doesn't invalidate local stack and cx pointers.
@@ -297,10 +299,8 @@ struct context {
 #define SI_SIGNAL      4
 #define SI_OVERLOAD    5
 #define SI_DESTROY     6
-/* XXX todo
 #define SI_WARNHOOK    7
 #define SI_DIEHOOK     8
-*/
 
 struct stackinfo {
     AV *               si_stack;       /* stack for current runlevel */