X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/6174b39a88cd48740c024cfb6035edb6ffed9f2d..2806bfd899e5e4e1c29077c080a6a9ebc3512295:/mg.h

diff --git a/mg.h b/mg.h
index de673d4..81ed296 100644
--- a/mg.h
+++ b/mg.h
@@ -38,6 +38,7 @@ struct magic {
 #define MGf_COPY       8	/* has an svt_copy  MGVTBL entry */
 #define MGf_DUP     0x10 	/* has an svt_dup   MGVTBL entry */
 #define MGf_LOCAL   0x20	/* has an svt_local MGVTBL entry */
+#define MGf_BYTES   0x40        /* PERL_MAGIC_regex_global only */
 
 #define MgTAINTEDDIR(mg)	(mg->mg_flags & MGf_TAINTEDDIR)
 #define MgTAINTEDDIR_on(mg)	(mg->mg_flags |= MGf_TAINTEDDIR)
@@ -57,6 +58,19 @@ struct magic {
 #define SvTIED_obj(sv,mg) \
     ((mg)->mg_obj ? (mg)->mg_obj : sv_2mortal(newRV(sv)))
 
+#if defined(PERL_CORE) || defined(PERL_EXT)
+# define MgBYTEPOS(mg,sv,pv,len) S_MgBYTEPOS(aTHX_ mg,sv,pv,len)
+/* assumes get-magic and stringification have already occurred */
+# define MgBYTEPOS_set(mg,sv,pv,off) (			 \
+    assert_((mg)->mg_type == PERL_MAGIC_regex_global)	  \
+    SvPOK(sv) && !SvGMAGICAL(sv)			   \
+	? (mg)->mg_len = (off), (mg)->mg_flags |= MGf_BYTES \
+	: ((mg)->mg_len = DO_UTF8(sv)			     \
+	    ? (SSize_t)utf8_length((U8 *)(pv), (U8 *)(pv)+(off)) \
+	    : (SSize_t)(off),					  \
+	   (mg)->mg_flags &= ~MGf_BYTES))
+#endif
+
 #define whichsig(pv) whichsig_pv(pv)
 
 /*