X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=generator%2Fgenerator_daemon.ml;h=e3d87e50e84095c9492c20960c8a7b91a7d3fb1a;hp=df9f965a76c87bde70f56c53c72b88f2daa05aac;hb=692f127447d399db21c2e93026d4d2b0ac1839d1;hpb=9ff99418361cd1b56b00e4ffef52444021e60c72

diff --git a/generator/generator_daemon.ml b/generator/generator_daemon.ml
index df9f965..e3d87e5 100644
--- a/generator/generator_daemon.ml
+++ b/generator/generator_daemon.ml
@@ -105,6 +105,7 @@ and generate_daemon_actions () =
              | BufferIn n ->
                  pr "  const char *%s;\n" n;
                  pr "  size_t %s_size;\n" n
+             | Pointer _ -> assert false
            ) args
       );
       pr "\n";
@@ -174,6 +175,7 @@ and generate_daemon_actions () =
              | BufferIn n ->
                  pr "  %s = args.%s.%s_val;\n" n n n;
                  pr "  %s_size = args.%s.%s_len;\n" n n n
+             | Pointer _ -> assert false
            ) args;
            pr "\n"
       );