X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=generator%2Fgenerator_checks.ml;h=0fb8ea423fbe5abad1e6a71b55fe0087fde371ff;hp=347404703b4eaa2371551a6dbc22346448861b93;hb=692f127447d399db21c2e93026d4d2b0ac1839d1;hpb=14490c3e1aac61c6ac90f28828896683f64f0dc9

diff --git a/generator/generator_checks.ml b/generator/generator_checks.ml
index 3474047..0fb8ea4 100644
--- a/generator/generator_checks.ml
+++ b/generator/generator_checks.ml
@@ -129,6 +129,19 @@ let () =
       ) optargs
   ) all_functions;
 
+  (* Some parameter types not supported for daemon functions. *)
+  List.iter (
+    fun (name, (_, args, optargs), _, _, _, _, _) ->
+      let check_arg_type = function
+        | Pointer _ ->
+            failwithf "Pointer is not supported for daemon function %s."
+              name
+        | _ -> ()
+      in
+      List.iter check_arg_type args;
+      List.iter check_arg_type optargs;
+  ) daemon_functions;
+
   (* Check short descriptions. *)
   List.iter (
     fun (name, _, _, _, _, shortdesc, _) ->