Cauê Waneck 10 gadi atpakaļ
vecāks
revīzija
9e63a1bbee
1 mainītis faili ar 2 papildinājumiem un 2 dzēšanām
  1. 2 2
      gencommon.ml

+ 2 - 2
gencommon.ml

@@ -11129,10 +11129,10 @@ struct
 										epos = p;
 										epos = p;
 									};
 									};
 									(try
 									(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
 										fm.cf_overloads <- newf :: fm.cf_overloads
 									with | Not_found ->
 									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)
 										c.cl_ordered_fields <- newf :: c.cl_ordered_fields)
 								| _ -> assert false
 								| _ -> assert false
 							end
 							end