X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=generator%2Fgenerator_utils.ml;h=851122714ab2a73520fdbc90baacfb7410b84801;hp=329e6ceb75bf45ae0fc859d934f4a8bb364c71c0;hb=b4618fb060b40ba70f2be28b1b1ad625722a7edf;hpb=b42262c3db6013c363e2532cf7a466ccaf4d49f0 diff --git a/generator/generator_utils.ml b/generator/generator_utils.ml index 329e6ce..8511227 100644 --- a/generator/generator_utils.ml +++ b/generator/generator_utils.ml @@ -83,8 +83,8 @@ let rstructs_used_by functions = in List.iter ( - fun (_, style, _, _, _, _, _) -> - match fst style with + fun (_, (ret, _, _), _, _, _, _, _) -> + match ret with | RStruct (_, structname) -> update structname RStructOnly | RStructList (_, structname) -> update structname RStructListOnly | _ -> () @@ -240,6 +240,7 @@ let seq_of_test = function | TestOutputLength (s, _) | TestOutputBuffer (s, _) | TestOutputStruct (s, _) | TestOutputFileMD5 (s, _) + | TestOutputDevice (s, _) | TestLastFail s -> s let c_quote str = @@ -302,3 +303,5 @@ let pod2text ~width name longdesc = pod2text_memo_updated (); lines +(* Compare two actions (for sorting). *) +let action_compare (n1,_,_,_,_,_,_) (n2,_,_,_,_,_,_) = compare n1 n2