From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 10 Aug 1999 14:35:30 +0000 (+0000)
Subject: Use Pid_t.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d8a83dd3ecf2b61bda27d39770e9942db2eb1719;p=p5sagit%2Fp5-mst-13.2.git

Use Pid_t.

p4raw-id: //depot/cfgperl@3950
---

diff --git a/doio.c b/doio.c
index 838d67f..cc34733 100644
--- a/doio.c
+++ b/doio.c
@@ -413,7 +413,7 @@ Perl_do_open9(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 	    }
 	}
 	if (fd != PerlIO_fileno(fp)) {
-	    int pid;
+	    Pid_t pid;
 	    SV *sv;
 
 	    PerlLIO_dup2(PerlIO_fileno(fp), fd);
diff --git a/embed.pl b/embed.pl
index cd3b578..6f22017 100755
--- a/embed.pl
+++ b/embed.pl
@@ -1496,7 +1496,7 @@ p	|void	|set_numeric_local
 p	|void	|set_numeric_radix
 p	|void	|set_numeric_standard
 p	|void	|require_pv	|const char* pv
-p	|void	|pidgone	|int pid|int status
+p	|void	|pidgone	|Pid_t pid|int status
 p	|void	|pmflag		|U16* pmfl|int ch
 p	|OP*	|pmruntime	|OP* pm|OP* expr|OP* repl
 p	|OP*	|pmtrans	|OP* o|OP* expr|OP* repl
@@ -1702,7 +1702,7 @@ p	|UV	|utf8_to_uv	|U8 *s|I32* retlen
 p	|U8*	|uv_to_utf8	|U8 *d|UV uv
 p	|void	|vivify_defelem	|SV* sv
 p	|void	|vivify_ref	|SV* sv|U32 to_what
-p	|I32	|wait4pid	|int pid|int* statusp|int flags
+p	|I32	|wait4pid	|Pid_t pid|int* statusp|int flags
 p	|void	|warn		|const char* pat|...
 p	|void	|vwarn		|const char* pat|va_list* args
 p	|void	|warner		|U32 err|const char* pat|...
diff --git a/perlapi.c b/perlapi.c
index 05681a5..48898da 100755
--- a/perlapi.c
+++ b/perlapi.c
@@ -3008,7 +3008,7 @@ Perl_require_pv(pTHXo_ const char* pv)
 
 #undef  Perl_pidgone
 void
-Perl_pidgone(pTHXo_ int pid, int status)
+Perl_pidgone(pTHXo_ Pid_t pid, int status)
 {
     ((CPerlObj*)pPerl)->Perl_pidgone(pid, status);
 }
@@ -4285,7 +4285,7 @@ Perl_vivify_ref(pTHXo_ SV* sv, U32 to_what)
 
 #undef  Perl_wait4pid
 I32
-Perl_wait4pid(pTHXo_ int pid, int* statusp, int flags)
+Perl_wait4pid(pTHXo_ Pid_t pid, int* statusp, int flags)
 {
     return ((CPerlObj*)pPerl)->Perl_wait4pid(pid, statusp, flags);
 }
diff --git a/pp_sys.c b/pp_sys.c
index f469ed0..300b453 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3764,7 +3764,7 @@ PP(pp_getpgrp)
 {
 #ifdef HAS_GETPGRP
     djSP; dTARGET;
-    int pid;
+    Pid_t pid;
     I32 value;
 
     if (MAXARG < 1)
@@ -3789,8 +3789,8 @@ PP(pp_setpgrp)
 {
 #ifdef HAS_SETPGRP
     djSP; dTARGET;
-    int pgrp;
-    int pid;
+    Pid_t pgrp;
+    Pid_t pid;
     if (MAXARG < 2) {
 	pgrp = 0;
 	pid = 0;
diff --git a/proto.h b/proto.h
index e10ef7e..b7fed35 100644
--- a/proto.h
+++ b/proto.h
@@ -465,7 +465,7 @@ VIRTUAL void	Perl_set_numeric_local(pTHX);
 VIRTUAL void	Perl_set_numeric_radix(pTHX);
 VIRTUAL void	Perl_set_numeric_standard(pTHX);
 VIRTUAL void	Perl_require_pv(pTHX_ const char* pv);
-VIRTUAL void	Perl_pidgone(pTHX_ int pid, int status);
+VIRTUAL void	Perl_pidgone(pTHX_ Pid_t pid, int status);
 VIRTUAL void	Perl_pmflag(pTHX_ U16* pmfl, int ch);
 VIRTUAL OP*	Perl_pmruntime(pTHX_ OP* pm, OP* expr, OP* repl);
 VIRTUAL OP*	Perl_pmtrans(pTHX_ OP* o, OP* expr, OP* repl);
@@ -655,7 +655,7 @@ VIRTUAL UV	Perl_utf8_to_uv(pTHX_ U8 *s, I32* retlen);
 VIRTUAL U8*	Perl_uv_to_utf8(pTHX_ U8 *d, UV uv);
 VIRTUAL void	Perl_vivify_defelem(pTHX_ SV* sv);
 VIRTUAL void	Perl_vivify_ref(pTHX_ SV* sv, U32 to_what);
-VIRTUAL I32	Perl_wait4pid(pTHX_ int pid, int* statusp, int flags);
+VIRTUAL I32	Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags);
 VIRTUAL void	Perl_warn(pTHX_ const char* pat, ...);
 VIRTUAL void	Perl_vwarn(pTHX_ const char* pat, va_list* args);
 VIRTUAL void	Perl_warner(pTHX_ U32 err, const char* pat, ...);
diff --git a/util.c b/util.c
index c84510e..2c349e2 100644
--- a/util.c
+++ b/util.c
@@ -2218,7 +2218,7 @@ Perl_my_popen(pTHX_ char *cmd, char *mode)
 {
     int p[2];
     register I32 This, that;
-    register I32 pid;
+    register Pid_t pid;
     SV *sv;
     I32 doexec = strNE(cmd,"-");
     I32 did_pipes = 0;
@@ -2289,7 +2289,7 @@ Perl_my_popen(pTHX_ char *cmd, char *mode)
 #endif	/* defined OS2 */
 	/*SUPPRESS 560*/
 	if (tmpgv = gv_fetchpv("$",TRUE, SVt_PV))
-	    sv_setiv(GvSV(tmpgv), (IV)getpid());
+	    sv_setiv(GvSV(tmpgv), getpid());
 	PL_forkprocess = 0;
 	hv_clear(PL_pidstatus);	/* we have no children */
 	return Nullfp;
@@ -2511,8 +2511,8 @@ Perl_my_pclose(pTHX_ PerlIO *ptr)
     Sigsave_t hstat, istat, qstat;
     int status;
     SV **svp;
-    int pid;
-    int pid2;
+    Pid_t pid;
+    Pid_t pid2;
     bool close_failed;
     int saved_errno;
 #ifdef VMS
@@ -2523,7 +2523,7 @@ Perl_my_pclose(pTHX_ PerlIO *ptr)
 #endif
 
     svp = av_fetch(PL_fdpid,PerlIO_fileno(ptr),TRUE);
-    pid = (int)SvIVX(*svp);
+    pid = SvIVX(*svp);
     SvREFCNT_dec(*svp);
     *svp = &PL_sv_undef;
 #ifdef OS2
@@ -2562,7 +2562,7 @@ Perl_my_pclose(pTHX_ PerlIO *ptr)
 
 #if  !defined(DOSISH) || defined(OS2) || defined(WIN32)
 I32
-Perl_wait4pid(pTHX_ int pid, int *statusp, int flags)
+Perl_wait4pid(pTHX_ Pid_t pid, int *statusp, int flags)
 {
     SV *sv;
     SV** svp;
@@ -2622,7 +2622,7 @@ Perl_wait4pid(pTHX_ int pid, int *statusp, int flags)
 
 void
 /*SUPPRESS 590*/
-Perl_pidgone(pTHX_ int pid, int status)
+Perl_pidgone(pTHX_ Pid_t pid, int status)
 {
     register SV *sv;
     char spid[TYPE_CHARS(int)];