Change 16156 by jhi@alpha on 2002/04/25 14:29:16
-Wformat cleanups from Robin Barker.
Affected files ...
.... //depot/perl/dump.c#115 edit
.... //depot/perl/embed.fnc#37 edit
.... //depot/perl/proto.h#397 edit
.... //depot/perl/sv.c#539 edit
Differences ...
==== //depot/perl/dump.c#115 (text) ====
Index: perl/dump.c
--- perl/dump.c.~1~ Thu Apr 25 08:45:05 2002
+++ perl/dump.c Thu Apr 25 08:45:05 2002
@@ -617,7 +617,7 @@
case OP_GVSV:
case OP_GV:
#ifdef USE_ITHREADS
- Perl_dump_indent(aTHX_ level, file, "PADIX = %d\n", cPADOPo->op_padix);
+ Perl_dump_indent(aTHX_ level, file, "PADIX = %" IVdf "\n",
+(IV)cPADOPo->op_padix);
#else
if (cSVOPo->op_sv) {
SV *tmpsv = NEWSV(0,0);
==== //depot/perl/embed.fnc#37 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc.~1~ Thu Apr 25 08:45:05 2002
+++ perl/embed.fnc Thu Apr 25 08:45:05 2002
@@ -562,7 +562,7 @@
Ap |void |reentrant_size
Ap |void |reentrant_init
Ap |void |reentrant_free
-Afnp |void* |reentrant_retry|const char*|...
+Anp |void* |reentrant_retry|const char*|...
#endif
Ap |void |call_atexit |ATEXIT_t fn|void *ptr
Apd |I32 |call_argv |const char* sub_name|I32 flags|char** argv
==== //depot/perl/proto.h#397 (text+w) ====
Index: perl/proto.h
--- perl/proto.h.~1~ Thu Apr 25 08:45:05 2002
+++ perl/proto.h Thu Apr 25 08:45:05 2002
@@ -602,11 +602,7 @@
PERL_CALLCONV void Perl_reentrant_size(pTHX);
PERL_CALLCONV void Perl_reentrant_init(pTHX);
PERL_CALLCONV void Perl_reentrant_free(pTHX);
-PERL_CALLCONV void* Perl_reentrant_retry(const char*, ...)
-#ifdef CHECK_FORMAT
- __attribute__((format(printf,1,2)))
-#endif
-;
+PERL_CALLCONV void* Perl_reentrant_retry(const char*, ...);
#endif
PERL_CALLCONV void Perl_call_atexit(pTHX_ ATEXIT_t fn, void *ptr);
PERL_CALLCONV I32 Perl_call_argv(pTHX_ const char* sub_name, I32 flags, char**
argv);
==== //depot/perl/sv.c#539 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~ Thu Apr 25 08:45:05 2002
+++ perl/sv.c Thu Apr 25 08:45:05 2002
@@ -9389,7 +9389,7 @@
CvFILE(dstr) = CvXSUB(sstr) ? CvFILE(sstr) : SAVEPV(CvFILE(sstr));
break;
default:
- Perl_croak(aTHX_ "Bizarre SvTYPE [%d]", SvTYPE(sstr));
+ Perl_croak(aTHX_ "Bizarre SvTYPE [%" IVdf "]", (IV)SvTYPE(sstr));
break;
}
End of Patch.
