Change 32935 by [EMAIL PROTECTED] on 2008/01/10 17:27:39

        Fix bug picked up by printf format warnings - a cast is needed where
        UV is larger than U32 for dumping leaking scalars.

Affected files ...

... //depot/perl/perl.c#843 edit

Differences ...

==== //depot/perl/perl.c#843 (text) ====
Index: perl/perl.c
--- perl/perl.c#842~32918~      2008-01-09 07:34:42.000000000 -0800
+++ perl/perl.c 2008-01-10 09:27:39.000000000 -0800
@@ -1222,7 +1222,8 @@
                        " flags=0x%"UVxf
                        " refcnt=%"UVuf pTHX__FORMAT "\n"
                        "\tallocated at %s:%d %s %s%s\n",
-                       (void*)sv, sv->sv_flags, sv->sv_refcnt pTHX__VALUE,
+                       (void*)sv, (UV)sv->sv_flags, (UV)sv->sv_refcnt
+                       pTHX__VALUE,
                        sv->sv_debug_file ? sv->sv_debug_file : "(unknown)",
                        sv->sv_debug_line,
                        sv->sv_debug_inpad ? "for" : "by",
End of Patch.

Reply via email to