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 (file)
--- 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