Răsfoiți Sursa

[cs] suppressed warnings for C#

Caue Waneck 13 ani în urmă
părinte
comite
d30383beeb
1 a modificat fișierele cu 5 adăugiri și 2 ștergeri
  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_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