Mercurial > emacs
comparison src/process.c @ 14496:beca72fdb420
(sigchld_handler): Use cleaner end-of-list test.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 05 Feb 1996 20:32:20 +0000 |
parents | 2bb4652305c1 |
children | 912efc7b4d10 |
comparison
equal
deleted
inserted
replaced
14495:fc4be3d538e0 | 14496:beca72fdb420 |
---|---|
3319 #endif /* no WNOHANG */ | 3319 #endif /* no WNOHANG */ |
3320 | 3320 |
3321 /* Find the process that signaled us, and record its status. */ | 3321 /* Find the process that signaled us, and record its status. */ |
3322 | 3322 |
3323 p = 0; | 3323 p = 0; |
3324 for (tail = Vprocess_alist; XSYMBOL (tail) != XSYMBOL (Qnil); tail = XCONS (tail)->cdr) | 3324 for (tail = Vprocess_alist; CONSP (tail); tail = XCONS (tail)->cdr) |
3325 { | 3325 { |
3326 proc = XCONS (XCONS (tail)->car)->cdr; | 3326 proc = XCONS (XCONS (tail)->car)->cdr; |
3327 p = XPROCESS (proc); | 3327 p = XPROCESS (proc); |
3328 if (EQ (p->childp, Qt) && XFASTINT (p->pid) == pid) | 3328 if (EQ (p->childp, Qt) && XFASTINT (p->pid) == pid) |
3329 break; | 3329 break; |
3331 } | 3331 } |
3332 | 3332 |
3333 /* Look for an asynchronous process whose pid hasn't been filled | 3333 /* Look for an asynchronous process whose pid hasn't been filled |
3334 in yet. */ | 3334 in yet. */ |
3335 if (p == 0) | 3335 if (p == 0) |
3336 for (tail = Vprocess_alist; XSYMBOL (tail) != XSYMBOL (Qnil); tail = XCONS (tail)->cdr) | 3336 for (tail = Vprocess_alist; CONSP (tail); tail = XCONS (tail)->cdr) |
3337 { | 3337 { |
3338 proc = XCONS (XCONS (tail)->car)->cdr; | 3338 proc = XCONS (XCONS (tail)->car)->cdr; |
3339 p = XPROCESS (proc); | 3339 p = XPROCESS (proc); |
3340 if (INTEGERP (p->pid) && XINT (p->pid) == -1) | 3340 if (INTEGERP (p->pid) && XINT (p->pid) == -1) |
3341 break; | 3341 break; |