From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 8 Jan 2002 02:13:53 +0000 (+0000)
Subject: A little better comments.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=832705d49ab18eb2b35edbacb1510b214b5a22f5;p=p5sagit%2Fp5-mst-13.2.git

A little better comments.

p4raw-id: //depot/perl@14130
---

diff --git a/regexec.c b/regexec.c
index 203c8e9..4602b05 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4176,7 +4176,13 @@ Perl_regclass_swash(pTHX_ register regnode* node, bool doinit, SV** listsvp, SV
 }
 
 /*
- - 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 @@ S_reginclasslen(pTHX_ register regnode *n, register U8* p, STRLEN* lenp, registe
     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)
 {