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

    }
    pid = fork();
    if (pid == -1) {
        Tcl_AppendResult(interp,
                "Cannot fork", NULL);
        return TCL_ERROR;
    }


    if (pid==0) {
	Tcl_InitNotifier();
    }

    Tcl_SetObjResult(interp, Tcl_NewIntObj(pid));
    return TCL_OK;
}

/*
 *----------------------------------------------------------------------
 *

>
>



>

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