Change 18558 by jhi@kosh on 2003/01/22 13:05:27
Subject: Re: slight tweak to -DR flag - display whether on tmps stack
From: Dave Mitchell <[EMAIL PROTECTED]>
Date: Sun, 19 Jan 2003 17:22:05 +0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/dump.c#133 edit
Differences ...
==== //depot/perl/dump.c#133 (text) ====
Index: perl/dump.c
--- perl/dump.c#132~18530~ Mon Jan 20 17:37:03 2003
+++ perl/dump.c Wed Jan 22 05:05:27 2003
@@ -194,10 +194,22 @@
sv_catpv(t, "(");
unref++;
}
- else if (DEBUG_R_TEST_ && SvREFCNT(sv) > 1) {
- Perl_sv_catpvf(aTHX_ t, "<%"UVuf">", (UV)SvREFCNT(sv));
+ else if (DEBUG_R_TEST_) {
+ int is_tmp = 0;
+ I32 ix;
+ /* is this SV on the tmps stack? */
+ for (ix=PL_tmps_ix; ix>=0; ix--) {
+ if (PL_tmps_stack[ix] == sv) {
+ is_tmp = 1;
+ break;
+ }
+ }
+ if (SvREFCNT(sv) > 1)
+ Perl_sv_catpvf(aTHX_ t, "<%"UVuf"%s>", (UV)SvREFCNT(sv),
+ is_tmp ? "T" : "");
+ else if (is_tmp)
+ sv_catpv(t, "<T>");
}
-
if (SvROK(sv)) {
sv_catpv(t, "\\");
End of Patch.
