Caue Waneck 12 gadi atpakaļ
vecāks
revīzija
24b8e6413d
1 mainītis faili ar 1 papildinājumiem un 1 dzēšanām
  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 )
                 | Some (chosen_cf, csup, tlsup) ->
                     { 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
                     )}
             in