Install extensions with bootstrap (again) in $archlib

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

diff --git a/proto.h b/proto.h
index 7b47a93..3eca378 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1,3 +1,5 @@
+START_EXTERN_C
+
 #ifndef NEXT30_NO_ATTRIBUTE
 #ifndef HASATTRIBUTE       /* disable GNU-cc attribute checking? */
 #ifdef  __attribute__      /* Avoid possible redefinition errors */
@@ -46,7 +48,7 @@ I32   block_gimme _((void));
 int    block_start _((int full));
 void   boot_core_UNIVERSAL _((void));
 void   call_list _((I32 oldscope, AV* list));
-I32    cando _((I32 bit, I32 effective, struct stat* statbufp));
+I32    cando _((I32 bit, I32 effective, Stat_t* statbufp));
 #ifndef CASTNEGFLOAT
 U32    cast_ulong _((double f));
 #endif
@@ -70,6 +72,8 @@ void  cx_dump _((PERL_CONTEXT* cs));
 SV*    filter_add _((filter_t funcp, SV* datasv));
 void   filter_del _((filter_t funcp));
 I32    filter_read _((int idx, SV* buffer, int maxlen));
+char **        get_op_descs _((void));
+char **        get_op_names _((void));
 I32    cxinc _((void));
 void   deb _((const char* pat,...)) __attribute__((format(printf,1,2)));
 void   deb_growlevel _((void));
@@ -133,7 +137,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));
+void   fbm_compile _((SV* sv, U32 flags));
 char*  fbm_instr _((unsigned char* big, unsigned char* bigend, SV* littlesv));
 #ifdef USE_THREADS
 PADOFFSET      find_threadsv _((char *name));
@@ -247,6 +251,7 @@ int magic_settaint  _((SV* sv, MAGIC* mg));
 int    magic_setuvar   _((SV* sv, MAGIC* mg));
 int    magic_setvec    _((SV* sv, MAGIC* mg));
 int    magic_set_all_env _((SV* sv, MAGIC* mg));
+U32    magic_sizepack  _((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));
@@ -263,6 +268,7 @@ int mg_get _((SV* sv));
 U32    mg_len _((SV* sv));
 void   mg_magical _((SV* sv));
 int    mg_set _((SV* sv));
+I32    mg_size _((SV* sv));
 OP*    mod _((OP* o, I32 type));
 char*  moreswitches _((char* s));
 OP*    my _((OP* o));
@@ -296,6 +302,7 @@ OP* newANONHASH _((OP* o));
 OP*    newANONSUB _((I32 floor, OP* proto, OP* block));
 OP*    newASSIGNOP _((I32 flags, OP* left, I32 optype, OP* right));
 OP*    newCONDOP _((I32 flags, OP* expr, OP* trueop, OP* falseop));
+void   newCONSTSUB _((HV* stash, char* name, SV* sv));
 void   newFORM _((I32 floor, OP* o, OP* block));
 OP*    newFOROP _((I32 flags, char* label, line_t forline, OP* scalar, OP* expr, OP*block, OP*cont));
 OP*    newLOGOP _((I32 optype, I32 flags, OP* left, OP* right));
@@ -323,17 +330,16 @@ OP*       newLISTOP _((I32 type, I32 flags, OP* first, OP* last));
 OP*    newPMOP _((I32 type, I32 flags));
 OP*    newPVOP _((I32 type, I32 flags, char* pv));
 SV*    newRV _((SV* ref));
+#if !defined(__GNUC__) && (defined(CRIPPLED_CC) || defined(USE_THREADS))
 SV*    newRV_noinc _((SV *));
-#ifdef LEAKTEST
-SV*    newSV _((I32 x, STRLEN len));
-#else
-SV*    newSV _((STRLEN len));
 #endif
+SV*    newSV _((STRLEN len));
 OP*    newSVREF _((OP* o));
 OP*    newSVOP _((I32 type, I32 flags, SV* sv));
 SV*    newSViv _((IV i));
 SV*    newSVnv _((double n));
 SV*    newSVpv _((char* s, STRLEN len));
+SV*    newSVpvn _((char* s, STRLEN len));
 SV*    newSVpvf _((const char* pat, ...));
 SV*    newSVrv _((SV* rv, char* classname));
 SV*    newSVsv _((SV* old));
@@ -343,6 +349,7 @@ OP* newWHILEOP _((I32 flags, I32 debuggable, LOOP* loop,
 #ifdef USE_THREADS
 struct perl_thread *   new_struct_thread _((struct perl_thread *t));
 #endif
+PERL_SI *      new_stackinfo _((I32 stitems, I32 cxitems));
 PerlIO*        nextargv _((GV* gv));
 char*  ninstr _((char* big, char* bigend, char* little, char* lend));
 OP*    oopsCV _((OP* o));
@@ -417,6 +424,7 @@ I32 same_dirent _((char* a, char* b));
 char*  savepv _((char* sv));
 char*  savepvn _((char* sv, I32 len));
 void   savestack_grow _((void));
+void   save_aelem _((AV* av, I32 idx, SV **sptr));
 void   save_aptr _((AV** aptr));
 AV*    save_ary _((GV* gv));
 void   save_clearsv _((SV** svp));
@@ -429,6 +437,7 @@ void        save_freeop _((OP* o));
 void   save_freepv _((char* pv));
 void   save_gp _((GV* gv, I32 empty));
 HV*    save_hash _((GV* gv));
+void   save_helem _((HV* hv, SV *key, SV **sptr));
 void   save_hptr _((HV** hptr));
 void   save_I16 _((I16* intp));
 void   save_I32 _((I32* intp));
@@ -481,9 +490,13 @@ void       sv_add_arena _((char* ptr, U32 size, U32 flags));
 int    sv_backoff _((SV* sv));
 SV*    sv_bless _((SV* sv, HV* stash));
 void   sv_catpvf _((SV* sv, const char* pat, ...));
+void   sv_catpvf_mg _((SV* sv, const char* pat, ...));
 void   sv_catpv _((SV* sv, char* ptr));
+void   sv_catpv_mg _((SV* sv, char* ptr));
 void   sv_catpvn _((SV* sv, char* ptr, STRLEN len));
+void   sv_catpvn_mg _((SV* sv, char* ptr, STRLEN len));
 void   sv_catsv _((SV* dsv, SV* ssv));
+void   sv_catsv_mg _((SV* dsv, SV* ssv));
 void   sv_chop _((SV* sv, char* ptr));
 void   sv_clean_all _((void));
 void   sv_clean_objs _((void));
@@ -522,17 +535,25 @@ void      sv_replace _((SV* sv, SV* nsv));
 void   sv_report_used _((void));
 void   sv_reset _((char* s, HV* stash));
 void   sv_setpvf _((SV* sv, const char* pat, ...));
+void   sv_setpvf_mg _((SV* sv, const char* pat, ...));
 void   sv_setiv _((SV* sv, IV num));
+void   sv_setiv_mg _((SV* sv, IV num));
 void   sv_setpviv _((SV* sv, IV num));
+void   sv_setpviv_mg _((SV* sv, IV num));
 void   sv_setuv _((SV* sv, UV num));
+void   sv_setuv_mg _((SV* sv, UV num));
 void   sv_setnv _((SV* sv, double num));
+void   sv_setnv_mg _((SV* sv, double num));
 SV*    sv_setref_iv _((SV* rv, char* classname, IV iv));
 SV*    sv_setref_nv _((SV* rv, char* classname, double nv));
 SV*    sv_setref_pv _((SV* rv, char* classname, void* pv));
 SV*    sv_setref_pvn _((SV* rv, char* classname, char* pv, I32 n));
 void   sv_setpv _((SV* sv, const char* ptr));
+void   sv_setpv_mg _((SV* sv, const char* ptr));
 void   sv_setpvn _((SV* sv, const char* ptr, STRLEN len));
+void   sv_setpvn_mg _((SV* sv, const char* ptr, STRLEN len));
 void   sv_setsv _((SV* dsv, SV* ssv));
+void   sv_setsv_mg _((SV* dsv, SV* ssv));
 void   sv_taint _((SV* sv));
 bool   sv_tainted _((SV* sv));
 int    sv_unmagic _((SV* sv, int type));
@@ -540,6 +561,7 @@ 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   sv_usepvn_mg _((SV* sv, char* ptr, STRLEN len));
 void   sv_vcatpvfn _((SV* sv, const char* pat, STRLEN patlen,
                       va_list* args, SV** svargs, I32 svmax,
                       bool *used_locale));
@@ -581,3 +603,9 @@ Malloc_t safexcalloc _((I32 x, MEM_SIZE elements, MEM_SIZE size));
 Malloc_t safexrealloc _((Malloc_t where, MEM_SIZE size));
 void     safexfree _((Malloc_t where));
 #endif
+
+#ifdef PERL_GLOBAL_STRUCT
+struct perl_vars *Perl_GetVars _((void));
+#endif
+
+END_EXTERN_C