2
0
Cauê Waneck 10 жил өмнө
parent
commit
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