浏览代码

[cs] Really fix #4363

Cauê Waneck 10 年之前
父节点
当前提交
9e63a1bbee
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      gencommon.ml

+ 2 - 2
gencommon.ml

@@ -11129,10 +11129,10 @@ struct
 										epos = p;
 									};
 									(try
-										let fm = PMap.find f.cf_name c.cl_fields in
+										let fm = PMap.find name c.cl_fields in
 										fm.cf_overloads <- newf :: fm.cf_overloads
 									with | Not_found ->
-										c.cl_fields <- PMap.add f.cf_name newf c.cl_fields;
+										c.cl_fields <- PMap.add name newf c.cl_fields;
 										c.cl_ordered_fields <- newf :: c.cl_ordered_fields)
 								| _ -> assert false
 							end