From: Richard Soderberg <p5-authors@crystalflame.net>
Date: Mon, 29 Oct 2001 17:01:10 +0000 (-0800)
Subject: Mommy, what's a pointer cast?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ec0e15e016cae0496f8b2a12d5616b04cc73d478;p=p5sagit%2Fp5-mst-13.2.git

Mommy, what's a pointer cast?
Message-Id: <200110300101.RAA31561@oregonnet.com>

(the perl.h part)

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

diff --git a/perl.h b/perl.h
index 0d5f1ce..c7a94c2 100644
--- a/perl.h
+++ b/perl.h
@@ -3815,7 +3815,7 @@ typedef struct am_table_short AMTS;
  * interpreter-local data. */
 #define dMY_CXT	\
 	dMY_CXT_SV;							\
-	my_cxt_t *my_cxtp = (my_cxt_t*)SvUV(my_cxt_sv)
+	my_cxt_t *my_cxtp = INT2PTR(my_cxt_t*, SvUV(my_cxt_sv))
 
 /* Creates and zeroes the per-interpreter data.
  * (We allocate my_cxtp in a Perl SV so that it will be released when
@@ -3825,7 +3825,7 @@ typedef struct am_table_short AMTS;
 	/* newSV() allocates one more than needed */			\
 	my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
 	Zero(my_cxtp, 1, my_cxt_t);					\
-	sv_setuv(my_cxt_sv, (UV)my_cxtp)
+	sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
 
 /* This macro must be used to access members of the my_cxt_t structure.
  * e.g. MYCXT.some_data */