Lines Matching refs:sv
74 SV *sv = sv_newmortal();
76 gv_fullname3(sv, gv, Nullch);
77 Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nSUB %s = ", SvPVX(sv));
91 SV *sv = sv_newmortal();
93 gv_fullname3(sv, gv, Nullch);
94 Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nFORMAT %s = ", SvPVX(sv));
145 Perl_sv_peek(pTHX_ SV *sv)
153 if (!sv) {
157 else if (sv == (SV*)0x55555555 || SvTYPE(sv) == 'U') {
161 else if (sv == &PL_sv_undef || sv == &PL_sv_no || sv == &PL_sv_yes || sv == &PL_sv_placeholder) {
162 if (sv == &PL_sv_undef) {
164 if (!(SvFLAGS(sv) & (SVf_OK|SVf_OOK|SVs_OBJECT|
166 SvREADONLY(sv))
169 else if (sv == &PL_sv_no) {
171 if (!(SvFLAGS(sv) & (SVf_ROK|SVf_OOK|SVs_OBJECT|
173 !(~SvFLAGS(sv) & (SVf_POK|SVf_NOK|SVf_READONLY|
175 SvCUR(sv) == 0 &&
176 SvNVX(sv) == 0.0)
179 else if (sv == &PL_sv_yes) {
181 if (!(SvFLAGS(sv) & (SVf_ROK|SVf_OOK|SVs_OBJECT|
183 !(~SvFLAGS(sv) & (SVf_POK|SVf_NOK|SVf_READONLY|
185 SvCUR(sv) == 1 &&
186 SvPVX(sv) && *SvPVX(sv) == '1' &&
187 SvNVX(sv) == 1.0)
192 if (!(SvFLAGS(sv) & (SVf_OK|SVf_OOK|SVs_OBJECT|
194 SvREADONLY(sv))
199 else if (SvREFCNT(sv) == 0) {
208 if (PL_tmps_stack[ix] == sv) {
213 if (SvREFCNT(sv) > 1)
214 Perl_sv_catpvf(aTHX_ t, "<%"UVuf"%s>", (UV)SvREFCNT(sv),
220 if (SvROK(sv)) {
228 sv = (SV*)SvRV(sv);
231 switch (SvTYPE(sv)) {
270 if (CvGV(sv))
271 Perl_sv_catpvf(aTHX_ t, "CV(%s)", GvNAME(CvGV(sv)));
289 if (SvPOKp(sv)) {
290 if (!SvPVX(sv))
295 if (SvOOK(sv))
296 Perl_sv_catpvf(aTHX_ t, "[%s]", pv_display(tmp, SvPVX(sv)-SvIVX(sv), SvIVX(sv), 0, 127));
297 Perl_sv_catpvf(aTHX_ t, "%s)", pv_display(tmp, SvPVX(sv), SvCUR(sv), SvLEN(sv), 127));
298 if (SvUTF8(sv))
300 sv_uni_display(tmp, sv, 8 * sv_len_utf8(sv),
305 else if (SvNOKp(sv)) {
307 Perl_sv_catpvf(aTHX_ t, "(%"NVgf")",SvNVX(sv));
310 else if (SvIOKp(sv)) {
311 if (SvIsUV(sv))
312 Perl_sv_catpvf(aTHX_ t, "(%"UVuf")", (UV)SvUVX(sv));
314 Perl_sv_catpvf(aTHX_ t, "(%"IVdf")", (IV)SvIVX(sv));
745 SV *sv;
751 sv = sv_newmortal();
753 gv_fullname3(sv, gv, Nullch);
754 Perl_dump_indent(aTHX_ 1, Perl_debug_log, "GV_NAME = %s", SvPVX(sv));
756 gv_efullname3(sv, GvEGV(gv), Nullch);
757 Perl_dump_indent(aTHX_ 1, Perl_debug_log, "-> %s", SvPVX(sv));
769 { PERL_MAGIC_sv, "sv(\\0)" },
821 if (v == &PL_vtbl_sv) s = "sv";
901 SV *sv = newSVpvn("", 0);
902 PerlIO_printf(file, " %s", pv_display(sv, mg->mg_ptr, mg->mg_len, 0, pvlim));
903 SvREFCNT_dec(sv);
937 Perl_do_hv_dump(pTHX_ I32 level, PerlIO *file, char *name, HV *sv)
939 Perl_dump_indent(aTHX_ level, file, "%s = 0x%"UVxf, name, PTR2UV(sv));
940 if (sv && HvNAME(sv))
941 PerlIO_printf(file, "\t\"%s\"\n", HvNAME(sv));
947 Perl_do_gv_dump(pTHX_ I32 level, PerlIO *file, char *name, GV *sv)
949 Perl_dump_indent(aTHX_ level, file, "%s = 0x%"UVxf, name, PTR2UV(sv));
950 if (sv && GvNAME(sv))
951 PerlIO_printf(file, "\t\"%s\"\n", GvNAME(sv));
957 Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, char *name, GV *sv)
959 Perl_dump_indent(aTHX_ level, file, "%s = 0x%"UVxf, name, PTR2UV(sv));
960 if (sv && GvNAME(sv)) {
962 if (GvSTASH(sv))
963 PerlIO_printf(file, "%s\" :: \"", HvNAME(GvSTASH(sv)));
964 PerlIO_printf(file, "%s\"\n", GvNAME(sv));
971 Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
978 if (!sv) {
983 flags = SvFLAGS(sv);
984 type = SvTYPE(sv);
988 PTR2UV(SvANY(sv)), PTR2UV(sv),
989 (int)(PL_dumpindent*level), "", (IV)SvREFCNT(sv),
1006 if (SvWEAKREF(sv)) sv_catpv(d, "WEAKREF,");
1022 if (CvANON(sv)) sv_catpv(d, "ANON,");
1023 if (CvUNIQUE(sv)) sv_catpv(d, "UNIQUE,");
1024 if (CvCLONE(sv)) sv_catpv(d, "CLONE,");
1025 if (CvCLONED(sv)) sv_catpv(d, "CLONED,");
1026 if (CvCONST(sv)) sv_catpv(d, "CONST,");
1027 if (CvNODEBUG(sv)) sv_catpv(d, "NODEBUG,");
1028 if (SvCOMPILED(sv)) sv_catpv(d, "COMPILED,");
1029 if (CvLVALUE(sv)) sv_catpv(d, "LVALUE,");
1030 if (CvMETHOD(sv)) sv_catpv(d, "METHOD,");
1031 if (CvLOCKED(sv)) sv_catpv(d, "LOCKED,");
1032 if (CvWEAKOUTSIDE(sv)) sv_catpv(d, "WEAKOUTSIDE,");
1035 if (HvSHAREKEYS(sv)) sv_catpv(d, "SHAREKEYS,");
1036 if (HvLAZYDEL(sv)) sv_catpv(d, "LAZYDEL,");
1037 if (HvHASKFLAGS(sv)) sv_catpv(d, "HASKFLAGS,");
1038 if (HvREHASH(sv)) sv_catpv(d, "REHASH,");
1041 if (GvINTRO(sv)) sv_catpv(d, "INTRO,");
1042 if (GvMULTI(sv)) sv_catpv(d, "MULTI,");
1043 if (GvUNIQUE(sv)) sv_catpv(d, "UNIQUE,");
1044 if (GvASSUMECV(sv)) sv_catpv(d, "ASSUMECV,");
1045 if (GvIN_PAD(sv)) sv_catpv(d, "IN_PAD,");
1047 if (GvIMPORTED(sv)) {
1049 if (GvIMPORTED(sv) == GVf_IMPORTED)
1053 if (GvIMPORTED_SV(sv)) sv_catpv(d, " SV");
1054 if (GvIMPORTED_AV(sv)) sv_catpv(d, " AV");
1055 if (GvIMPORTED_HV(sv)) sv_catpv(d, " HV");
1056 if (GvIMPORTED_CV(sv)) sv_catpv(d, " CV");
1062 if (SvEVALED(sv)) sv_catpv(d, "EVALED,");
1063 if (SvIsUV(sv)) sv_catpv(d, "IsUV,");
1066 if (SvTAIL(sv)) sv_catpv(d, "TAIL,");
1067 if (SvVALID(sv)) sv_catpv(d, "VALID,");
1074 if ((SvPOK(sv) || SvPOKp(sv)) && SvUTF8(sv))
1139 if (SvIsUV(sv))
1140 Perl_dump_indent(aTHX_ level, file, " UV = %"UVuf, (UV)SvUVX(sv));
1142 Perl_dump_indent(aTHX_ level, file, " IV = %"IVdf, (IV)SvIVX(sv));
1143 if (SvOOK(sv))
1151 Perl_dump_indent(aTHX_ level, file, " NV = %.*" PERL_PRIgldbl "\n", LDBL_DIG, SvNVX(sv));
1153 Perl_dump_indent(aTHX_ level, file, " NV = %.*g\n", DBL_DIG, SvNVX(sv));
1157 if (SvROK(sv)) {
1158 Perl_dump_indent(aTHX_ level, file, " RV = 0x%"UVxf"\n", PTR2UV(SvRV(sv)));
1160 do_sv_dump(level+1, file, SvRV(sv), nest+1, maxnest, dumpops, pvlim);
1167 if (SvPVX(sv)) {
1168 Perl_dump_indent(aTHX_ level, file," PV = 0x%"UVxf" ", PTR2UV(SvPVX(sv)));
1169 if (SvOOK(sv))
1170 PerlIO_printf(file, "( %s . ) ", pv_display(d, SvPVX(sv)-SvIVX(sv), SvIVX(sv), 0, pvlim));
1171 PerlIO_printf(file, "%s", pv_display(d, SvPVX(sv), SvCUR(sv), SvLEN(sv), pvlim));
1172 if (SvUTF8(sv)) /* the 8? \x{....} */
1173 PerlIO_printf(file, " [UTF8 \"%s\"]", sv_uni_display(d, sv, 8 * sv_len_utf8(sv), UNI_DISPLAY_QQ));
1175 Perl_dump_indent(aTHX_ level, file, " CUR = %"IVdf"\n", (IV)SvCUR(sv));
1176 Perl_dump_indent(aTHX_ level, file, " LEN = %"IVdf"\n", (IV)SvLEN(sv));
1182 if (SvMAGIC(sv))
1183 do_magic_dump(level, file, SvMAGIC(sv), nest, maxnest, dumpops, pvlim);
1184 if (SvSTASH(sv))
1185 do_hv_dump(level, file, " STASH", SvSTASH(sv));
1189 Perl_dump_indent(aTHX_ level, file, " TYPE = %c\n", LvTYPE(sv));
1190 Perl_dump_indent(aTHX_ level, file, " TARGOFF = %"IVdf"\n", (IV)LvTARGOFF(sv));
1191 Perl_dump_indent(aTHX_ level, file, " TARGLEN = %"IVdf"\n", (IV)LvTARGLEN(sv));
1192 Perl_dump_indent(aTHX_ level, file, " TARG = 0x%"UVxf"\n", PTR2UV(LvTARG(sv)));
1193 if (LvTYPE(sv) != 't' && LvTYPE(sv) != 'T')
1194 do_sv_dump(level+1, file, LvTARG(sv), nest+1, maxnest,
1198 Perl_dump_indent(aTHX_ level, file, " ARRAY = 0x%"UVxf, PTR2UV(AvARRAY(sv)));
1199 if (AvARRAY(sv) != AvALLOC(sv)) {
1200 PerlIO_printf(file, " (offset=%"IVdf")\n", (IV)(AvARRAY(sv) - AvALLOC(sv)));
1201 Perl_dump_indent(aTHX_ level, file, " ALLOC = 0x%"UVxf"\n", PTR2UV(AvALLOC(sv)));
1205 Perl_dump_indent(aTHX_ level, file, " FILL = %"IVdf"\n", (IV)AvFILLp(sv));
1206 Perl_dump_indent(aTHX_ level, file, " MAX = %"IVdf"\n", (IV)AvMAX(sv));
1207 Perl_dump_indent(aTHX_ level, file, " ARYLEN = 0x%"UVxf"\n", PTR2UV(AvARYLEN(sv)));
1208 flags = AvFLAGS(sv);
1214 if (nest < maxnest && av_len((AV*)sv) >= 0) {
1216 for (count = 0; count <= av_len((AV*)sv) && count < maxnest; count++) {
1217 SV** elt = av_fetch((AV*)sv,count,0);
1226 Perl_dump_indent(aTHX_ level, file, " ARRAY = 0x%"UVxf, PTR2UV(HvARRAY(sv)));
1227 if (HvARRAY(sv) && HvKEYS(sv)) {
1233 U32 pow2 = 2, keys = HvKEYS(sv);
1238 for (i = 0; (STRLEN)i <= HvMAX(sv); i++) {
1240 for (h = HvARRAY(sv)[i]; h; h = HeNEXT(h))
1274 theoret = HvKEYS(sv);
1280 Perl_dump_indent(aTHX_ level, file, " KEYS = %"IVdf"\n", (IV)HvKEYS(sv));
1281 Perl_dump_indent(aTHX_ level, file, " FILL = %"IVdf"\n", (IV)HvFILL(sv));
1282 Perl_dump_indent(aTHX_ level, file, " MAX = %"IVdf"\n", (IV)HvMAX(sv));
1283 Perl_dump_indent(aTHX_ level, file, " RITER = %"IVdf"\n", (IV)HvRITER(sv));
1284 Perl_dump_indent(aTHX_ level, file, " EITER = 0x%"UVxf"\n", PTR2UV(HvEITER(sv)));
1285 if (HvPMROOT(sv))
1286 Perl_dump_indent(aTHX_ level, file, " PMROOT = 0x%"UVxf"\n", PTR2UV(HvPMROOT(sv)));
1287 if (HvNAME(sv))
1288 Perl_dump_indent(aTHX_ level, file, " NAME = \"%s\"\n", HvNAME(sv));
1289 if (nest < maxnest && !HvEITER(sv)) { /* Try to preserve iterator */
1291 HV *hv = (HV*)sv;
1317 if (SvPOK(sv))
1318 Perl_dump_indent(aTHX_ level, file, " PROTOTYPE = \"%s\"\n", SvPV_nolen(sv));
1321 do_hv_dump(level, file, " COMP_STASH", CvSTASH(sv));
1322 if (CvSTART(sv))
1323 Perl_dump_indent(aTHX_ level, file, " START = 0x%"UVxf" ===> %"IVdf"\n", PTR2UV(CvSTART(sv)), (IV)CvSTART(sv)->op_seq);
1324 Perl_dump_indent(aTHX_ level, file, " ROOT = 0x%"UVxf"\n", PTR2UV(CvROOT(sv)));
1325 if (CvROOT(sv) && dumpops)
1326 do_op_dump(level+1, file, CvROOT(sv));
1327 Perl_dump_indent(aTHX_ level, file, " XSUB = 0x%"UVxf"\n", PTR2UV(CvXSUB(sv)));
1328 Perl_dump_indent(aTHX_ level, file, " XSUBANY = %"IVdf"\n", (IV)CvXSUBANY(sv).any_i32);
1329 do_gvgv_dump(level, file, " GVGV::GV", CvGV(sv));
1330 Perl_dump_indent(aTHX_ level, file, " FILE = \"%s\"\n", CvFILE(sv));
1331 Perl_dump_indent(aTHX_ level, file, " DEPTH = %"IVdf"\n", (IV)CvDEPTH(sv));
1333 Perl_dump_indent(aTHX_ level, file, " MUTEXP = 0x%"UVxf"\n", PTR2UV(CvMUTEXP(sv)));
1334 Perl_dump_indent(aTHX_ level, file, " OWNER = 0x%"UVxf"\n", PTR2UV(CvOWNER(sv)));
1336 Perl_dump_indent(aTHX_ level, file, " FLAGS = 0x%"UVxf"\n", (UV)CvFLAGS(sv));
1337 Perl_dump_indent(aTHX_ level, file, " OUTSIDE_SEQ = %"UVuf"\n", (UV)CvOUTSIDE_SEQ(sv));
1339 Perl_dump_indent(aTHX_ level, file, " LINES = %"IVdf"\n", (IV)FmLINES(sv));
1340 Perl_dump_indent(aTHX_ level, file, " PADLIST = 0x%"UVxf"\n", PTR2UV(CvPADLIST(sv)));
1342 do_dump_pad(level+1, file, CvPADLIST(sv), 0);
1345 CV *outside = CvOUTSIDE(sv);
1354 if (nest < maxnest && (CvCLONE(sv) || CvCLONED(sv)))
1355 do_sv_dump(level+1, file, (SV*)CvOUTSIDE(sv), nest+1, maxnest, dumpops, pvlim);
1358 Perl_dump_indent(aTHX_ level, file, " NAME = \"%s\"\n", GvNAME(sv));
1359 Perl_dump_indent(aTHX_ level, file, " NAMELEN = %"IVdf"\n", (IV)GvNAMELEN(sv));
1360 do_hv_dump (level, file, " GvSTASH", GvSTASH(sv));
1361 Perl_dump_indent(aTHX_ level, file, " GP = 0x%"UVxf"\n", PTR2UV(GvGP(sv)));
1362 if (!GvGP(sv))
1364 Perl_dump_indent(aTHX_ level, file, " SV = 0x%"UVxf"\n", PTR2UV(GvSV(sv)));
1365 Perl_dump_indent(aTHX_ level, file, " REFCNT = %"IVdf"\n", (IV)GvREFCNT(sv));
1366 Perl_dump_indent(aTHX_ level, file, " IO = 0x%"UVxf"\n", PTR2UV(GvIOp(sv)));
1367 Perl_dump_indent(aTHX_ level, file, " FORM = 0x%"UVxf" \n", PTR2UV(GvFORM(sv)));
1368 Perl_dump_indent(aTHX_ level, file, " AV = 0x%"UVxf"\n", PTR2UV(GvAV(sv)));
1369 Perl_dump_indent(aTHX_ level, file, " HV = 0x%"UVxf"\n", PTR2UV(GvHV(sv)));
1370 Perl_dump_indent(aTHX_ level, file, " CV = 0x%"UVxf"\n", PTR2UV(GvCV(sv)));
1371 Perl_dump_indent(aTHX_ level, file, " CVGEN = 0x%"UVxf"\n", (UV)GvCVGEN(sv));
1372 Perl_dump_indent(aTHX_ level, file, " GPFLAGS = 0x%"UVxf"\n", (UV)GvGPFLAGS(sv));
1373 Perl_dump_indent(aTHX_ level, file, " LINE = %"IVdf"\n", (IV)GvLINE(sv));
1374 Perl_dump_indent(aTHX_ level, file, " FILE = \"%s\"\n", GvFILE(sv));
1375 Perl_dump_indent(aTHX_ level, file, " FLAGS = 0x%"UVxf"\n", (UV)GvFLAGS(sv));
1376 do_gv_dump (level, file, " EGV", GvEGV(sv));
1379 Perl_dump_indent(aTHX_ level, file, " IFP = 0x%"UVxf"\n", PTR2UV(IoIFP(sv)));
1380 Perl_dump_indent(aTHX_ level, file, " OFP = 0x%"UVxf"\n", PTR2UV(IoOFP(sv)));
1381 Perl_dump_indent(aTHX_ level, file, " DIRP = 0x%"UVxf"\n", PTR2UV(IoDIRP(sv)));
1382 Perl_dump_indent(aTHX_ level, file, " LINES = %"IVdf"\n", (IV)IoLINES(sv));
1383 Perl_dump_indent(aTHX_ level, file, " PAGE = %"IVdf"\n", (IV)IoPAGE(sv));
1384 Perl_dump_indent(aTHX_ level, file, " PAGE_LEN = %"IVdf"\n", (IV)IoPAGE_LEN(sv));
1385 Perl_dump_indent(aTHX_ level, file, " LINES_LEFT = %"IVdf"\n", (IV)IoLINES_LEFT(sv));
1386 if (IoTOP_NAME(sv))
1387 Perl_dump_indent(aTHX_ level, file, " TOP_NAME = \"%s\"\n", IoTOP_NAME(sv));
1388 do_gv_dump (level, file, " TOP_GV", IoTOP_GV(sv));
1389 if (IoFMT_NAME(sv))
1390 Perl_dump_indent(aTHX_ level, file, " FMT_NAME = \"%s\"\n", IoFMT_NAME(sv));
1391 do_gv_dump (level, file, " FMT_GV", IoFMT_GV(sv));
1392 if (IoBOTTOM_NAME(sv))
1393 Perl_dump_indent(aTHX_ level, file, " BOTTOM_NAME = \"%s\"\n", IoBOTTOM_NAME(sv));
1394 do_gv_dump (level, file, " BOTTOM_GV", IoBOTTOM_GV(sv));
1395 Perl_dump_indent(aTHX_ level, file, " SUBPROCESS = %"IVdf"\n", (IV)IoSUBPROCESS(sv));
1396 if (isPRINT(IoTYPE(sv)))
1397 Perl_dump_indent(aTHX_ level, file, " TYPE = '%c'\n", IoTYPE(sv));
1399 Perl_dump_indent(aTHX_ level, file, " TYPE = '\\%o'\n", IoTYPE(sv));
1400 Perl_dump_indent(aTHX_ level, file, " FLAGS = 0x%"UVxf"\n", (UV)IoFLAGS(sv));
1407 Perl_sv_dump(pTHX_ SV *sv)
1409 do_sv_dump(0, Perl_debug_log, sv, 0, 0, 0, 0);
1453 SV *sv;
1466 sv = NEWSV(0,0);
1467 gv_fullname3(sv, cGVOPo_gv, Nullch);
1468 PerlIO_printf(Perl_debug_log, "(%s)", SvPV_nolen(sv));
1469 SvREFCNT_dec(sv);
1482 sv = *av_fetch(comppad, o->op_targ, FALSE);
1484 sv = Nullsv;
1485 if (sv)
1486 PerlIO_printf(Perl_debug_log, "(%s)", SvPV_nolen(sv));