perl 5.0 alpha 9perl-5a9

[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]

1 files changed, 27 insertions, 22 deletions

diff --git a/proto.h b/proto.h
index 00c31c842f..0d2270bdff 100644
--- a/proto.h
+++ b/proto.h
@@ -10,7 +10,6 @@ void	av_clear P((AV* ar));
 AV*	av_fake P((I32 size, SV** svp));
 SV**	av_fetch P((AV* ar, I32 key, I32 lval));
 void	av_fill P((AV* ar, I32 fill));
-void	av_free P((AV* ar));
 I32	av_len P((AV* ar));
 AV*	av_make P((I32 size, SV** svp));
 SV*	av_pop P((AV* ar));
@@ -23,7 +22,7 @@ void	av_unshift P((AV* ar, I32 num));
 OP*	bind_match P((I32 type, OP* left, OP* pat));
 OP*	block_head P((OP* o, OP** startp));
 int	boot_DB_File P((int ix, int sp, int items));
-int	boot_DynamicLoader P((void));
+/* int	boot_DynamicLoader P((void)); */
 int	boot_NDBM_File P((int ix, int sp, int items));
 int	boot_GDBM_File P((int ix, int sp, int items));
 int	boot_SDBM_File P((int ix, int sp, int items));
@@ -33,8 +32,8 @@ int	boot_POSIX P((int ix, int sp, int items));
 void	calllist P((AV* list));
 I32	cando P((I32 bit, I32 effective, struct stat* statbufp));
 U32	cast_ulong P((double f));
-void	checkcomma P((char* s, char* name, char* what));
-I32	chsize P((int fd, off_t length));
+static void	checkcomma P((char* s, char* name, char* what));
+I32	chsize P((int fd, Off_t length));
 OP*	convert P((I32 optype, I32 flags, OP* op));
 OP*	cop_to_arg P((OP* cmd));
 I32	copyopt P((OP* cmd, OP* which));
@@ -43,7 +42,7 @@ char*	cpytill P((char* to, char* from, char* fromend, I32 delim, I32* retlen));
 void	croak P((char* pat,...));
 void	cryptfilter P((FILE* fil));
 void	cryptswitch P((void));
-void	cv_clear P((CV* cv));
+void	cv_undef P((CV* cv));
 void	deb P((char* pat,...));
 void	deb_growlevel P((void));
 OP*	die P((char* pat,...));
@@ -81,6 +80,7 @@ void	dump_cop P((OP* cmd, OP* alt));
 void	dump_eval P((void));
 int	dump_fds P((char* s));
 void	dump_flags P((char* b, U32 flags));
+void	dump_form P((GV* gv));
 void	dump_gv P((GV* gv));
 void	dump_op P((OP* arg));
 void	dump_pm P((PMOP* pm));
@@ -88,12 +88,10 @@ void	dump_packsubs P((HV* stash));
 void	dump_sub P((GV* gv));
 void	fbm_compile P((SV* sv, I32 iflag));
 char*	fbm_instr P((unsigned char* big, unsigned char* bigend, SV* littlesv));
-IO*	fetch_io P((OP* op, I32 num));
-GV*	fetch_gv P((OP* op, I32 num));
 HV*	fetch_stash P((SV* sv, I32 create));
 OP*	flatten P((OP* arg));
-void	force_ident P((char* s));
-char*	force_word P((char* start, int token, int check_keyword, int allow_tick));
+static void	force_ident P((char* s));
+static char*	force_word P((char* start, int token, int check_keyword, int allow_tick));
 OP*	forcelist P((OP* arg));
 void	free_tmps P((void));
 OP*	gen_constant_list P((OP* op));
@@ -106,7 +104,7 @@ void	gv_check P((HV* stash));
 void	gv_efullname P((SV* sv, GV* gv));
 GV*	gv_fetchfile P((char* name));
 GV*	gv_fetchmethod P((HV* stash, char* name));
-GV*	gv_fetchpv P((char* name, I32 add));
+GV*	gv_fetchpv P((char* name, I32 add, I32 svtype));
 void	gv_fullname P((SV* sv, GV* gv));
 STRLEN	gv_len P((SV* sv));
 SV*	gv_str P((SV* sv));
@@ -117,7 +115,6 @@ void	hoistmust P((PMOP* pm));
 void	hv_clear P((HV* tb));
 SV*	hv_delete P((HV* tb, char* key, U32 klen));
 SV**	hv_fetch P((HV* tb, char* key, U32 klen, I32 lval));
-void	hv_free P((HV* tb));
 I32	hv_iterinit P((HV* tb));
 char*	hv_iterkey P((HE* entry, I32* retlen));
 HE*	hv_iternext P((HV* tb));
@@ -141,6 +138,7 @@ OP*	localize P((OP* arg, I32 lexical));
 I32	looks_like_number P((SV* sv));
 OP*	loopscope P((OP* o));
 I32	lop P((I32 f, char* s));
+int	magic_clearenv	P((SV* sv, MAGIC* mg));
 int	magic_clearpack	P((SV* sv, MAGIC* mg));
 int	magic_get	P((SV* sv, MAGIC* mg));
 int	magic_getarylen	P((SV* sv, MAGIC* mg));
@@ -180,7 +178,9 @@ void	mg_magical P((SV* sv));
 int	mg_set P((SV* sv));
 OP*	mod P((OP* op, I32 type));
 char*	moreswitches P((char* s));
+#ifdef MSTATS
 void	mstats P((char* s));
+#endif
 char*	my_bcopy P((char* from, char* to, I32 len));
 char*	my_bzero P((char* loc, I32 len));
 void	my_exit P((I32 status));
@@ -290,8 +290,12 @@ void	run_format P((struct Outrec* orec, FF* fcmd));
 #ifndef safemalloc
 void	safefree P((char* where));
 char*	safemalloc P((MEM_SIZE size));
+#ifndef MSDOS
+char*	saferealloc P((char* where, MEM_SIZE size));
+#else
 char*	saferealloc P((char* where, unsigned long size));
 #endif
+#endif
 void	safexfree P((char* where));
 char*	safexmalloc P((I32 x, MEM_SIZE size));
 char*	safexrealloc P((char* where, MEM_SIZE size));
@@ -320,24 +324,24 @@ OP*	scalar P((OP* o));
 OP*	scalarkids P((OP* op));
 OP*	scalarseq P((OP* o));
 OP*	scalarvoid P((OP* op));
-char*	scan_formline P((char* s));
+static char*	scan_formline P((char* s));
 unsigned long	scan_hex P((char* start, I32 len, I32* retlen));
-char*	scan_heredoc P((char* s));
-char*	scan_inputsymbol P((char* s));
-char*	scan_ident P((char* s, char* send, char* dest, I32 ck_uni));
+static char*	scan_heredoc P((char* s));
+static char*	scan_inputsymbol P((char* s));
+static char*	scan_ident P((char* s, char* send, char* dest, I32 ck_uni));
 char*	scan_num P((char* s));
 unsigned long	scan_oct P((char* start, I32 len, I32* retlen));
-char*	scan_pat P((char* s));
+static char*	scan_pat P((char* s));
 void	scan_prefix P((PMOP* pm, char* string, I32 len));
-char*	scan_str P((char* start));
-char*	scan_subst P((char* start));
-char*	scan_trans P((char* start));
-char*	scan_word P((char* s, char* dest, int allow_package, STRLEN *slp));
+static char*	scan_str P((char* start));
+static char*	scan_subst P((char* start));
+static char*	scan_trans P((char* start));
+static char*	scan_word P((char* s, char* dest, int allow_package, STRLEN *slp));
 OP*	scope P((OP* o));
 char*	screaminstr P((SV* bigsv, SV* littlesv));
 I32	setenv_getix P((char* nam));
 VOIDRET sighandler P((I32 sig));
-char*	skipspace P((char* s));
+static char*	skipspace P((char* s));
 int	start_subparse P((void));
 bool	sv_2bool P((SV* sv));
 CV*	sv_2cv P((SV* sv, HV** st, GV** gvp, I32 lref));
@@ -345,7 +349,6 @@ I32	sv_2iv P((SV* sv));
 SV*	sv_2mortal P((SV* sv));
 double	sv_2nv P((SV* sv));
 char*	sv_2pv P((SV* sv, STRLEN* lp));
-char*	sv_append_till P((SV* sv, char* from, char* fromend, I32 delim, char* keeplist));
 int	sv_backoff P((SV* sv));
 void	sv_catpv P((SV* sv, char* ptr));
 void	sv_catpvn P((SV* sv, char* ptr, STRLEN len));
@@ -370,6 +373,8 @@ void	sv_inc P((SV* sv));
 void	sv_insert P((SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen));
 SV*	sv_interp P((SV* sv, SV* src, I32 sp));
 void	sv_intrpcompile P((SV* src));
+int	sv_isa P((SV* sv, char* name));
+int	sv_isobject P((SV* sv));
 STRLEN	sv_len P((SV* sv));
 void	sv_magic P((SV* sv, SV* obj, char how, char* name, I32 namlen));
 SV*	sv_mortalcopy P((SV* oldsv));