From: Paul Eggert Date: Thu, 27 Oct 2011 18:15:18 +0000 (-0700) Subject: * process.c: (emacs_get_tty_pgrp, Fprocess_running_child_p, process_send_signal): X-Git-Tag: emacs-24.2.90~471^2~6^2~133 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dde1458174882077ca799d03f0adea91286650a3;p=emacs.git * 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 f97195a9b2c..bdb3434558c 100644 --- 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 8270a57c177..f04f4611ab7 100644 --- a/src/process.c +++ b/src/process.c @@ -5630,10 +5630,10 @@ Output from processes can arrive in between bunches. */) /* 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);