From: Richard W.M. Jones Date: Wed, 20 Oct 2010 12:35:43 +0000 (+0100) Subject: generator: Remove unused parameter. X-Git-Tag: 1.5.23~17 X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=fcd75e021a12fbd93c4d51fbca7844fdb4f7436f;p=libguestfs.git generator: Remove unused parameter. generate_c_call_args optional decl parameter is never actually used, so remove it. --- diff --git a/generator/generator_c.ml b/generator/generator_c.ml index 78ba5ec..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 ")"