浏览代码

[cs] fixed Issue #952

Caue Waneck 13 年之前
父节点
当前提交
73b446404f
共有 2 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      gencommon.ml
  2. 0 0
      std/cs/_std/Array.hx

+ 1 - 1
gencommon.ml

@@ -3895,7 +3895,7 @@ struct
               let name = String.concat "." ((fst cl.cl_path) @ [snd cl.cl_path; original_name]) (* explicitly define it *) in
               let cast_cf = create_cast_cfield gen cl name in
               
-              cl.cl_ordered_fields <- cast_cf :: cl.cl_ordered_fields;
+              (if not cl.cl_interface then cl.cl_ordered_fields <- cast_cf :: cl.cl_ordered_fields);
               let iface_cf = mk_class_field original_name cast_cf.cf_type false cast_cf.cf_pos (Method MethNormal) cast_cf.cf_params in
               
               iface_cf.cf_type <- cast_cf.cf_type;

文件差异内容过多而无法显示
+ 0 - 0
std/cs/_std/Array.hx


部分文件因为文件数量过多而无法显示