[Libguestfs] [libnbd PATCH 06/23] generator: factor out "num_args" in "print_ocaml_binding"

Trivially factor out the "num_args" value, for making a subsequent patch easier to review. Bugzilla: https://bugzilla.redhat.com/show_bug.cgi?id=2172516 Signed-off-by: Laszlo Ersek <lersek(a)redhat.com&gt; --- generator/OCaml.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/generator/OCaml.ml b/generator/OCaml.ml index c49a1f203b9c..a854afd56171 100644 --- a/generator/OCaml.ml +++ b/generator/OCaml.ml @@ -798,14 +798,15 @@ let pr "}\n"; pr "\n"; - if num_params args optargs > 5 then ( + let num_args = num_params args optargs in + if num_args > 5 then ( pr "/* Byte-code compat function because this method has > 5 parameters.\n"; pr " */\n"; pr "value\n"; pr "nbd_internal_ocaml_nbd_%s_byte (value *argv, int argn)\n" name; pr "{\n"; pr " return nbd_internal_ocaml_nbd_%s (" name; - for i = 0 to num_params args optargs - 1 do + for i = 0 to num_args - 1 do if i > 0 then pr ", "; pr "argv[%d]" i done;