generate Void->Void correctly

genxml.ml

@@ -98,6 +98,7 @@ let rec gen_type ?(tfunc=None) t =
 	| TInst (c,params) -> gen_type_decl "c" (TClassDecl c) params
 	| TAbstract (a,params) -> gen_type_decl "x" (TAbstractDecl a) params
 	| TType (t,params) -> gen_type_decl "t" (TTypeDecl t) params
+	| TFun ([],r) -> node "f" [] [(node "x" ["path","Void"] []);gen_type r]
 	| TFun (args,r) ->
 		let s_const ct = match ct with
 			| TString s -> Printf.sprintf "'%s'" (Ast.s_escape s)

std/haxe/rtti/XmlParser.hx

@@ -558,7 +558,7 @@ class XmlParser {
 			CAbstract(mkPath(x.att.path),xtypeparams(x));
 		case "f":
 			var args = new List();
-			var aname = x.att.a.split(":");
+			var aname = x.has.a ? x.att.a.split(":") : ["",""]; // Void -> Void
 			var eargs = aname.iterator();
 			var evalues = x.has.v ? x.att.v.split(":").iterator() : null;
 			for( e in x.elements ) {