This function generates C function decls so name it accordingly.
---
generator/C.ml | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/generator/C.ml b/generator/C.ml
index f4d24b650d..013f81edf4 100644
--- a/generator/C.ml
+++ b/generator/C.ml
@@ -213,7 +213,7 @@ let
pr "%s nbd_%s " (type_of_ret ret) name;
print_arg_list ~handle:true ?wrap ?maxcol ?closure_style args optargs
-let print_extern ?wrap ?closure_style name args optargs ret =
+let print_fndecl ?wrap ?closure_style name args optargs ret =
pr "extern ";
print_call ?wrap ?closure_style name args optargs ret;
pr ";\n"
@@ -303,9 +303,9 @@ let
) oclosures;
pr "\n"
-let print_extern_and_define ?wrap name args optargs ret =
+let print_fndecl_and_define ?wrap name args optargs ret =
let name_upper = String.uppercase_ascii name in
- print_extern ?wrap name args optargs ret;
+ print_fndecl ?wrap name args optargs ret;
pr "#define LIBNBD_HAVE_NBD_%s 1\n" name_upper;
pr "\n"
@@ -394,7 +394,7 @@ let
print_closure_structs ();
List.iter (
fun (name, { args; optargs; ret }) ->
- print_extern_and_define ~wrap:true name args optargs ret
+ print_fndecl_and_define ~wrap:true name args optargs ret
) handle_calls;
List.iter (
fun (ns, ctxts) -> print_ns ns ctxts
@@ -413,7 +413,7 @@ let
pr "\n";
List.iter (
fun (name, { args; optargs; ret }) ->
- print_extern ~wrap:true ~closure_style:Pointer ("unlocked_" ^ name)
+ print_fndecl ~wrap:true ~closure_style:Pointer ("unlocked_" ^ name)
args optargs ret
) handle_calls;
pr "\n";
--
2.37.0.rc2