* process.c: (emacs_get_tty_pgrp, Fprocess_running_child_p, process_send_signal):

Don't assume pid_t fits in int.

diff --git a/src/ChangeLog b/src/ChangeLog
index f97195a9b2ca0157f26fa9fe9155988defc5f8ee..bdb3434558c3dd53cb47fd87f5feb8073b614f55 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -574,6 +574,8 @@
        (conv_lisp_to_sockaddr): Don't assume fixnums fit into int.
        (Faccept_process_output): Use duration_to_sec_usec to do proper
        overflow checking on durations.
+       (emacs_get_tty_pgrp, Fprocess_running_child_p, process_send_signal):
+       Don't assume pid_t fits in int.
        * puresize.h (PURESIZE_RATIO): Shrink this to 8/6 on 32-bit hosts
        configured --with-wide-int.
        * scroll.c (calculate_scrolling, calculate_direct_scrolling)

diff --git a/src/process.c b/src/process.c
index 8270a57c177114373af5ff43f7ca79d5f4f5c0ea..f04f4611ab79508f79fb4991da98f3123903aaee 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -5630,10 +5630,10 @@ Output from processes can arrive in between bunches.  */)
 \f
 /* Return the foreground process group for the tty/pty that
    the process P uses.  */
-static int
+static pid_t
 emacs_get_tty_pgrp (struct Lisp_Process *p)
 {
-  int gid = -1;
+  pid_t gid = -1;
 
 #ifdef TIOCGPGRP
   if (ioctl (p->infd, TIOCGPGRP, &gid) == -1 && ! NILP (p->tty_name))
@@ -5663,7 +5663,7 @@ return t unconditionally.  */)
 {
   /* Initialize in case ioctl doesn't exist or gives an error,
      in a way that will cause returning t.  */
-  int gid;
+  pid_t gid;
   Lisp_Object proc;
   struct Lisp_Process *p;
 
@@ -5704,7 +5704,7 @@ process_send_signal (Lisp_Object process, int signo, Lisp_Object current_group,
 {
   Lisp_Object proc;
   register struct Lisp_Process *p;
-  int gid;
+  pid_t gid;
   int no_pgrp = 0;
 
   proc = get_process (process);