Test example program.

[wrappi.git] / generator / wrappi_c.ml

diff --git a/generator/wrappi_c.ml b/generator/wrappi_c.ml
index 1a04234..16e6caf 100644 (file)
--- a/generator/wrappi_c.ml
+++ b/generator/wrappi_c.ml
@@ -29,7 +29,7 @@ let c_of_ptype ~param = function
   | TEnum name -> sprintf "enum wrap_%s" name
   | TFile -> if param then "const char *" else "char *"
   | THash t -> if param then "char * const *" else "char **"
-  | TInt -> "intXXX" (* XXX depends on preconditions *)
+  | TInt -> "int" (* XXX not int, correct type depends on preconditions *)
   | TInt32 -> "int32_t"
   | TInt64 -> "int64_t"
   | TList t -> assert false (* XXX not implemented *)
@@ -43,7 +43,7 @@ let c_of_ptype ~param = function
   | TUnion name -> sprintf "union wrap_%s" name
 
 let c_of_rtype = function
-  | RErr -> "int"
+  | RVoid -> "void"
   | Return t -> c_of_ptype ~param:false t
 
 let generate_lib_wrappi_h api =