[Xen-changelog] [xen-unstable] ocaml: Correct ocaml type name for Aggregate types.

[Xen patchbot-unstable <patchbot@xxxxxxx>]

# HG changeset patch
# User Ian Campbell <ian.campbell@xxxxxxxxxx>
# Date 1326212349 0
# Node ID 37e7efaf8f3c1d890d3a40fdd608f4f46318df91
# Parent  6f8d5e8fdf1f77915c8b8c3b740a9eeec6ce869d
ocaml: Correct ocaml type name for Aggregate types.

No change to the generated code because this path isn't used yet.

Signed-off-by: Ian Campbell <ian.campbell@xxxxxxxxxx>
Acked-by: Ian Jackson <ian.jackson.citrix.com>
Committed-by: Ian Jackson <ian.jackson.citrix.com>
---


diff -r 6f8d5e8fdf1f -r 37e7efaf8f3c tools/ocaml/libs/xl/genwrap.py
--- a/tools/ocaml/libs/xl/genwrap.py    Mon Jan 16 16:36:15 2012 +0100
+++ b/tools/ocaml/libs/xl/genwrap.py    Tue Jan 10 16:19:09 2012 +0000
@@ -59,6 +59,8 @@
         if not typename:
             raise NotImplementedError("No typename for Builtin %s (%s)" % 
(ty.typename, type(ty)))
         return typename
+    elif isinstance(ty,libxltypes.Aggregate):
+        return ty.rawname.capitalize() + ".t"
     else:
         return ty.rawname
 

_______________________________________________
Xen-changelog mailing list
Xen-changelog@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/xen-changelog