Searched refs:mg_ptr (Results 1 - 10 of 10) sorted by relevance
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | mg.h | 33 char* mg_ptr; member in struct:magic 49 SvPV((SV*)((mg)->mg_ptr),lp) : \ 50 (mg)->mg_ptr)
|
H A D | mg.c | 389 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 D | thread.h | 415 #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 D | gv.c | 1278 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 D | sv.c | 3018 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 D | dump.c | 897 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 D | perl.c | 1044 if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global 1046 Safefree(mg->mg_ptr);
|
H A D | util.c | 2977 mg->mg_ptr = (char *)cp;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/ByteLoader/ |
H A D | bytecode.h | 125 #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 D | Storable.xs | 2665 * 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