diff options
author | Ian Campbell <ian.campbell@citrix.com> | 2012-01-10 16:19:09 +0000 |
---|---|---|
committer | Ian Campbell <ian.campbell@citrix.com> | 2012-01-10 16:19:09 +0000 |
commit | e00ef46e17a54e25ccf2daf36cf6548d38485eca (patch) | |
tree | c6da881fda27796be1fe45dd2904c54766bd74e1 /tools/ocaml | |
parent | eae124c8f3dbff64aab18ef69d86a83cf9e7ae06 (diff) | |
download | xen-e00ef46e17a54e25ccf2daf36cf6548d38485eca.tar.gz xen-e00ef46e17a54e25ccf2daf36cf6548d38485eca.tar.bz2 xen-e00ef46e17a54e25ccf2daf36cf6548d38485eca.zip |
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@citrix.com>
Acked-by: Ian Jackson <ian.jackson.citrix.com>
Committed-by: Ian Jackson <ian.jackson.citrix.com>
Diffstat (limited to 'tools/ocaml')
-rw-r--r-- | tools/ocaml/libs/xl/genwrap.py | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tools/ocaml/libs/xl/genwrap.py b/tools/ocaml/libs/xl/genwrap.py index 5f8639a0a7..2e65aec761 100644 --- a/tools/ocaml/libs/xl/genwrap.py +++ b/tools/ocaml/libs/xl/genwrap.py @@ -59,6 +59,8 @@ def ocaml_type_of(ty): 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 |