[svn:ponie] rev 287 - trunk/perl

Author: nicholas
Date: Thu Jun 16 01:38:13 2005
New Revision: 287

Modified:
   trunk/perl/sv.h
Log:
Avoid lost of warnings about casting pointers to integers of a different size
when compiling with a configuration with -Duse64bitint (eg by using FreeBSD's
/usr/bin/perl)


Modified: trunk/perl/sv.h
==============================================================================
--- trunk/perl/sv.h	(original)
+++ trunk/perl/sv.h	Thu Jun 16 01:38:13 2005
@@ -1492,7 +1492,7 @@ struct clone_params {
 */
 #if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
 /* Some things are passing *sp++ to SvANY, often indirectly.  */
-#define MUMBLE(p) ({void *_p = (void *)(p); (void *)(_p?~(UV)_p:0);})
+#define MUMBLE(p) ({void *_p = (void *)(p); (void *)(_p?~(size_t)_p:0);})
 #endif
 #endif