Lines Matching defs:mg
503 MAGIC* mg;
504 if ((mg = mg_find((const SV *)hv, PERL_MAGIC_uvar))) {
505 struct ufuncs * const uf = (struct ufuncs *)mg->mg_ptr;
507 SV* obj = mg->mg_obj;
515 mg->mg_obj = keysv; /* pass key */
517 magic_getuvar(MUTABLE_SV(hv), mg);
518 keysv = mg->mg_obj; /* may have changed */
519 mg->mg_obj = obj;
660 MAGIC * const mg = mg_find(sv, PERL_MAGIC_tiedelem);
661 if (mg)
662 magic_existspack(svret, mg);
1076 const MAGIC *mg = SvMAGIC(hv);
1082 while (mg) {
1083 if (isUPPER(mg->mg_type)) {
1085 if (mg->mg_type == PERL_MAGIC_tied) {
1090 mg = mg->mg_moremagic;
1118 MAGIC * const mg = mg_find((const SV *)hv, PERL_MAGIC_tied);
1119 if (mg)
1120 return magic_scalarpack(hv, mg);
1234 MAGIC * const mg = mg_find((const SV *)hv, PERL_MAGIC_tied);
1235 if (mg)
1236 return magic_scalarpack(hv, mg);
1483 MAGIC *mg = mg_find((SV*)isa, PERL_MAGIC_isa);
1486 if (mg) {
1487 if (mg->mg_obj == (SV*)gv) {
1512 AV *av = (AV*)mg->mg_obj;
1517 assert(SvTYPE(mg->mg_obj) == SVt_PVAV);
1524 mg->mg_obj = NULL;
2933 MAGIC* mg;
2995 if ( ( mg = mg_find((const SV *)hv, PERL_MAGIC_tied) ) ) {
3015 magic_nextpack(MUTABLE_SV(hv),mg,key);
3453 MAGIC *mg = mg_find((const SV *)hv, PERL_MAGIC_rhash);
3457 if (!mg) {
3458 mg = sv_magicext(MUTABLE_SV(hv), 0, PERL_MAGIC_rhash, 0, 0, 0);
3460 if (!mg) {
3464 return &(mg->mg_len);
3478 MAGIC * const mg = mg_find((const SV *)hv, PERL_MAGIC_rhash);
3483 return mg ? mg->mg_len : 0;
3497 MAGIC * const mg = mg_find((const SV *)hv, PERL_MAGIC_rhash);
3501 if (mg) {
3502 mg->mg_len = ph;