ocaml/otherlibs/unix/getgid.c

8 lines
115 B
C

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