X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=generator%2Fgenerator_c.ml;h=ca0907d51ce185655b16cdab062017a514e426a5;hp=2b4a179f86fa737be3f32950946ca0ba4f492545;hb=6391d1a7cfa10337a75465c72d49df3c9ebc65ca;hpb=04d8209077d2227eb1d42695ba71147f78987050

diff --git a/generator/generator_c.ml b/generator/generator_c.ml
index 2b4a179..ca0907d 100644
--- a/generator/generator_c.ml
+++ b/generator/generator_c.ml
@@ -100,7 +100,7 @@ let rec generate_prototype ?(extern = true) ?(static = false)
   if newline then pr "\n"
 
 (* Generate C call arguments, eg "(handle, foo, bar)" *)
-and generate_c_call_args ?handle ?(decl = false) style =
+and generate_c_call_args ?handle style =
   pr "(";
   let comma = ref false in
   let next () =
@@ -121,12 +121,11 @@ and generate_c_call_args ?handle ?(decl = false) style =
         pr "%s" (name_of_argt arg)
   ) (snd style);
   (* For RBufferOut calls, add implicit &size parameter. *)
-  if not decl then (
-    match fst style with
-    | RBufferOut _ ->
-        next ();
-        pr "&size"
-    | _ -> ()
+  (match fst style with
+   | RBufferOut _ ->
+       next ();
+       pr "&size"
+   | _ -> ()
   );
   pr ")"
 
@@ -759,6 +758,7 @@ and generate_linker_script () =
     "guestfs_safe_malloc";
     "guestfs_safe_strdup";
     "guestfs_safe_memdup";
+    "guestfs_tmpdir";
   ] in
   let functions =
     List.map (fun (name, _, _, _, _, _, _) -> "guestfs_" ^ name)