Lines Matching defs:mg

3105 Perl_magic_freeovrld(pTHX_ SV *sv, MAGIC *mg)
3107     AMT * const amtp = (AMT*)mg->mg_ptr;
3149   MAGIC* const mg = mg_find((const SV *)stash, PERL_MAGIC_overload_table);
3157   if (mg) {
3158       const AMT * const amtp = (AMT*)mg->mg_ptr;
3324     MAGIC *mg;
3335     mg = mg_find((const SV *)stash, PERL_MAGIC_overload_table);
3336     if (!mg) {
3340         mg = mg_find((const SV *)stash, PERL_MAGIC_overload_table);
3342     assert(mg);
3343     amtp = (AMT*)mg->mg_ptr;
3469     MAGIC *mg = mg_find((const SV *)stash, PERL_MAGIC_overload_table);
3470     if (!mg)
3475     if (AMT_AMAGIC((AMT *)mg->mg_ptr)) {
3476         amtp = (AMT *)mg->mg_ptr;
3768   MAGIC *mg;
3791       && (mg = mg_find((const SV *)stash, PERL_MAGIC_overload_table))
3792       && (ocvp = cvp = (AMT_AMAGIC((AMT*)mg->mg_ptr)
3793                         ? (oamtp = amtp = (AMT*)mg->mg_ptr)->table
3918                && (mg = mg_find((const SV *)stash, PERL_MAGIC_overload_table))
3919                && (cvp = (AMT_AMAGIC((AMT*)mg->mg_ptr)
3920                           ? (amtp = (AMT*)mg->mg_ptr)->table
4354         MAGIC *mg;
4358         for (mg = SvMAGIC(gv); mg; mg = mg->mg_moremagic) {
4359             if (mg->mg_type != PERL_MAGIC_backref)