From 6af864889434f3aedc5ff52cae277d1cbfa476d6 Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Thu, 13 Oct 2011 19:53:53 -0600
Subject: [PATCH] regexec.c: Add comments

---
 regexec.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/regexec.c b/regexec.c
index 1aa6129..95462e4 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;
-- 
2.7.4