diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-27 14:28:49 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-27 14:28:49 +0000 |
| commit | 0cb9638729211ea71a75ae8756c03ba21553bd53 (patch) | |
| tree | f00e767824d620a63a26a857b6a37fcb6945f89d /ext/ByteLoader/ByteLoader.xs | |
| parent | 4f4e629e089f1120f8e94984281df06ac4f885c5 (diff) | |
| download | perl-0cb9638729211ea71a75ae8756c03ba21553bd53.tar.gz | |
somewhat untested PERL_OBJECT cleanups (C++isms mostly
gone from the public API); PERL_OBJECT builds again on
windows
TODO: namespace-clean the typedefs in iperlsys.h and
elsewhere; remove C++ remnants from public headers
p4raw-id: //depot/perl@3553
Diffstat (limited to 'ext/ByteLoader/ByteLoader.xs')
| -rw-r--r-- | ext/ByteLoader/ByteLoader.xs | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/ext/ByteLoader/ByteLoader.xs b/ext/ByteLoader/ByteLoader.xs index 34002f12b2..07f083843e 100644 --- a/ext/ByteLoader/ByteLoader.xs +++ b/ext/ByteLoader/ByteLoader.xs @@ -7,17 +7,13 @@ static void freadpv(U32 len, void *data, XPV *pv) { New(666, pv->xpv_pv, len, char); - fread(pv->xpv_pv, 1, len, (FILE*)data); + PerlIO_read((PerlIO*)data, (void*)pv->xpv_pv, len); pv->xpv_len = len; pv->xpv_cur = len - 1; } static I32 -#ifdef PERL_OBJECT -byteloader_filter(CPerlObj *pPerl, int idx, SV *buf_sv, int maxlen) -#else -byteloader_filter(pTHX_ int idx, SV *buf_sv, int maxlen) -#endif +byteloader_filter(pTHXo_ int idx, SV *buf_sv, int maxlen) { dTHR; OP *saveroot = PL_main_root; @@ -29,7 +25,7 @@ byteloader_filter(pTHX_ int idx, SV *buf_sv, int maxlen) bs.pfread = (int(*) (char*,size_t,size_t,void*))fread; bs.pfreadpv = freadpv; - byterun(bs); + byterun(aTHXo_ bs); if (PL_in_eval) { OP *o; |