threads::shared disabling

[p5sagit/p5-mst-13.2.git] / proto.h

diff --git a/proto.h b/proto.h
index 33b8e23..9196ddd 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -315,7 +315,7 @@ PERL_CALLCONV HE*   Perl_hv_store_ent(pTHX_ HV* tb, SV* key, SV* val, U32 hash);
 PERL_CALLCONV void     Perl_hv_undef(pTHX_ HV* tb);
 PERL_CALLCONV I32      Perl_ibcmp(pTHX_ const char* a, const char* b, I32 len);
 PERL_CALLCONV I32      Perl_ibcmp_locale(pTHX_ const char* a, const char* b, I32 len);
-PERL_CALLCONV I32      Perl_ibcmp_utf8(pTHX_ const char* a, bool ua, I32 len1, const char* b, bool ub, I32 len2);
+PERL_CALLCONV I32      Perl_ibcmp_utf8(pTHX_ const char* a, char **pe1, UV l1, bool u1, const char* b, char **pe2, UV l2, bool u2);
 PERL_CALLCONV bool     Perl_ingroup(pTHX_ Gid_t testgid, Uid_t effective);
 PERL_CALLCONV void     Perl_init_argv_symbols(pTHX_ int, char **);
 PERL_CALLCONV void     Perl_init_debugger(pTHX);
@@ -1332,7 +1332,7 @@ PERL_CALLCONV char*       Perl_sv_pvn_force_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags)
 PERL_CALLCONV char*    Perl_sv_2pv_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags);
 PERL_CALLCONV char*    Perl_my_atof2(pTHX_ const char *s, NV* value);
 #if !defined(HAS_SOCKETPAIR) && defined(HAS_SOCKET)
-PERL_CALLCONV int      Perl_my_socketpair(pTHX_ int family, int type, int protocol, int fd[2]);
+PERL_CALLCONV int      Perl_my_socketpair(int family, int type, int protocol, int fd[2]);
 #endif
 
 
@@ -1363,33 +1363,5 @@ PERL_CALLCONV PerlIO *   Perl_PerlIO_stdout(pTHX);
 PERL_CALLCONV PerlIO * Perl_PerlIO_stderr(pTHX);
 #endif /* PERLIO_LAYERS */
 
-
-#if defined(USE_PERLIO) && !defined(USE_SFIO)
-PERL_CALLCONV int      Perl_PerlIO_close(pTHX_ PerlIO *);
-PERL_CALLCONV int      Perl_PerlIO_fill(pTHX_ PerlIO *);
-PERL_CALLCONV int      Perl_PerlIO_fileno(pTHX_ PerlIO *);
-PERL_CALLCONV int      Perl_PerlIO_eof(pTHX_ PerlIO *);
-PERL_CALLCONV int      Perl_PerlIO_error(pTHX_ PerlIO *);
-PERL_CALLCONV int      Perl_PerlIO_flush(pTHX_ PerlIO *);
-PERL_CALLCONV void     Perl_PerlIO_clearerr(pTHX_ PerlIO *);
-PERL_CALLCONV void     Perl_PerlIO_set_cnt(pTHX_ PerlIO *, int);
-PERL_CALLCONV void     Perl_PerlIO_set_ptrcnt(pTHX_ PerlIO *, STDCHAR *, int);
-PERL_CALLCONV void     Perl_PerlIO_setlinebuf(pTHX_ PerlIO *);
-PERL_CALLCONV SSize_t  Perl_PerlIO_read(pTHX_ PerlIO *, void *, Size_t);
-PERL_CALLCONV SSize_t  Perl_PerlIO_write(pTHX_ PerlIO *, const void *, Size_t);
-PERL_CALLCONV SSize_t  Perl_PerlIO_unread(pTHX_ PerlIO *, const void *, Size_t);
-PERL_CALLCONV Off_t    Perl_PerlIO_tell(pTHX_ PerlIO *);
-PERL_CALLCONV int      Perl_PerlIO_seek(pTHX_ PerlIO *, Off_t, int);
-
-PERL_CALLCONV STDCHAR *        Perl_PerlIO_get_base(pTHX_ PerlIO *);
-PERL_CALLCONV STDCHAR *        Perl_PerlIO_get_ptr(pTHX_ PerlIO *);
-PERL_CALLCONV int      Perl_PerlIO_get_bufsiz(pTHX_ PerlIO *);
-PERL_CALLCONV int      Perl_PerlIO_get_cnt(pTHX_ PerlIO *);
-
-PERL_CALLCONV PerlIO * Perl_PerlIO_stdin(pTHX);
-PERL_CALLCONV PerlIO * Perl_PerlIO_stdout(pTHX);
-PERL_CALLCONV PerlIO * Perl_PerlIO_stderr(pTHX);
-#endif /* PERLIO_LAYERS */
-
 END_EXTERN_C