From a22f63ba68abf6248439980ceae5b861ae420f47 Mon Sep 17 00:00:00 2001 From: Pav Lucistnik Date: Sat, 23 Apr 2005 12:35:36 +0000 Subject: OCaml library implementing an interface to FreeBSD's POSIX semaphores. PR: ports/80108 Submitted by: Paul Argentoff --- devel/ocaml-sem/files/patch-sem_stubs.c | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 devel/ocaml-sem/files/patch-sem_stubs.c (limited to 'devel/ocaml-sem/files/patch-sem_stubs.c') diff --git a/devel/ocaml-sem/files/patch-sem_stubs.c b/devel/ocaml-sem/files/patch-sem_stubs.c new file mode 100644 index 000000000000..81bdba6bf7db --- /dev/null +++ b/devel/ocaml-sem/files/patch-sem_stubs.c @@ -0,0 +1,18 @@ +--- sem_stubs.c.orig Tue Apr 19 16:20:34 2005 ++++ sem_stubs.c Sat Apr 23 14:18:56 2005 +@@ -137,12 +137,14 @@ + }; + + value stub_sem_getvalue(value sem) { ++ int * vp; ++ + CAMLparam1(sem); + CAMLlocal2(estr, v); + + estr = copy_string(""); + +- int * vp = calloc(1, sizeof(int)); ++ vp = calloc(1, sizeof(int)); + if (sem_getvalue((sem_t *)sem,vp) == -1) { + uerror("sem_getvalue", estr); + }; -- cgit v1.2.3