summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2011-10-13 19:53:53 -0600
committerKarl Williamson <public@khwilliamson.com>2011-10-13 20:44:11 -0600
commit6af864889434f3aedc5ff52cae277d1cbfa476d6 (patch)
tree2565728b4d081bbf39e35f24446864468929a21e /regexec.c
parent7b8a80699e4c6a8f740ccf2bc557dd61da67fe14 (diff)
downloadperl-6af864889434f3aedc5ff52cae277d1cbfa476d6.tar.gz
regexec.c: Add comments
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/regexec.c b/regexec.c
index 1aa6129423..95462e470c 100644
--- a/regexec.c
+++ b/regexec.c
@@ -6804,6 +6804,10 @@ S_reginclass(pTHX_ const regexp * const prog, register const regnode * const n,
STATIC U8 *
S_reghop3(U8 *s, I32 off, const U8* lim)
{
+ /* return the position 'off' UTF-8 characters away from 's', forward if
+ * 'off' >= 0, backwards if negative. But don't go outside of position
+ * 'lim', which better be < s if off < 0 */
+
dVAR;
PERL_ARGS_ASSERT_REGHOP3;