浏览代码

fix native paths in macros

Dan Korostelev 10 年之前
父节点
当前提交
0bc86e6a36
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      typer.ml

+ 1 - 1
typer.ml

@@ -4677,7 +4677,7 @@ and flush_macro_context mint ctx =
 	end else mint in
 	end else mint in
 	(* we should maybe ensure that all filters in Main are applied. Not urgent atm *)
 	(* we should maybe ensure that all filters in Main are applied. Not urgent atm *)
 	let expr_filters = [Codegen.AbstractCast.handle_abstract_casts mctx; Filters.captured_vars mctx.com; Filters.rename_local_vars mctx] in
 	let expr_filters = [Codegen.AbstractCast.handle_abstract_casts mctx; Filters.captured_vars mctx.com; Filters.rename_local_vars mctx] in
-	let type_filters = [Filters.add_field_inits mctx] in
+	let type_filters = [Filters.add_field_inits mctx; Filters.apply_native_paths mctx] in
 	let ready = fun t ->
 	let ready = fun t ->
 		Filters.apply_filters_once mctx expr_filters t;
 		Filters.apply_filters_once mctx expr_filters t;
 		List.iter (fun f -> f t) type_filters
 		List.iter (fun f -> f t) type_filters