ocaml/otherlibs/unix/getpid.c

8 lines
115 B
C

#include <mlvalues.h>
#include "unix.h"
value unix_getpid() /* ML */
{
return Val_int(getpid());
}