Lines Matching defs:mg
320 MAGIC* mg;
323 mg = mg_find(sv, PERL_MAGIC_regex_global);
324 if (mg && mg->mg_len >= 0) {
325 I32 i = mg->mg_len;
3872 MAGIC *mg;
3876 ((mg = mg_find((SV*)hv, PERL_MAGIC_tied))
3880 && (stash = SvSTASH(SvRV(SvTIED_obj((SV*)hv, mg))))
4045 MAGIC *mg;
4047 if ((mg = SvTIED_mg((SV*)ary, PERL_MAGIC_tied))) {
4048 *MARK-- = SvTIED_obj((SV*)ary, mg);
4242 MAGIC *mg;
4244 if ((mg = SvTIED_mg((SV*)ary, PERL_MAGIC_tied))) {
4245 *MARK-- = SvTIED_obj((SV*)ary, mg);
4298 MAGIC *mg;
4300 if ((mg = SvTIED_mg((SV*)ary, PERL_MAGIC_tied))) {
4301 *MARK-- = SvTIED_obj((SV*)ary, mg);
4416 MAGIC *mg = (MAGIC *) NULL;
4453 if ((mg = SvTIED_mg((SV*)ary, PERL_MAGIC_tied))) {
4455 XPUSHs(SvTIED_obj((SV*)ary, mg));
4662 if (!mg) {
4708 MAGIC *mg = mg_find((SV*)svv, PERL_MAGIC_mutex);
4710 if (!mg)
4712 MUTEX_LOCK(MgMUTEXP(mg));
4713 if (MgOWNER(mg) != thr)
4715 MgOWNER(mg) = 0;
4716 COND_SIGNAL(MgOWNERCONDP(mg));
4719 MUTEX_UNLOCK(MgMUTEXP(mg));