[inseparable changes from patch from perl5.003_12 to perl5.003_13]
[p5sagit/p5-mst-13.2.git] / proto.h
diff --git a/proto.h b/proto.h
index 851567b..cbf38d4 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -28,7 +28,7 @@ SV**  av_store _((AV* ar, I32 key, SV* val));
 void   av_undef _((AV* ar));
 void   av_unshift _((AV* ar, I32 num));
 OP*    bind_match _((I32 type, OP* left, OP* pat));
-OP*    block_end _((int line, int floor, OP* seq));
+OP*    block_end _((I32 floor, OP* seq));
 int    block_start _((int full));
 void   boot_core_UNIVERSAL _((void));
 void   calllist _((AV* list));
@@ -113,7 +113,7 @@ void        dump_op _((OP* arg));
 void   dump_pm _((PMOP* pm));
 void   dump_packsubs _((HV* stash));
 void   dump_sub _((GV* gv));
-void   fbm_compile _((SV* sv, I32 iflag));
+void   fbm_compile _((SV* sv));
 char*  fbm_instr _((unsigned char* big, unsigned char* bigend, SV* littlesv));
 OP*    force_list _((OP* arg));
 OP*    fold_constants _((OP * arg));
@@ -158,8 +158,10 @@ void       hv_magic _((HV* hv, GV* gv, int how));
 SV**   hv_store _((HV* tb, char* key, U32 klen, SV* val, U32 hash));
 HE*    hv_store_ent _((HV* tb, SV* key, SV* val, U32 hash));
 void   hv_undef _((HV* tb));
-I32    ibcmp _((U8* a, U8* b, I32 len));
+I32    ibcmp _((char* a, char* b, I32 len));
+I32    ibcmp_locale _((char* a, char* b, I32 len));
 I32    ingroup _((I32 testgid, I32 effective));
+U32    intro_my _((void));
 char*  instr _((char* big, char* little));
 bool   io_close _((IO* io));
 OP*    invert _((OP* cmd));
@@ -176,7 +178,8 @@ I32 looks_like_number _((SV* sv));
 int    magic_clearenv  _((SV* sv, MAGIC* mg));
 int    magic_clearpack _((SV* sv, MAGIC* mg));
 int    magic_clearsig  _((SV* sv, MAGIC* mg));
-int    magic_existspack        _((SV* sv, MAGIC* mg));
+int    magic_existspack _((SV* sv, MAGIC* mg));
+int    magic_freevivary _((SV* sv, MAGIC* mg));
 int    magic_get       _((SV* sv, MAGIC* mg));
 int    magic_getarylen _((SV* sv, MAGIC* mg));
 int    magic_getpack   _((SV* sv, MAGIC* mg));
@@ -194,6 +197,7 @@ int magic_setamagic _((SV* sv, MAGIC* mg));
 int    magic_setarylen _((SV* sv, MAGIC* mg));
 int    magic_setbm     _((SV* sv, MAGIC* mg));
 int    magic_setdbline _((SV* sv, MAGIC* mg));
+int    magic_setcollxfrm _((SV* sv, MAGIC* mg));
 int    magic_setenv    _((SV* sv, MAGIC* mg));
 int    magic_setfm     _((SV* sv, MAGIC* mg));
 int    magic_setisa    _((SV* sv, MAGIC* mg));
@@ -207,11 +211,14 @@ int       magic_setsubstr _((SV* sv, MAGIC* mg));
 int    magic_settaint  _((SV* sv, MAGIC* mg));
 int    magic_setuvar   _((SV* sv, MAGIC* mg));
 int    magic_setvec    _((SV* sv, MAGIC* mg));
+int    magic_setvivary _((SV* sv, MAGIC* mg));
 int    magic_wipepack  _((SV* sv, MAGIC* mg));
 void   magicname _((char* sym, char* name, I32 namlen));
 int    main _((int argc, char** argv, char** env));
 void   markstack_grow _((void));
-char*  mem_collxfrm _((const char *m, const Size_t n, Size_t * nx));
+#ifdef USE_LOCALE_COLLATE
+char*  mem_collxfrm _((const char *s, STRLEN len, STRLEN *xlen));
+#endif
 char*  mess _((char* pat, va_list* args));
 int    mg_clear _((SV* sv));
 int    mg_copy _((SV *, SV *, char *, I32));
@@ -224,14 +231,16 @@ int       mg_set _((SV* sv));
 OP*    mod _((OP* op, I32 type));
 char*  moreswitches _((char* s));
 OP *   my _(( OP *));
+#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
 char*  my_bcopy _((char* from, char* to, I32 len));
+#endif
 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
 char*  my_bzero _((char* loc, I32 len));
 #endif
 void   my_exit _((U32 status)) __attribute__((noreturn));
 I32    my_lstat _((void));
-#ifndef HAS_MEMCMP
-I32    my_memcmp _((unsigned char* s1, unsigned char* s2, I32 len));
+#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
+I32    my_memcmp _((char* s1, char* s2, I32 len));
 #endif
 I32    my_pclose _((PerlIO* ptr));
 PerlIO*        my_popen _((char* cmd, char* mode));
@@ -321,8 +330,13 @@ SV*        perl_get_sv _((char* name, I32 create));
 AV*    perl_get_av _((char* name, I32 create));
 HV*    perl_get_hv _((char* name, I32 create));
 CV*    perl_get_cv _((char* name, I32 create));
-void   perl_init_fold _(());
 int    perl_init_i18nl10n _((int printwarn));
+int    perl_init_i18nl14n _((int printwarn));
+void   perl_new_collate _((char *newcoll));
+void   perl_new_ctype _((char *newctype));
+void   perl_new_numeric _((char *newcoll));
+void   perl_set_numeric_local _((void));
+void   perl_set_numeric_standard _((void));
 int    perl_parse _((PerlInterpreter* sv_interp, void(*xsinit)(void), int argc, char** argv, char** env));
 void   perl_require_pv _((char* pv));
 #define perl_requirepv perl_require_pv
@@ -347,6 +361,10 @@ char*      regnext _((char* p));
 char*  regprop _((char* op));
 void   repeatcpy _((char* to, char* from, I32 len, I32 count));
 char*  rninstr _((char* big, char* bigend, char* little, char* lend));
+Sighandler_t rsignal _((int, Sighandler_t));
+int    rsignal_restore _((int, Sigsave_t*));
+int    rsignal_save _((int, Sighandler_t, Sigsave_t*));
+Sighandler_t rsignal_state _((int));
 int    runops _((void));
 #ifndef HAS_RENAME
 I32    same_dirent _((char* a, char* b));
@@ -355,6 +373,8 @@ char*       savepv _((char* sv));
 char*  savepvn _((char* sv, I32 len));
 char*  sharepvn _((char* sv, I32 len, U32 hash));
 void   unsharepvn _((char* sv, I32 len, U32 hash));
+HEK*   share_hek _((char* sv, I32 len, U32 hash));
+void   unshare_hek _((HEK* hek));
 void   savestack_grow _((void));
 void   save_aptr _((AV** aptr));
 AV*    save_ary _((GV* gv));
@@ -366,6 +386,7 @@ void        save_destructor _((void (*f)(void*), void* p));
 void   save_freesv _((SV* sv));
 void   save_freeop _((OP* op));
 void   save_freepv _((char* pv));
+void   save_gp _((GV* gv, I32 empty));
 HV*    save_hash _((GV* gv));
 void   save_hptr _((HV** hptr));
 void   save_I16 _((I16* intp));
@@ -404,6 +425,7 @@ IV  sv_2iv _((SV* sv));
 SV*    sv_2mortal _((SV* sv));
 double sv_2nv _((SV* sv));
 char*  sv_2pv _((SV* sv, STRLEN* lp));
+UV     sv_2uv _((SV* sv));
 void   sv_add_arena _((char* ptr, U32 size, U32 flags));
 int    sv_backoff _((SV* sv));
 SV*    sv_bless _((SV* sv, HV* stash));
@@ -415,6 +437,10 @@ void       sv_clean_all _((void));
 void   sv_clean_objs _((void));
 void   sv_clear _((SV* sv));
 I32    sv_cmp _((SV* sv1, SV* sv2));
+I32    sv_cmp_locale _((SV* sv1, SV* sv2));
+#ifdef USE_LOCALE_COLLATE
+char*  sv_collxfrm _((SV* sv, STRLEN* nxp));
+#endif
 void   sv_dec _((SV* sv));
 void   sv_dump _((SV* sv));
 bool   sv_derived_from _((SV* sv, char* name));
@@ -452,12 +478,14 @@ SV*       sv_setref_pvn _((SV *rv, char *classname, char* pv, I32 n));
 void   sv_setpv _((SV* sv, char* ptr));
 void   sv_setpvn _((SV* sv, char* ptr, STRLEN len));
 void   sv_setsv _((SV* dsv, SV* ssv));
+void   sv_taint _((SV* sv));
+bool   sv_tainted _((SV* sv));
 int    sv_unmagic _((SV* sv, int type));
 void   sv_unref _((SV* sv));
+void   sv_untaint _((SV* sv));
 bool   sv_upgrade _((SV* sv, U32 mt));
 void   sv_usepvn _((SV* sv, char* ptr, STRLEN len));
 void   taint_env _((void));
-void   taint_not _((char *s));
 void   taint_proper _((char* f, char* s));
 #ifdef UNLINK_ALL_VERSIONS
 I32    unlnk _((char* f));
@@ -479,6 +507,13 @@ Malloc_t realloc _((Malloc_t where, MEM_SIZE nbytes));
 Free_t   free _((Malloc_t where));
 #endif
 
+#ifndef MYMALLOC
+Malloc_t safemalloc _((MEM_SIZE nbytes));
+Malloc_t safecalloc _((MEM_SIZE elements, MEM_SIZE size));
+Malloc_t saferealloc _((Malloc_t where, MEM_SIZE nbytes));
+Free_t   safefree _((Malloc_t where));
+#endif
+
 #ifdef LEAKTEST
 Malloc_t safexmalloc _((I32 x, MEM_SIZE size));
 Malloc_t safexcalloc _((I32 x, MEM_SIZE elements, MEM_SIZE size));