[Libguestfs] [libnbd PATCH 05/23] generator: wrap nbd_internal_ocaml_raise_closed() calls in "ocaml/nbd-c.c"
Example effect, in
nbd_internal_ocaml_nbd_aio_connect_systemd_socket_activation():
struct nbd_handle *h = NBD_val (hv);
if (h == NULL)
- nbd_internal_ocaml_raise_closed
("NBD.aio_connect_systemd_socket_activation");
+ nbd_internal_ocaml_raise_closed (
+ "NBD.aio_connect_systemd_socket_activation"
+ );
char **argv = (char **) nbd_internal_ocaml_string_list (argvv);
int r;
Bugzilla: https://bugzilla.redhat.com/show_bug.cgi?id=2172516
Signed-off-by: Laszlo Ersek <lersek(a)redhat.com>
---
generator/OCaml.ml | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/generator/OCaml.ml b/generator/OCaml.ml
index 94ab1d589738..c49a1f203b9c 100644
--- a/generator/OCaml.ml
+++ b/generator/OCaml.ml
@@ -633,7 +633,9 @@ let
pr " struct nbd_handle *h = NBD_val (hv);\n";
pr " if (h == NULL)\n";
- pr " nbd_internal_ocaml_raise_closed (\"NBD.%s\");\n" name;
+ pr " nbd_internal_ocaml_raise_closed (\n";
+ pr " \"NBD.%s\"\n" name;
+ pr " );\n";
pr "\n";
List.iter (