浏览代码

[cs] suppressed warnings for C#

Caue Waneck 13 年之前
父节点
当前提交
d30383beeb
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      gencs.ml

+ 5 - 2
gencs.ml

@@ -833,7 +833,9 @@ let configure gen =
             | 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)))
             | 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 ->
           write w "("; expr_s w e; write w ")"
         | TArrayDecl el ->
@@ -1486,7 +1488,8 @@ let configure gen =
           newline w
         end;
         (not e.e_extern)
-      | TTypeDecl e ->
+      | TAbstractDecl _
+      | TTypeDecl _ ->
         false
   in