|
@@ -833,7 +833,9 @@ let configure gen =
|
|
| TClassDecl { cl_path = (["haxe"], "Int32") } -> write w (path_s (["haxe"], "Int32"))
|
|
| TClassDecl { cl_path = (["haxe"], "Int32") } -> write w (path_s (["haxe"], "Int32"))
|
|
| TClassDecl cl -> write w (t_s (TInst(cl, List.map (fun _ -> t_empty) cl.cl_types)))
|
|
| TClassDecl cl -> write w (t_s (TInst(cl, List.map (fun _ -> t_empty) cl.cl_types)))
|
|
| TEnumDecl en -> write w (t_s (TEnum(en, List.map (fun _ -> t_empty) en.e_types)))
|
|
| TEnumDecl en -> write w (t_s (TEnum(en, List.map (fun _ -> t_empty) en.e_types)))
|
|
- | TTypeDecl td -> write w (t_s (gen.gfollow#run_f (TType(td, List.map (fun _ -> t_empty) td.t_types)))) )
|
|
|
|
|
|
+ | TTypeDecl td -> write w (t_s (gen.gfollow#run_f (TType(td, List.map (fun _ -> t_empty) td.t_types))))
|
|
|
|
+ | TAbstractDecl a -> write w (t_s (TAbstract(a, List.map (fun _ -> t_empty) a.a_types)))
|
|
|
|
+ )
|
|
| TParenthesis e ->
|
|
| TParenthesis e ->
|
|
write w "("; expr_s w e; write w ")"
|
|
write w "("; expr_s w e; write w ")"
|
|
| TArrayDecl el ->
|
|
| TArrayDecl el ->
|
|
@@ -1486,7 +1488,8 @@ let configure gen =
|
|
newline w
|
|
newline w
|
|
end;
|
|
end;
|
|
(not e.e_extern)
|
|
(not e.e_extern)
|
|
- | TTypeDecl e ->
|
|
|
|
|
|
+ | TAbstractDecl _
|
|
|
|
+ | TTypeDecl _ ->
|
|
false
|
|
false
|
|
in
|
|
in
|
|
|
|
|