[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl5-changes
Subject:    Change 33596: Fix compiler warning about comparison of pointer types.
From:       Nicholas Clark <nwc10+p5p4 () colon ! colondot ! net>
Date:       2008-03-29 7:15:03
Message-ID: 20080329071503.0D68450010 () mx ! activestate ! com
[Download RAW message or body]

Change 33596 by nicholas@nicholas-bouvard on 2008/03/29 07:08:50

	Fix compiler warning about comparison of pointer types.

Affected files ...

... //depot/perl/sv.c#1531 edit

Differences ...

==== //depot/perl/sv.c#1531 (text) ====
Index: perl/sv.c
--- perl/sv.c#1530~33595~	2008-03-28 17:30:42.000000000 -0700
+++ perl/sv.c	2008-03-29 00:08:50.000000000 -0700
@@ -516,8 +516,10 @@
 do_clean_all(pTHX_ SV *const sv)
 {
     dVAR;
-    if (sv == PL_fdpid || sv == PL_strtab) /* don't clean pid table and strtab */
+    if (sv == (SV*) PL_fdpid || sv == (SV *)PL_strtab) {
+	/* don't clean pid table and strtab */
 	return;
+    }
     DEBUG_D((PerlIO_printf(Perl_debug_log, "Cleaning loops: SV at 0x%"UVxf"\n", PTR2UV(sv)) ));
     SvFLAGS(sv) |= SVf_BREAK;
     SvREFCNT_dec(sv);
End of Patch.
[prev in list] [next in list] [prev in thread] [next in thread]