[hcoop/debian/mlton.git] / runtime / basis / Posix / Process / fork.c

#include "platform.h"

extern struct GC_state gcState;

C_Errno_t(C_PId_t) Posix_Process_fork (void) {
  pid_t pid = fork ();
#if (defined (__Darwin__))
  /* Contrary to the documentation, a forked process does not inherit
   * the alternate signal stack; re-install the alternate signal
   * stack.
   */
  if (pid == 0) {
    GC_initSignalStack(&gcState);
  }
#endif
  return pid;
}
Commit	Line	Data
7f918cf1 CE	1	#include "platform.h"
	2
	3	extern struct GC_state gcState;
	4
	5	C_Errno_t(C_PId_t) Posix_Process_fork (void) {
	6	pid_t pid = fork ();
	7	#if (defined (__Darwin__))
	8	/* Contrary to the documentation, a forked process does not inherit
	9	* the alternate signal stack; re-install the alternate signal
	10	* stack.
	11	*/
	12	if (pid == 0) {
	13	GC_initSignalStack(&gcState);
	14	}
	15	#endif
	16	return pid;
	17	}