Change 14130 by jhi@alpha on 2002/01/08 02:13:53
A little better comments.
Affected files ...
.... //depot/perl/regexec.c#244 edit
Differences ...
==== //depot/perl/regexec.c#244 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~ Mon Jan 7 19:30:06 2002
+++ perl/regexec.c Mon Jan 7 19:30:06 2002
@@ -4176,7 +4176,13 @@
}
/*
- - reginclass - determine if a character falls into a character class
+ - reginclasslen - determine if a character falls into a character class
+
+ The n is the ANYOF regnode, the p is the target string, lenp
+ is pointer to the maximum length of how far to go in the p
+ (if the lenp is zero, UTF8SKIP(p) is used),
+ do_utf8 tells whether the target string is in UTF-8.
+
*/
STATIC bool
@@ -4301,6 +4307,14 @@
return (flags & ANYOF_INVERT) ? !match : match;
}
+/*
+ - reginclass - determine if a character falls into a character class
+
+ The n is the ANYOF regnode, the p is the target string, do_utf8 tells
+ whether the target string is in UTF-8.
+
+ */
+
STATIC bool
S_reginclass(pTHX_ register regnode *n, register U8* p, register bool do_utf8)
{
End of Patch.
