File ocamlfuse.patch of Package ocaml-fuse

Overview Repositories Revisions Requests Users Attributes Meta

File ocamlfuse.patch of Package ocaml-fuse

---
 lib/Fuse_util.c       |    3 ++-
 lib/Unix_util_stubs.c |    1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

--- a/lib/Fuse_util.c
+++ b/lib/Fuse_util.c
@@ -37,6 +37,7 @@
 #include <caml/mlvalues.h>
 #include <caml/callback.h>
 
+#include <unistd.h>
 #include <stdlib.h>
 #include <stdio.h>
 #include <errno.h>
@@ -598,18 +599,18 @@ static OPNAME##_RTYPE gm281_ops_##OPNAME
 {\
   CAMLparam0(); \
   CAMLlocal4(vstring, vpath, vres, vtmp); \
-  int res=-1; \
+  OPNAME##_RTYPE res=(OPNAME##_RTYPE)(long)0; \
   OPNAME##_CB \
   if (Tag_val(vres)==1) /* Result is not Bad */ \
      { \
-       res=0; \
+       /* already clear */; \
        OPNAME##_RES /* res can be changed here */ \
      } \
   else \
   { \
     if (Is_block(Field(vres,0)))  /* This is EUNKNOWNERR of int in ocaml */ \
-	res=-Int_val(Field(Field(vres,0),0));				\
-    else res=-ml2c_unix_error(Int_val(Field(vres,0))); \
+	res=(OPNAME##_RTYPE)(long)-Int_val(Field(Field(vres,0),0));				\
+    else res=(OPNAME##_RTYPE)(long)-ml2c_unix_error(Int_val(Field(vres,0))); \
   } \
   CAMLreturnT(OPNAME##_RTYPE, res); \
 }\
--- a/lib/Unix_util_stubs.c
+++ b/lib/Unix_util_stubs.c
@@ -24,6 +24,7 @@
   vincenzo_ml@yahoo.it
 */
 
+#include <unistd.h>
 #include <stddef.h>
 #include <string.h>
 #include <errno.h>

Places

File ocamlfuse.patch of Package ocaml-fuse

Places