diff options
| author | Slaven Rezic <slaven@rezic.de> | 2007-09-28 22:38:08 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-03 10:59:55 +0000 |
| commit | b6455c53c26be8a62e12a3f2a24a3a5086dd2c7b (patch) | |
| tree | 44e90f3c0891ae71c788558e8d248bd9fada95ac /mg.c | |
| parent | 784d65669fb2d2ea566b66a827c634dad55dea06 (diff) | |
| download | perl-b6455c53c26be8a62e12a3f2a24a3a5086dd2c7b.tar.gz | |
[perl #45513] Test failures on amd64-freebsd 6.2
From: "slaven@rezic.de via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-5916-1191069483-1553.45513-15-0@perl.org>
p4raw-id: //depot/perl@32012
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 15 |
1 files changed, 3 insertions, 12 deletions
@@ -56,7 +56,7 @@ tie. #endif #if defined(HAS_SIGACTION) && defined(SA_SIGINFO) -Signal_t Perl_csighandler(int sig, ...); +Signal_t Perl_csighandler(int sig, siginfo_t *, void *); #else Signal_t Perl_csighandler(int sig); #endif @@ -1307,7 +1307,7 @@ S_raise_signal(pTHX_ int sig) Signal_t #if defined(HAS_SIGACTION) && defined(SA_SIGINFO) -Perl_csighandler(int sig, ...) +Perl_csighandler(int sig, siginfo_t *sip PERL_UNUSED_DECL, void *uap PERL_UNUSED_DECL) #else Perl_csighandler(int sig) #endif @@ -1318,7 +1318,6 @@ Perl_csighandler(int sig) dTHX; #endif #if defined(HAS_SIGACTION) && defined(SA_SIGINFO) - va_list args; #endif #ifdef FAKE_PERSISTENT_SIGNAL_HANDLERS (void) rsignal(sig, PL_csighandlerp); @@ -1333,7 +1332,6 @@ Perl_csighandler(int sig) #endif #endif #if defined(HAS_SIGACTION) && defined(SA_SIGINFO) - va_start(args, sig); #endif if ( #ifdef SIGILL @@ -1352,7 +1350,6 @@ Perl_csighandler(int sig) else S_raise_signal(aTHX_ sig); #if defined(HAS_SIGACTION) && defined(SA_SIGINFO) - va_end(args); #endif } @@ -2778,7 +2775,7 @@ Perl_whichsig(pTHX_ const char *sig) Signal_t #if defined(HAS_SIGACTION) && defined(SA_SIGINFO) -Perl_sighandler(int sig, ...) +Perl_sighandler(int sig, siginfo_t *sip, void *uap PERL_UNUSED_DECL) #else Perl_sighandler(int sig) #endif @@ -2856,11 +2853,6 @@ Perl_sighandler(int sig) struct sigaction oact; if (sigaction(sig, 0, &oact) == 0 && oact.sa_flags & SA_SIGINFO) { - siginfo_t *sip; - va_list args; - - va_start(args, sig); - sip = (siginfo_t*)va_arg(args, siginfo_t*); if (sip) { HV *sih = newHV(); SV *rv = newRV_noinc((SV*)sih); @@ -2881,7 +2873,6 @@ Perl_sighandler(int sig) PUSHs(newSVpv((char *)sip, sizeof(*sip))); } - va_end(args); } } #endif |