Lines Matching defs:mg
72 MAGIC *mg;
77 for ( mg = SvMAGIC(item); mg; mg = mg->mg_moremagic ) {
78 if ((mg->mg_type == PERL_MAGIC_ext) &&
79 (mg->mg_private == HUF_IDCACHE)
81 return mg->mg_obj;
88 mg = sv_magicext(item, id, PERL_MAGIC_ext, NULL, NULL, 0);
89 mg->mg_private = HUF_IDCACHE;
116 MAGIC* mg;
117 if (trigger && (mg = mg_find(trigger, PERL_MAGIC_uvar)))
118 return (AV*)mg->mg_obj;
207 MAGIC* mg = mg_find(field, PERL_MAGIC_uvar);
209 if (mg && (keysv = mg->mg_obj)) {
212 mg->mg_obj = ob_id; /* key replacement */
230 MAGIC* mg = mg_find(field, PERL_MAGIC_uvar);
233 if (mg && (keysv = mg->mg_obj)) {
235 mg->mg_obj = HUF_obj_id(aTHX_ keysv); /* key replacement */
269 MAGIC* mg;
271 if ((mg = mg_find((SV*)hash, PERL_MAGIC_uvar)) &&
272 (uf = (struct ufuncs *)mg->mg_ptr) &&
326 MAGIC *mg;
331 for (mg = SvMAGIC(obj); mg; mg = mg->mg_moremagic) {
332 if ((mg->mg_type == PERL_MAGIC_ext) &&
333 (mg->mg_private == HUF_IDCACHE)
335 mg->mg_obj = new_id;