Lines Matching defs:gp
99 register GP *gp;
112 Newz(602, gp, 1, GP);
113 GvGP(gv) = gp_ref(gp);
1215 Perl_gp_ref(pTHX_ GP *gp)
1217 if (!gp)
1219 gp->gp_refcnt++;
1220 if (gp->gp_cv) {
1221 if (gp->gp_cvgen) {
1223 SvREFCNT_dec(gp->gp_cv);
1224 gp->gp_cv = Nullcv;
1225 gp->gp_cvgen = 0;
1232 return gp;
1238 GP* gp;
1240 if (!gv || !(gp = GvGP(gv)))
1242 if (gp->gp_refcnt == 0) {
1248 if (gp->gp_cv) {
1252 if (--gp->gp_refcnt > 0) {
1253 if (gp->gp_egv == gv)
1254 gp->gp_egv = 0;
1258 if (gp->gp_sv) SvREFCNT_dec(gp->gp_sv);
1259 if (gp->gp_sv) SvREFCNT_dec(gp->gp_av);
1260 if (gp->gp_hv) {
1261 if (PL_stashcache && HvNAME(gp->gp_hv))
1263 HvNAME(gp->gp_hv), strlen(HvNAME(gp->gp_hv)),
1265 SvREFCNT_dec(gp->gp_hv);
1267 if (gp->gp_io) SvREFCNT_dec(gp->gp_io);
1268 if (gp->gp_cv) SvREFCNT_dec(gp->gp_cv);
1269 if (gp->gp_form) SvREFCNT_dec(gp->gp_form);
1271 Safefree(gp);