Lines Matching refs:mg
0 /* mg.h
15 int (CPERLscope(*svt_get)) (pTHX_ SV *sv, MAGIC* mg);
16 int (CPERLscope(*svt_set)) (pTHX_ SV *sv, MAGIC* mg);
17 U32 (CPERLscope(*svt_len)) (pTHX_ SV *sv, MAGIC* mg);
18 int (CPERLscope(*svt_clear))(pTHX_ SV *sv, MAGIC* mg);
19 int (CPERLscope(*svt_free)) (pTHX_ SV *sv, MAGIC* mg);
20 int (CPERLscope(*svt_copy)) (pTHX_ SV *sv, MAGIC* mg,
22 int (CPERLscope(*svt_dup)) (pTHX_ MAGIC *mg, CLONE_PARAMS *param);
44 #define MgTAINTEDDIR(mg) (mg->mg_flags & MGf_TAINTEDDIR)
45 #define MgTAINTEDDIR_on(mg) (mg->mg_flags |= MGf_TAINTEDDIR)
46 #define MgTAINTEDDIR_off(mg) (mg->mg_flags &= ~MGf_TAINTEDDIR)
48 #define MgPV(mg,lp) ((((int)(lp = (mg)->mg_len)) == HEf_SVKEY) ? \
49 SvPV((SV*)((mg)->mg_ptr),lp) : \
50 (mg)->mg_ptr)
54 #define SvTIED_obj(sv,mg) \
55 ((mg)->mg_obj ? (mg)->mg_obj : sv_2mortal(newRV(sv)))