From: Robin Barker <RMBarker@cpan.org>
Date: Mon, 20 Jun 2005 13:47:37 +0000 (+0100)
Subject: FPTR2DPTR/DPTR2FPTR
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3fbfee08a74a1551b76e125a3e0da03f2884c21b;p=p5sagit%2Fp5-mst-13.2.git

FPTR2DPTR/DPTR2FPTR
Message-ID: <533D273D4014D411AB1D00062938C4D90849C6E4@hotel.npl.co.uk>

p4raw-id: //depot/perl@24915
---

diff --git a/perl.h b/perl.h
index d3f8329..262e00c 100644
--- a/perl.h
+++ b/perl.h
@@ -1515,8 +1515,8 @@ typedef UVTYPE UV;
  * The only feasible use is probably temporarily storing
  * function pointers in a data pointer (such as a void pointer). */
 
-#define DPTR2FPTR(t,p) ((t)PTR2UV(p)) /* data pointer to function pointer */
-#define FPTR2DPTR(t,p) ((t)PTR2UV(p)) /* function pointer to data pointer */
+#define DPTR2FPTR(t,p) ((t)(PTRV)(p)) /* data pointer to function pointer */
+#define FPTR2DPTR(t,p) ((t)(PTRV)(p)) /* function pointer to data pointer */
 
 #ifdef USE_LONG_DOUBLE
 #  if defined(HAS_LONG_DOUBLE) && LONG_DOUBLESIZE == DOUBLESIZE