diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-12-22 18:04:34 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-12-22 18:04:34 +0000 |
| commit | e87a358ade5a3dd9a8b192569e18211d76c93743 (patch) | |
| tree | 8f51b38525591efab94b932f12e9c20b21a99be6 /ext/IO | |
| parent | a0d1d361c93b39102154ecff3ddb8a1be74034b8 (diff) | |
| download | perl-e87a358ade5a3dd9a8b192569e18211d76c93743.tar.gz | |
Add at least the "important" PerlIO_xxxx functions to embed.pl
so that they get implicit pTHX_ and we can avoid slow dTHX.
p4raw-id: //depot/perlio@13852
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/IO.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs index a798813f14..9cefe08be5 100644 --- a/ext/IO/IO.xs +++ b/ext/IO/IO.xs @@ -55,7 +55,7 @@ not_here(char *s) #endif static int -io_blocking(InputStream f, int block) +io_blocking(pTHX_ InputStream f, int block) { int RETVAL; if(!f) { @@ -261,7 +261,7 @@ io_blocking(handle,blk=-1) PROTOTYPE: $;$ CODE: { - int ret = io_blocking(handle, items == 1 ? -1 : blk ? 1 : 0); + int ret = io_blocking(aTHX_ handle, items == 1 ? -1 : blk ? 1 : 0); if(ret >= 0) XSRETURN_IV(ret); else |