Searched refs:mg_ptr (Results 1 - 10 of 10) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dmg.h33 char* mg_ptr; member in struct:magic
49 SvPV((SV*)((mg)->mg_ptr),lp) : \
50 (mg)->mg_ptr)
H A Dmg.c389 if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global) {
391 Safefree(mg->mg_ptr);
393 SvREFCNT_dec((SV*)mg->mg_ptr);
470 switch (*mg->mg_ptr) {
475 paren = atoi(mg->mg_ptr); /* $& is in [0] */
562 switch (*mg->mg_ptr) {
577 if (*(mg->mg_ptr+1) == '\0') {
638 else if (strEQ(mg->mg_ptr+1, "NCODING"))
654 if (*(mg->mg_ptr+1) == '\0') {
658 else if (strEQ(mg->mg_ptr, "\01
[all...]
H A Dthread.h415 #define MgMUTEXP(mg) (&((condpair_t *)(mg->mg_ptr))->mutex)
416 #define MgOWNERCONDP(mg) (&((condpair_t *)(mg->mg_ptr))->owner_cond)
417 #define MgCONDP(mg) (&((condpair_t *)(mg->mg_ptr))->cond)
418 #define MgOWNER(mg) ((condpair_t *)(mg->mg_ptr))->owner
H A Dgv.c1278 AMT *amtp = (AMT*)mg->mg_ptr;
1300 AMT *amtp = (mg) ? (AMT*)mg->mg_ptr: (AMT *) NULL;
1428 amtp = (AMT*)mg->mg_ptr;
1467 && (ocvp = cvp = (AMT_AMAGIC((AMT*)mg->mg_ptr)
1468 ? (oamtp = amtp = (AMT*)mg->mg_ptr)->table
1585 && (cvp = (AMT_AMAGIC((AMT*)mg->mg_ptr)
1586 ? (amtp = (AMT*)mg->mg_ptr)->table
H A Dsv.c3018 if (!mg->mg_ptr) {
3075 New(616, mg->mg_ptr, mg->mg_len + 1 + left, char);
3076 Copy("(?", mg->mg_ptr, 2, char);
3077 Copy(reflags, mg->mg_ptr+2, left, char);
3078 Copy(":", mg->mg_ptr+left+2, 1, char);
3079 Copy(re->precomp, mg->mg_ptr+3+left, re->prelen, char);
3081 mg->mg_ptr[mg->mg_len - 2] = '\n';
3082 mg->mg_ptr[mg->mg_len - 1] = ')';
3083 mg->mg_ptr[mg->mg_len] = 0;
3092 return mg->mg_ptr;
[all...]
H A Ddump.c897 if (mg->mg_ptr) {
898 Perl_dump_indent(aTHX_ level, file, " MG_PTR = 0x%"UVxf, PTR2UV(mg->mg_ptr));
902 PerlIO_printf(file, " %s", pv_display(sv, mg->mg_ptr, mg->mg_len, 0, pvlim));
908 do_sv_dump(level+2, file, (SV*)((mg)->mg_ptr), nest+1, maxnest, dumpops, pvlim); /* MG is already +1 */
916 STRLEN *cache = (STRLEN *) mg->mg_ptr;
H A Dperl.c1044 if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global
1046 Safefree(mg->mg_ptr);
H A Dutil.c2977 mg->mg_ptr = (char *)cp;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/ByteLoader/
H A Dbytecode.h125 #define BSET_mg_name(mg, arg) mg->mg_ptr = arg; mg->mg_len = bstate->bs_pv.xpv_cur
127 (mg->mg_ptr = (char*)SvREFCNT_inc((SV*)arg), \
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/
H A DStorable.xs2665 * We discriminate between \$h{key} and \$a[idx] via mg_ptr.
2668 if (mg->mg_ptr) {
2676 TRACEME(("store_tied_item: storing PTR 0x%"UVxf, PTR2UV(mg->mg_ptr)));
2678 if ((ret = store(aTHX_ cxt, (SV *) mg->mg_ptr))) /* Idem, for -Wall */

Completed in 60 milliseconds