Change 11322 by jhi@alpha on 2001/07/12 17:44:29
Subject: Patch: document reg_data.what member
From: Mark-Jason Dominus <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Date: Thu, 12 Jul 2001 14:25:32 -0400
Affected files ...
... //depot/perl/regcomp.c#219 edit
... //depot/perl/regcomp.h#51 edit
Differences ...
==== //depot/perl/regcomp.c#219 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~ Thu Jul 12 12:00:05 2001
+++ perl/regcomp.c Thu Jul 12 12:00:05 2001
@@ -4586,6 +4586,7 @@
SV** old_curpad;
while (--n >= 0) {
+ /* If you add a ->what type here, update the comment in regcomp.h */
switch (r->data->what[n]) {
case 's':
SvREFCNT_dec((SV*)r->data->data[n]);
==== //depot/perl/regcomp.h#51 (text) ====
Index: perl/regcomp.h
--- perl/regcomp.h.~1~ Thu Jul 12 12:00:05 2001
+++ perl/regcomp.h Thu Jul 12 12:00:05 2001
@@ -350,6 +350,15 @@
I32 *scream_pos; /* Internal iterator of scream. */
} re_scream_pos_data;
+/* .what is a character array with one character for each member of .data
+ * The character describes the function of the corresponding .data item:
+ * f - start-class data for regstclass optimization
+ * n - Root of op tree for (?{EVAL}) item
+ * o - Start op for (?{EVAL}) item
+ * p - Pad for (?{EVAL} item
+ * s - swash for unicode-style character class
+ * 20010712 [EMAIL PROTECTED]
+ */
struct reg_data {
U32 count;
U8 *what;
End of Patch.
