Differences From Artifact [e3a5d38775]:
- File unix/tclUnixTest.c — part of check-in [6f69bbba43] at 2013-07-21 14:52:57 on branch rfe-notifier-fork — Rebase to core-8-5-branch Add "testfork" test command to be usable in testcase. (user: jan.nijtmans size: 21539) [more...]
To Artifact [4a4a62eb71]:
- File unix/tclUnixTest.c — part of check-in [362b6e3375] at 2013-07-22 11:11:10 on branch rfe-notifier-fork — Tcl_InitNotifier() call in TestforkObjCmd() is only necessary when pthread_atfork() is not available. (user: jan.nijtmans size: 21632) [more...]
| ︙ | |||
570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 | 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 | + + + |
}
pid = fork();
if (pid == -1) {
Tcl_AppendResult(interp,
"Cannot fork", NULL);
return TCL_ERROR;
}
#ifndef HAVE_PTHREAD_ATFORK
/* Only needed when pthread_atfork is not present. */
if (pid==0) {
Tcl_InitNotifier();
}
#endif
Tcl_SetObjResult(interp, Tcl_NewIntObj(pid));
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
|
| ︙ |