diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-05-02 11:25:55 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-02 10:16:23 +0000 |
| commit | 55662e2777d994718a43f1019ada9071e032971d (patch) | |
| tree | de7318f501cc6af9262925cd3edc60b86b1d8caa /toke.c | |
| parent | 31bb23b166683ca82ab1aa9af0910e80eb18a1d3 (diff) | |
| download | perl-55662e2777d994718a43f1019ada9071e032971d.tar.gz | |
toke.c: function pointer to data pointer
Message-Id: <200605020525.k425Ptik165705@kosh.hut.fi>
p4raw-id: //depot/perl@28055
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 12 |
1 files changed, 8 insertions, 4 deletions
@@ -2592,7 +2592,8 @@ Perl_filter_add(pTHX_ filter_t funcp, SV *datasv) IoANY(datasv) = FPTR2DPTR(void *, funcp); /* stash funcp into spare field */ IoFLAGS(datasv) |= IOf_FAKE_DIRP; DEBUG_P(PerlIO_printf(Perl_debug_log, "filter_add func %p (%s)\n", - IoANY(datasv), SvPV_nolen(datasv))); + FPTR2DPTR(void *, IoANY(datasv)), + SvPV_nolen(datasv))); av_unshift(PL_rsfp_filters, 1); av_store(PL_rsfp_filters, 0, datasv) ; return(datasv); @@ -2607,7 +2608,8 @@ Perl_filter_del(pTHX_ filter_t funcp) SV *datasv; #ifdef DEBUGGING - DEBUG_P(PerlIO_printf(Perl_debug_log, "filter_del func %p", (void*)FPTR2DPTR(XPVIO *, funcp))); + DEBUG_P(PerlIO_printf(Perl_debug_log, "filter_del func %p", + FPTR2DPTR(void*, funcp))); #endif if (!PL_rsfp_filters || AvFILLp(PL_rsfp_filters)<0) return; @@ -12407,7 +12409,8 @@ utf16_textfilter(pTHX_ int idx, SV *sv, int maxlen) const I32 count = FILTER_READ(idx+1, sv, maxlen); DEBUG_P(PerlIO_printf(Perl_debug_log, "utf16_textfilter(%p): %d %d (%d)\n", - (void*)utf16_textfilter, idx, maxlen, (int) count)); + FPTR2DPTR(void *, utf16_textfilter), + idx, maxlen, (int) count)); if (count) { U8* tmps; I32 newlen; @@ -12429,7 +12432,8 @@ utf16rev_textfilter(pTHX_ int idx, SV *sv, int maxlen) const I32 count = FILTER_READ(idx+1, sv, maxlen); DEBUG_P(PerlIO_printf(Perl_debug_log, "utf16rev_textfilter(%p): %d %d (%d)\n", - (void*)utf16rev_textfilter, idx, maxlen, (int) count)); + FPTR2DPTR(void *, utf16rev_textfilter), + idx, maxlen, (int) count)); if (count) { U8* tmps; I32 newlen; |