use @Chris00 fix to configurator instead of mine

as seen in ocaml/dune#1726
rgrinberg · Dec 31, 2018 · 8f7efe9 · 8f7efe9
1 parent 3ef5a52
commit 8f7efe9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/configure/gen_c_primitives.ml b/src/configure/gen_c_primitives.ml
@@ -107,7 +107,7 @@ let includes = []
 let () =
   C.main ~name:"ctypes" (fun c ->
     let import_int l =
-      match C.C_define.(import c ~prelude ~includes [l,Type.Uint]) with
+      match C.C_define.(import c ~prelude ~includes [l,Type.Int]) with
       |[_,C.C_define.Value.Int i] -> i
       |_ -> failwith ("unable to find integer definition for " ^ l) in
     let import_string l  =

diff --git a/src/ctypes-foreign-base/config/gen_libffi_abi.ml b/src/ctypes-foreign-base/config/gen_libffi_abi.ml
@@ -75,7 +75,7 @@ let find_defined_symbols c c_flags =
     else acc) [] symbols
 
 let get_symbol c c_flags symbol =
-  match CD.(import c ~includes ~c_flags [symbol,Type.Uint]) with
+  match CD.(import c ~includes ~c_flags [symbol,Type.Int]) with
   |[_,CD.Value.Int i] -> i
   |_ -> failwith (Printf.sprintf "unexpected error parsing ffi.h: is %s not an integer?" symbol)