Diff
Not logged in

Differences From Artifact [166ca4e192]:

To Artifact [4c113d2b61]:


562
563
564
565
566
567
568
569
570


571
572
573
574
575
576
577
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 !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;
}