summaryrefslogtreecommitdiff
path: root/embed.pl
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>2001-12-22 18:04:34 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>2001-12-22 18:04:34 +0000
commite87a358ade5a3dd9a8b192569e18211d76c93743 (patch)
tree8f51b38525591efab94b932f12e9c20b21a99be6 /embed.pl
parenta0d1d361c93b39102154ecff3ddb8a1be74034b8 (diff)
downloadperl-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 'embed.pl')
-rwxr-xr-xembed.pl26
1 files changed, 26 insertions, 0 deletions
diff --git a/embed.pl b/embed.pl
index adbfcc38ed..20e836feef 100755
--- a/embed.pl
+++ b/embed.pl
@@ -2356,3 +2356,29 @@ Ap |char* |my_atof2 |const char *s|NV* value
END_EXTERN_C
+#if defined(USE_PERLIO) && !defined(USE_SFIO)
+Ap |int |PerlIO_close |PerlIO *
+Ap |int |PerlIO_fill |PerlIO *
+Ap |int |PerlIO_fileno |PerlIO *
+Ap |int |PerlIO_eof |PerlIO *
+Ap |int |PerlIO_error |PerlIO *
+Ap |int |PerlIO_flush |PerlIO *
+Ap |void |PerlIO_clearerr |PerlIO *
+Ap |void |PerlIO_set_cnt |PerlIO *|int
+Ap |void |PerlIO_set_ptrcnt |PerlIO *|STDCHAR *|int
+Ap |void |PerlIO_setlinebuf |PerlIO *
+Ap |SSize_t|PerlIO_read |PerlIO *|void *|Size_t
+Ap |SSize_t|PerlIO_write |PerlIO *|const void *|Size_t
+Ap |SSize_t|PerlIO_unread |PerlIO *|const void *|Size_t
+Ap |Off_t |PerlIO_tell |PerlIO *
+Ap |int |PerlIO_seek |PerlIO *|Off_t|int
+
+Ap |STDCHAR *|PerlIO_get_base |PerlIO *
+Ap |STDCHAR *|PerlIO_get_ptr |PerlIO *
+Ap |int |PerlIO_get_bufsiz |PerlIO *
+Ap |int |PerlIO_get_cnt |PerlIO *
+
+Ap |PerlIO *|PerlIO_stdin
+Ap |PerlIO *|PerlIO_stdout
+Ap |PerlIO *|PerlIO_stderr
+#endif /* PERLIO_LAYERS */