Home
last modified time | relevance | path

Searched refs:mg_len (Results 1 – 25 of 25) sorted by relevance

/openbsd/gnu/usr.bin/perl/
H A Dmg.h29 SSize_t mg_len; member
50 #define MgSV(mg) (((int)((mg)->mg_len) == HEf_SVKEY) ? \
58 #define MgPV(mg,lp) ((((int)(lp = (mg)->mg_len)) == HEf_SVKEY) ? \
61 #define MgPV_const(mg,lp) ((((int)(lp = (mg)->mg_len)) == HEf_SVKEY) ? \
64 #define MgPV_nolen_const(mg) (((((int)(mg)->mg_len)) == HEf_SVKEY) ? \
78 ? (mg)->mg_len = (off), (mg)->mg_flags |= MGf_BYTES \
79 : ((mg)->mg_len = DO_UTF8(sv) \
H A Dmg.c521 if (mg->mg_len > 0) in S_mg_free_struct()
898 paren = mg->mg_len; in Perl_magic_get()
1311 klen = mg->mg_len; in Perl_magic_setenv()
2466 found->mg_len = -1; in Perl_magic_setpos()
2487 found->mg_len = pos; in Perl_magic_setpos()
2599 mg->mg_len |= 1; in Perl_magic_settaint()
2601 mg->mg_len &= ~1; in Perl_magic_settaint()
2756 mg->mg_len = -1; in Perl_magic_setmglob()
2816 mg->mg_len = -1; in Perl_magic_setcollxfrm()
2830 if (mg->mg_len >= 0) { in Perl_magic_freecollxfrm()
[all …]
H A Dsv.c3643 mg->mg_len = sv_pos_b2u_flags(sv, mg->mg_len, in Perl_sv_utf8_downgrade_flags()
5886 mg->mg_len = namlen;
5974 mg->mg_len |= 1;
5984 mg->mg_len = 1;
7745 (*mgp)->mg_len = ulen;
7786 (*mgp)->mg_len = -1;
8599 mg->mg_len = xlen;
8604 mg->mg_len = -1;
8610 *nxp = mg->mg_len;
10149 if (mg && mg->mg_len) {
[all …]
H A Dvutil.c549 const STRLEN len = mg->mg_len; in Perl_new_version2()
828 version = savepvn( (const char*)mg->mg_ptr,mg->mg_len ); in Perl_upg_version2()
H A Dregcomp_study.c292 mg->mg_len = 0; in Perl_scan_commit()
2275 if (mg && mg->mg_len >= 0) in Perl_study_chunk()
2276 mg->mg_len += charlen; in Perl_study_chunk()
2794 if (mg && mg->mg_len >= 0) in Perl_study_chunk()
2795 mg->mg_len += last_chrs * (mincount-1); in Perl_study_chunk()
2841 mg->mg_len = -1; in Perl_study_chunk()
H A Dav.c1241 return (IV *)&(mg->mg_len); in Perl_av_iter_p()
1245 mg->mg_len = IVSIZE; in Perl_av_iter_p()
H A Ddump.c1625 if (mg->mg_len) in Perl_do_magic_dump()
1626 Perl_dump_indent(aTHX_ level, file, " MG_LEN = %ld\n", (long)mg->mg_len); in Perl_do_magic_dump()
1629 if (mg->mg_len >= 0) { in Perl_do_magic_dump()
1632 PerlIO_printf(file, " %s", pv_display(sv, mg->mg_ptr, mg->mg_len, 0, pvlim)); in Perl_do_magic_dump()
1636 else if (mg->mg_len == HEf_SVKEY) { in Perl_do_magic_dump()
1642 else if (mg->mg_len == -1 && mg->mg_type == PERL_MAGIC_utf8); in Perl_do_magic_dump()
H A Dinline.h329 assert(mg->mg_len != -1); in S_MgBYTEPOS()
331 return (STRLEN)mg->mg_len; in S_MgBYTEPOS()
333 const STRLEN pos = (STRLEN)mg->mg_len; in S_MgBYTEPOS()
H A Dhv.c3464 return &(mg->mg_len); in Perl_hv_placeholders_p()
3483 return mg ? mg->mg_len : 0; in Perl_hv_placeholders_get()
3502 mg->mg_len = ph; in Perl_hv_placeholders_set()
H A Dutil.c1008 if (mg && mg->mg_len >= 0) in Perl_fbm_compile()
1009 mg->mg_len++; in Perl_fbm_compile()
1036 mg->mg_len = 256; in Perl_fbm_compile()
H A Dpp_ctl.c765 Newx(new_compiled, mg->mg_len / sizeof(U32), U32);
766 memcpy(new_compiled, mg->mg_ptr, mg->mg_len);
6690 mg->mg_len = arg * sizeof(U32); in S_doparseform()
H A Dregexec.c3717 : ((mg = mg_find_mglob(sv)) && mg->mg_len >= 0) in Perl_regexec_flags()
11241 mg->mg_len = -1; in S_setup_eval_state()
11244 eval_state->pos = mg->mg_len; in S_setup_eval_state()
11321 eval_state->pos_magic->mg_len = eval_state->pos; in S_cleanup_regmatch_info_aux()
H A Dpp_hot.c3795 if (mg && mg->mg_len >= 0) { in PP()
3967 mg->mg_len = -1; in PP()
H A Dpp.c359 if (mg && mg->mg_len != -1) { in PP()
360 STRLEN i = mg->mg_len; in PP()
H A Dperl.c1538 && mg->mg_len >= 0) in perl_destruct()
H A Dtoke.c10817 elements = mg->mg_len / sizeof(PMOP**); in S_scan_pat()
10820 mg->mg_len = elements * sizeof(PMOP**); in S_scan_pat()
H A Dop.c1398 U32 count = mg->mg_len / sizeof(PMOP**); in S_forget_pmop()
1405 mg->mg_len = count * sizeof(PMOP**); in S_forget_pmop()
/openbsd/gnu/usr.bin/perl/dist/threads-shared/
H A Dshared.xs926 mg->mg_ptr, mg->mg_len); in sharedsv_scalar_mg_local()
964 svp = av_fetch((AV*) saggregate, mg->mg_len, 0); in sharedsv_elem_mg_FETCH()
967 I32 len = mg->mg_len; in sharedsv_elem_mg_FETCH()
969 if (mg->mg_len == HEf_SVKEY) { in sharedsv_elem_mg_FETCH()
1018 svp = av_fetch((AV*) saggregate, mg->mg_len, 1); in sharedsv_elem_mg_STORE()
1021 I32 len = mg->mg_len; in sharedsv_elem_mg_STORE()
1023 if (mg->mg_len == HEf_SVKEY) { in sharedsv_elem_mg_STORE()
1062 av_delete((AV*) saggregate, mg->mg_len, G_DISCARD); in sharedsv_elem_mg_DELETE()
1065 I32 len = mg->mg_len; in sharedsv_elem_mg_DELETE()
1067 if (mg->mg_len == HEf_SVKEY) { in sharedsv_elem_mg_DELETE()
/openbsd/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/
H A Dmagic171 mg->mg_len = -42; /* XXX: this is the tricky part */ \
229 if (mg->mg_len > 0)
231 else if (mg->mg_len == HEf_SVKEY) /* Questionable on older perls... */
/openbsd/gnu/usr.bin/perl/ext/B/
H A DB.xs1742 len = mg->mg_len;
1822 mPUSHi(mg->mg_len);
1829 if (mg->mg_len >= 0) {
1830 PUSHs(newSVpvn_flags(mg->mg_ptr, mg->mg_len, SVs_TEMP));
1831 } else if (mg->mg_len == HEf_SVKEY) {
/openbsd/gnu/usr.bin/perl/cpan/Digest-MD5/
H A DMD5.xs72 mg->mg_len = -1; in THX_sv_magicext()
/openbsd/gnu/usr.bin/perl/dist/Data-Dumper/
H A DDumper.xs1395 scan_vstring(mg->mg_ptr, mg->mg_ptr + mg->mg_len, vecsv); in DD_dump()
1399 sv_catpvn(retval, (const char *)mg->mg_ptr, mg->mg_len); in DD_dump()
1707 ? newSVpvn((const char *)mg->mg_ptr, mg->mg_len)
/openbsd/gnu/usr.bin/perl/dist/Storable/
H A DStorable.xs469 mg->mg_len = -1; in THX_sv_magicext()
2603 const SSize_t len = mg->mg_len; in store_scalar()
3491 I32 idx = mg->mg_len; in store_tied_item()
/openbsd/gnu/usr.bin/perl/cpan/Term-ReadKey/
H A Dppport.h16305 mg->mg_len = -42; /* XXX: this is the tricky part */ \
16388 if (mg->mg_len > 0) in DPPP_()
16390 else if (mg->mg_len == HEf_SVKEY) /* Questionable on older perls... */ in DPPP_()
/openbsd/gnu/usr.bin/perl/pod/
H A Dperlguts.pod1356 I32 mg_len;
1382 C<mg_len> field and if C<name> is non-null then either a C<savepvn> copy of