Change 24710 by [EMAIL PROTECTED] on 2005/06/06 06:01:30
Subject: [PATCH] Re: blead attribute warnings, cygwin + gcc 3.4.1
From: Yitzchak Scott-Thoennes <[EMAIL PROTECTED]>
Date: Sun, 5 Jun 2005 20:43:55 -0700
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/cygwin/cygwin.c#9 edit
Differences ...
==== //depot/perl/cygwin/cygwin.c#9 (text) ====
Index: perl/cygwin/cygwin.c
--- perl/cygwin/cygwin.c#8~23961~ Fri Feb 11 01:32:50 2005
+++ perl/cygwin/cygwin.c Sun Jun 5 23:01:30 2005
@@ -160,11 +160,14 @@
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 @@
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);
End of Patch.
