diff options
| author | Richard Soderberg <p5-authors@crystalflame.net> | 2001-10-29 09:01:10 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-30 01:19:13 +0000 |
| commit | ec0e15e016cae0496f8b2a12d5616b04cc73d478 (patch) | |
| tree | f2ddef0f4061bd659fa490afdabae9d48c5e3b05 /perl.h | |
| parent | 4bbed6058f6ab95730a0ad993e924e2008950e18 (diff) | |
| download | perl-ec0e15e016cae0496f8b2a12d5616b04cc73d478.tar.gz | |
Mommy, what's a pointer cast?
Message-Id: <200110300101.RAA31561@oregonnet.com>
(the perl.h part)
p4raw-id: //depot/perl@12772
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 */ |