[inseparable changes from match from perl-5.003_97h to perl-5.003_97i]

 CORE PORTABILITY

Subject: Provide memset() if it's missing
From: Chip Salzenberg <chip@perl.com>
Files: global.sym perl.h proto.h util.c

Subject: Don't tell GCC that warn(), croak(), and die() are printf-lik
From: Chip Salzenberg <chip@perl.com>
Files: proto.h

 DOCUMENTATION

Subject: FAQ udpate (24-apr-97)
Date: Thu, 24 Apr 1997 16:47:23 -0600 (MDT)
From: Nathan Torkington <gnat@prometheus.frii.com>
Files: pod/perlfaq*.pod

    private-msgid: 199704242247.QAA07010@prometheus.frii.com

 OTHER CORE CHANGES

Subject: Misc. sv_vcatpvfn() fixes
From: Hugo van der Sanden <hv@crypt.compulink.co.uk>
Files: gv.c mg.c op.c perl.c pp.c pp_ctl.c sv.c toke.c util.c

Subject: Enforce order of sprintf() elements
From: Chip Salzenberg <chip@perl.com>
Files: sv.c

Subject: Guard against long numbers, <<LONG_DELIM, and <long glob>
From: Chip Salzenberg <chip@perl.com>
Files: global.sym mg.c perl.c pod/perldiag.pod proto.h toke.c util.c

Subject: Guard against C<goto> to deeply nested label
From: Chip Salzenberg <chip@perl.com>
Files: pod/perldiag.pod pp_ctl.c

Subject: Guard against overflow in dup2() emulation
From: Chip Salzenberg <chip@perl.com>
Files: util.c

Subject: Win32: Guard against long function names
From: Chip Salzenberg <chip@perl.com>
Files: win32/win32sck.c

Subject: Make mess() always work, by using a non-arena SV
From: Chip Salzenberg <chip@perl.com>
Files: perl.c util.c

Subject: When copying a format line, take only its string value
From: Chip Salzenberg <chip@perl.com>
Files: sv.c

Subject: Fix LEAKTEST numbers
From: Chip Salzenberg <chip@perl.com>
Files: ext/DynaLoader/dl_vms.xs handy.h os2/os2.c util.c vms/vms.c win32/win32.c win32/win32sck.c

1 files changed, 8 insertions, 5 deletions

diff --git a/proto.h b/proto.h
index cd45ca8493..732aa3da88 100644
--- a/proto.h
+++ b/proto.h
@@ -43,9 +43,7 @@ I32	my_chsize _((int fd, Off_t length));
 OP*	ck_gvconst _((OP*  o));
 OP*	ck_retarget _((OP* op));
 OP*	convert _((I32 optype, I32 flags, OP* op));
-char*	cpytill _((char* to, char* from, char* fromend, int delim, I32* retlen));
-void	croak _((const char* pat,...))
-		__attribute__((format(printf,1,2),noreturn));
+void	croak _((const char* pat,...)) __attribute__((noreturn));
 void	cv_ckproto _((CV* cv, GV* gv, char* p));
 CV*	cv_clone _((CV* proto));
 SV*	cv_const_sv _((CV* cv));
@@ -65,8 +63,10 @@ I32	debstackptrs _((void));
 void	debprofdump _((void));
 #endif
 I32	debstack _((void));
+char*	delimcpy _((char* to, char* toend, char* from, char* fromend,
+		    int delim, I32* retlen));
 void	deprecate _((char* s));
-OP*	die _((const char* pat,...)) __attribute__((format(printf,1,2)));
+OP*	die _((const char* pat,...));
 OP*	die_where _((char* message));
 void	dounwind _((I32 cxix));
 bool	do_aexec _((SV* really, SV** mark, SV** sp));
@@ -253,6 +253,9 @@ I32	my_lstat _((void));
 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
 I32	my_memcmp _((char* s1, char* s2, I32 len));
 #endif
+#if !defined(HAS_MEMSET)
+void*	my_memset _((char* loc, I32 ch, I32 len));
+#endif
 I32	my_pclose _((PerlIO* ptr));
 PerlIO*	my_popen _((char* cmd, char* mode));
 void	my_setenv _((char* nam, char* val));
@@ -515,7 +518,7 @@ void	utilize _((int aver, I32 floor, OP* version, OP* id, OP* arg));
 void	vivify_defelem _((SV* sv));
 void	vivify_ref _((SV* sv, U32 to_what));
 I32	wait4pid _((int pid, int* statusp, int flags));
-void	warn _((const char* pat,...)) __attribute__((format(printf,1,2)));
+void	warn _((const char* pat,...));
 void	watch _((char** addr));
 I32	whichsig _((char* sig));
 int	yyerror _((char* s));