فهرست منبع

rename `m_features` to `m_if_feature`

Simon Krajewski 10 سال پیش
والد
کامیت
6d93c97d72
3فایلهای تغییر یافته به همراه4 افزوده شده و 4 حذف شده
  1. 1 1
      dce.ml
  2. 2 2
      type.ml
  3. 1 1
      typeload.ml

+ 1 - 1
dce.ml

@@ -427,7 +427,7 @@ let run com main full =
 		List.iter (fun (s,v) ->
 			if Hashtbl.mem dce.features s then Hashtbl.replace dce.features s (v :: Hashtbl.find dce.features s)
 			else Hashtbl.add dce.features s [v]
-		) m.m_extra.m_features;
+		) m.m_extra.m_if_feature;
 	) com.modules;
 	(* first step: get all entry points, which is the main method and all class methods which are marked with @:keep *)
 	List.iter (fun t -> match t with

+ 2 - 2
type.ml

@@ -290,7 +290,7 @@ and module_def_extra = {
 	mutable m_kind : module_kind;
 	mutable m_binded_res : (string, string) PMap.t;
 	mutable m_macro_calls : string list;
-	mutable m_features : (string *(tclass * tclass_field * bool)) list;
+	mutable m_if_feature : (string *(tclass * tclass_field * bool)) list;
 }
 
 and module_kind =
@@ -389,7 +389,7 @@ let module_extra file sign time kind =
 		m_kind = kind;
 		m_binded_res = PMap.empty;
 		m_macro_calls = [];
-		m_features = [];
+		m_if_feature = [];
 	}
 
 

+ 1 - 1
typeload.ml

@@ -2370,7 +2370,7 @@ let init_class ctx c p context_init herits fields =
 				let _,args,_ = Meta.get Meta.IfFeature f.cf_meta in
 				List.iter (fun e -> match fst e with
 					| EConst(String s) ->
-						ctx.m.curmod.m_extra.m_features <- (s,(c,f,is_static)) :: ctx.m.curmod.m_extra.m_features;
+						ctx.m.curmod.m_extra.m_if_feature <- (s,(c,f,is_static)) :: ctx.m.curmod.m_extra.m_if_feature;
 					| _ ->
 						error "String expected" (pos e)
 				) args