From: David Mitchell <davem@iabyn.com>
Date: Sun, 19 Jan 2014 00:15:57 +0000 (+0000)
Subject: Perl_regexec_flags(): use HOP4c in another place
X-Git-Tag: upstream/5.20.0~464^2~49
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e50d57d435369f5b2f503cb08ce4b515c0276ade;p=platform%2Fupstream%2Fperl.git

Perl_regexec_flags(): use HOP4c in another place

Now that we have this macro, use it.
---

diff --git a/regexec.c b/regexec.c
index 8b2d7c5..f63eda6 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2822,7 +2822,7 @@ Perl_regexec_flags(pTHX_ REGEXP * const rx, char *stringarg, char *strend,
 	dontbother = 0;
 	strend = HOPc(strend, -dontbother);
 	while ( (s <= last) &&
-		(s = fbm_instr((unsigned char*)HOP3(s, back_min, (back_min<0 ? strbeg : strend)),
+		(s = fbm_instr((unsigned char*)HOP4c(s, back_min, strbeg,  strend),
 				  (unsigned char*)strend, must,
 				  multiline ? FBMrf_MULTILINE : 0)) ) {
 	    DEBUG_EXECUTE_r( did_match = 1 );