diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2005-06-05 13:43:55 -0700 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-06-06 06:01:30 +0000 |
| commit | d2dc01263aa94d94cfd0b1f446143051b6cedff9 (patch) | |
| tree | 0b9f37e6f3365f0c259b77573692643a5f003be1 /cygwin | |
| parent | 098f0b123c5e53f85af434b493a8adabcde2e18f (diff) | |
| download | perl-d2dc01263aa94d94cfd0b1f446143051b6cedff9.tar.gz | |
Re: blead attribute warnings, cygwin + gcc 3.4.1
Message-ID: <20050606034354.GA1456@efn.org>
p4raw-id: //depot/perl@24710
Diffstat (limited to 'cygwin')
| -rw-r--r-- | cygwin/cygwin.c | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/cygwin/cygwin.c b/cygwin/cygwin.c index ceb2e816db..18d4db5425 100644 --- a/cygwin/cygwin.c +++ b/cygwin/cygwin.c @@ -160,11 +160,14 @@ static XS(XS_Cygwin_pid_to_winpid) { dXSARGS; + dXSTARG; + pid_t pid, RETVAL; + if (items != 1) Perl_croak(aTHX_ "Usage: Cygwin::pid_to_winpid(pid)"); - pid_t pid = (pid_t)SvIV(ST(0)); - pid_t RETVAL; - dXSTARG; + + pid = (pid_t)SvIV(ST(0)); + if ((RETVAL = cygwin_internal(CW_CYGWIN_PID_TO_WINPID, pid)) > 0) { XSprePUSH; PUSHi((IV)RETVAL); XSRETURN(1); @@ -176,11 +179,14 @@ static XS(XS_Cygwin_winpid_to_pid) { dXSARGS; + dXSTARG; + pid_t pid, RETVAL; + if (items != 1) Perl_croak(aTHX_ "Usage: Cygwin::winpid_to_pid(pid)"); - pid_t pid = (pid_t)SvIV(ST(0)); - pid_t RETVAL; - dXSTARG; + + pid = (pid_t)SvIV(ST(0)); + if ((RETVAL = cygwin32_winpid_to_pid(pid)) > 0) { XSprePUSH; PUSHi((IV)RETVAL); XSRETURN(1); |