git.annexia.org
/
libguestfs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Enable autosync by default.
[libguestfs.git]
/
generator
/
generator_utils.ml
diff --git
a/generator/generator_utils.ml
b/generator/generator_utils.ml
index
2bdcc0d
..
8511227
100644
(file)
--- a/
generator/generator_utils.ml
+++ b/
generator/generator_utils.ml
@@
-83,8
+83,8
@@
let rstructs_used_by functions =
in
List.iter (
in
List.iter (
- fun (_,
style
, _, _, _, _, _) ->
- match
fst style
with
+ fun (_,
(ret, _, _)
, _, _, _, _, _) ->
+ match
ret
with
| RStruct (_, structname) -> update structname RStructOnly
| RStructList (_, structname) -> update structname RStructListOnly
| _ -> ()
| RStruct (_, structname) -> update structname RStructOnly
| RStructList (_, structname) -> update structname RStructListOnly
| _ -> ()
@@
-303,3
+303,5
@@
let pod2text ~width name longdesc =
pod2text_memo_updated ();
lines
pod2text_memo_updated ();
lines
+(* Compare two actions (for sorting). *)
+let action_compare (n1,_,_,_,_,_,_) (n2,_,_,_,_,_,_) = compare n1 n2