2
0
Caue Waneck 12 жил өмнө
parent
commit
24b8e6413d
1 өөрчлөгдсөн 1 нэмэгдсэн , 1 устгасан
  1. 1 1
      gencommon.ml

+ 1 - 1
gencommon.ml

@@ -1666,7 +1666,7 @@ struct
                     ( gen.gcon.error "Super call must be the first call when extending native types." scall.epos; assert false )
                     ( gen.gcon.error "Super call must be the first call when extending native types." scall.epos; assert false )
                 | Some (chosen_cf, csup, tlsup) ->
                 | Some (chosen_cf, csup, tlsup) ->
                     { scall with eexpr = TCall(
                     { scall with eexpr = TCall(
-                      { eexpr = TField(mk_classtype_access csup scall.epos, FStatic(csup, chosen_cf)); etype = apply_params csup.cl_types tlsup chosen_cf.cf_type; epos = scall.epos },
+                      { eexpr = TField(mk_classtype_access csup scall.epos, FStatic(csup, chosen_cf)); etype = apply_params chosen_cf.cf_params tlsup chosen_cf.cf_type; epos = scall.epos },
                       (mk_local me scall.epos) :: params
                       (mk_local me scall.epos) :: params
                     )}
                     )}
             in
             in