This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
quiet a few warnings
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Wed, 21 Sep 2005 18:45:56 +0000 (11:45 -0700)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 23 Sep 2005 15:12:03 +0000 (15:12 +0000)
Message-ID: <20050922014555.GA2852@efn.org>

p4raw-id: //depot/perl@25586

cygwin/cygwin.c
embed.fnc
proto.h

index 21f3b34..03f48dd 100644 (file)
@@ -23,8 +23,8 @@ do_spawnvp (const char *path, const char * const *argv)
     Sigsave_t ihand,qhand;
     int childpid, result, status;
 
     Sigsave_t ihand,qhand;
     int childpid, result, status;
 
-    rsignal_save(SIGINT, SIG_IGN, &ihand);
-    rsignal_save(SIGQUIT, SIG_IGN, &qhand);
+    rsignal_save(SIGINT, (Sighandler_t) SIG_IGN, &ihand);
+    rsignal_save(SIGQUIT, (Sighandler_t) SIG_IGN, &qhand);
     childpid = spawnvp(_P_NOWAIT,path,argv);
     if (childpid < 0) {
        status = -1;
     childpid = spawnvp(_P_NOWAIT,path,argv);
     if (childpid < 0) {
        status = -1;
index 3fd0ec0..0903c89 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -884,7 +884,7 @@ p   |int    |yyparse
 p      |int    |yywarn         |NN const char* s
 #if defined(MYMALLOC)
 Ap     |void   |dump_mstats    |NN char* s
 p      |int    |yywarn         |NN const char* s
 #if defined(MYMALLOC)
 Ap     |void   |dump_mstats    |NN char* s
-ApR    |int    |get_mstats     |NN perl_mstats_t *buf|int buflen|int level
+Ap     |int    |get_mstats     |NN perl_mstats_t *buf|int buflen|int level
 #endif
 Anpa   |Malloc_t|safesysmalloc |MEM_SIZE nbytes
 Anpa   |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size
 #endif
 Anpa   |Malloc_t|safesysmalloc |MEM_SIZE nbytes
 Anpa   |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size
diff --git a/proto.h b/proto.h
index b7d8918..cc4b7db 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2398,7 +2398,6 @@ PERL_CALLCONV void        Perl_dump_mstats(pTHX_ char* s)
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV int      Perl_get_mstats(pTHX_ perl_mstats_t *buf, int buflen, int level)
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV int      Perl_get_mstats(pTHX_ perl_mstats_t *buf, int buflen, int level)
-                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 #endif
                        __attribute__nonnull__(pTHX_1);
 
 #endif