diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-09-04 14:17:43 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-09-04 14:17:43 +0000 |
| commit | a0c8d7373311facda78d250751203371cc0487b2 (patch) | |
| tree | cfb65b4d0bff35f71cede7ae09e647433845236f /otherlibs/win32unix/getpid.c | |
| parent | ac9f8e8094ea19199a24fd5c67053718198ed172 (diff) | |
Merge du stage de Pascal Cuoq
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@952 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/win32unix/getpid.c')
| -rw-r--r-- | otherlibs/win32unix/getpid.c | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/otherlibs/win32unix/getpid.c b/otherlibs/win32unix/getpid.c new file mode 100644 index 000000000..e3b586190 --- /dev/null +++ b/otherlibs/win32unix/getpid.c @@ -0,0 +1,22 @@ +/***********************************************************************/ +/* */ +/* Objective Caml */ +/* */ +/* Xavier Leroy and Pascal Cuoq, projet Cristal, INRIA Rocquencourt */ +/* */ +/* Copyright 1996 Institut National de Recherche en Informatique et */ +/* Automatique. Distributed only by permission. */ +/* */ +/***********************************************************************/ + +/* $Id$ */ + +#include <mlvalues.h> +#include "unixsupport.h" + +extern value val_process_id; + +value unix_getpid(value unit) /* ML */ +{ + return val_process_id; +} |