X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.pl;h=7e06389e90fb06451a44b31267cc6bdeed738437;hb=f5b9d040829bb5deb93173e35ee6c82ce0a01c37;hp=a19c4398c071df1d9e66f9229fc422a90a2791c8;hpb=830247a47cb457d88217897539fd950ffe620b3f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.pl b/embed.pl
index a19c439..7e06389 100755
--- a/embed.pl
+++ b/embed.pl
@@ -1505,6 +1505,18 @@ p	|I32	|do_trans	|SV* sv
 p	|UV	|do_vecget	|SV* sv|I32 offset|I32 size
 p	|void	|do_vecset	|SV* sv
 p	|void	|do_vop		|I32 optype|SV* sv|SV* left|SV* right
+#if defined(SOCKS_64BIT_BUG)
+Ajnop	|Off_t	|do_s64_tell	|PerlIO* fp
+Ajnop	|SSize_t|do_s64_fread	|void *buf|SSize_t count|PerlIO* fp
+Ajnop	|int	|do_s64_getc	|PerlIO* fp
+Ajnop	|int	|do_s64_seek	|PerlIO* fp|Off_t pos|int whence
+Ajnop	|int	|do_s64_ungetc	|int ch|PerlIO* fp
+Ajnop	|void	|do_s64_delete_buffer|PerlIO* fp
+Ajnop	|void	|do_s64_init_buffer
+s	|S64_IOB *	|s64_get_buffer		|PerlIO *f
+s	|S64_IOB *	|s64_create_buffer	|PerlIO *f
+s	|int		|s64_malloc		|S64_IOB *ptr
+#endif
 p	|OP*	|dofile		|OP* term
 Ap	|I32	|dowantarray
 Ap	|void	|dump_all
@@ -2070,6 +2082,7 @@ p	|void	|unshare_hek	|HEK* hek
 p	|void	|utilize	|int aver|I32 floor|OP* version|OP* id|OP* arg
 Ap	|U8*	|utf16_to_utf8	|U8* p|U8 *d|I32 bytelen|I32 *newlen
 Ap	|U8*	|utf16_to_utf8_reversed|U8* p|U8 *d|I32 bytelen|I32 *newlen
+Ap	|STRLEN	|utf8_length	|U8* s|U8 *e
 Ap	|I32	|utf8_distance	|U8 *a|U8 *b
 Ap	|U8*	|utf8_hop	|U8 *s|I32 off
 ApM	|U8*	|utf8_to_bytes	|U8 *s|STRLEN *len