diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-10-31 08:59:56 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-10-31 08:59:56 +0000 |
| commit | 25f59a5e41d8ad4cca035052507fca0ebff1d7e6 (patch) | |
| tree | f501dfe7d7e6016424316cad495f937357e309ab /perl.h | |
| parent | 67bfc91867fd75eeb711a86bf337c87079d98807 (diff) | |
| parent | 6a18f72d4798d917d9d99f5cb0652f4a5ee06b54 (diff) | |
| download | perl-25f59a5e41d8ad4cca035052507fca0ebff1d7e6.tar.gz | |
Integrate mainline
p4raw-id: //depot/perlio@12788
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 */ |