Differences From Artifact [166ca4e192]:

• File unix/tclUnixTest.c — part of check-in [48ebb48d02] at 2013-07-23 09:27:59 on branch trunk — Add "testfork" test command. Not used in any test-case yet (user: jan.nijtmans size: 20630) [more...]

To Artifact [4c113d2b61]:

• File unix/tclUnixTest.c — part of check-in [4e3f024bd7] at 2013-08-05 22:00:58 on branch trunk — Mark unixforkevent-1.1 nonPortable, until proven on more platforms. Make sure that when testing for pthread_atfork the thread library is taken into account. (user: jan.nijtmans size: 20670) [more...]

562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577

    }
    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;
}

|
|

562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577

    }
    pid = fork();
    if (pid == -1) {
        Tcl_AppendResult(interp,
                "Cannot fork", NULL);
        return TCL_ERROR;
    }
#if !defined(HAVE_PTHREAD_ATFORK) || defined(MAC_OSX_TCL)
    /* Only needed when pthread_atfork is not present or on OSX. */
    if (pid==0) {
	Tcl_InitNotifier();
    }
#endif
    Tcl_SetObjResult(interp, Tcl_NewIntObj(pid));
    return TCL_OK;
}