Lines Matching refs:mg
365 MAGIC *mg = SvUTF8(sv) && SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_utf8) : NULL;
367 if (mg && mg->mg_len >= 0)
368 mg->mg_len++;
991 MAGIC *mg;
995 && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar)))
1009 PUSHs(SvTIED_obj((SV*)io, mg));
2952 MAGIC *mg;
2955 mg = mg_find(sv, PERL_MAGIC_mutex);
2956 if (!mg) {
2965 mg = mg_find(sv, PERL_MAGIC_mutex);
2966 if (mg) {
2976 mg = SvMAGIC(sv);
2977 mg->mg_ptr = (char *)cp;
2978 mg->mg_len = sizeof(cp);
2984 return mg;
2990 MAGIC *mg;
2998 mg = condpair_magic(sv);
2999 MUTEX_LOCK(MgMUTEXP(mg));
3000 if (MgOWNER(mg) == thr)
3001 MUTEX_UNLOCK(MgMUTEXP(mg));
3003 while (MgOWNER(mg))
3004 COND_WAIT(MgOWNERCONDP(mg), MgMUTEXP(mg));
3005 MgOWNER(mg) = thr;
3009 MUTEX_UNLOCK(MgMUTEXP(mg));