From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 8 Jul 2000 02:45:40 +0000 (+0000)
Subject: Fix a nit spotted by 64bit IRIX compilation: a (64-bit) pointer
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0d38c31f274a5fc45f9d969fecf7c6b86b0c2c98;p=p5sagit%2Fp5-mst-13.2.git

Fix a nit spotted by 64bit IRIX compilation: a (64-bit) pointer
was cast to an unsigned (32-bit) integer with wild abandon.

p4raw-id: //depot/cfgperl@6326
---

diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs
index 31e984f..7167a00 100644
--- a/ext/Devel/DProf/DProf.xs
+++ b/ext/Devel/DProf/DProf.xs
@@ -502,7 +502,7 @@ prof_record(pTHX)
 static void
 check_depth(pTHX_ void *foo)
 {
-    U32 need_depth = (U32)foo;
+    U32 need_depth = PTR2UV(foo);
     if (need_depth != g_depth) {
 	if (need_depth > g_depth) {
 	    warn("garbled call depth when profiling");