162 |
|
|
163 |
|
int ray_pnprocs = 0; /* number of child processes */ |
164 |
|
int ray_pnidle = 0; /* number of idle children */ |
165 |
– |
int ray_pnbatch = 0; /* throughput over responsiveness? */ |
165 |
|
|
166 |
|
static struct child_proc { |
167 |
|
RT_PID pid; /* child process id */ |
212 |
|
for (i = ray_pnprocs; nc && i--; ) { |
213 |
|
if (r_proc[i].npending > 0) |
214 |
|
continue; /* child looks busy */ |
215 |
< |
n = r_send_next - sfirst; |
217 |
< |
if (ray_pnbatch) |
218 |
< |
nc--; /* maximize bundling for batch calc */ |
219 |
< |
else |
220 |
< |
n /= nc--; /* distribute work for interactivity */ |
215 |
> |
n = (r_send_next - sfirst) / nc--; |
216 |
|
if (!n) |
217 |
|
continue; |
218 |
|
/* smuggle set size in crtype */ |
510 |
|
static int inclose = 0; |
511 |
|
RAY res; |
512 |
|
int i, status = 0; |
513 |
+ |
/* check no child / in child */ |
514 |
+ |
if (ray_pnprocs <= 0) |
515 |
+ |
return; |
516 |
|
/* check recursion */ |
517 |
|
if (inclose) |
518 |
|
return; |
519 |
|
inclose++; |
522 |
– |
/* check no child / in child */ |
523 |
– |
if (ray_pnprocs <= 0) |
524 |
– |
return; |
520 |
|
/* check argument */ |
521 |
|
if ((nsub <= 0) | (nsub > ray_pnprocs)) |
522 |
|
nsub = ray_pnprocs; |
523 |
|
/* clear our ray queue */ |
524 |
+ |
i = r_send_next; |
525 |
+ |
r_send_next = 0; |
526 |
|
while (ray_presult(&res,0) > 0) |
527 |
< |
; |
528 |
< |
r_send_next = 0; /* hard reset in case of error */ |
527 |
> |
++i; |
528 |
> |
if (i) { |
529 |
> |
sprintf(errmsg, "dropped %d rays in ray_pclose()", i); |
530 |
> |
error(WARNING, errmsg); |
531 |
> |
} |
532 |
|
r_recv_first = r_recv_next = RAYQLEN; |
533 |
|
/* close send pipes */ |
534 |
|
for (i = ray_pnprocs-nsub; i < ray_pnprocs; i++) |
542 |
|
for (i = 0; i < nsub; ) { |
543 |
|
int j, mystatus; |
544 |
|
RT_PID pid = wait(&mystatus); |
545 |
+ |
if (pid < 0) { |
546 |
+ |
status = 127<<8; |
547 |
+ |
break; |
548 |
+ |
} |
549 |
|
for (j = ray_pnprocs-nsub; j < ray_pnprocs; j++) |
550 |
|
if (r_proc[j].pid == pid) { |
551 |
|
if (mystatus) |