X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=generator%2Fgenerator_utils.ml;h=6dc11bfd84474e4fd45cde801dbcbbb41ce656da;hp=425a57941f8e4668715d4dc876290152da6af9e9;hb=d8346d5d6428c7293d1ddf58e4f9ec4b7de25380;hpb=f661db2c393d1b7e4211c55682b7fac82a70e36d;ds=sidebyside

diff --git a/generator/generator_utils.ml b/generator/generator_utils.ml
index 425a579..6dc11bf 100644
--- a/generator/generator_utils.ml
+++ b/generator/generator_utils.ml
@@ -230,7 +230,7 @@ let map_chars f str =
 let name_of_argt = function
   | Pathname n | Device n | Dev_or_Path n | String n | OptString n
   | StringList n | DeviceList n | Bool n | Int n | Int64 n
-  | FileIn n | FileOut n | BufferIn n | Key n -> n
+  | FileIn n | FileOut n | BufferIn n | Key n | Pointer (_, n) -> n
 
 let seq_of_test = function
   | TestRun s | TestOutput (s, _) | TestOutputList (s, _)