Commit dde14581 authored by Paul Eggert's avatar Paul Eggert

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

Don't assume pid_t fits in int.
parent 2121662f
......@@ -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)
......
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment