瀏覽代碼

allow to provide runtime support for extern inline methods with :runtime

Nicolas Cannasse 13 年之前
父節點
當前提交
559cfa74d9
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      type.ml

+ 1 - 1
type.ml

@@ -887,7 +887,7 @@ let rec unify a b =
 				with
 					Unify_error l -> error (invalid_field n :: l));
 				(match f1.cf_kind with
-				| Method MethInline when c.cl_extern || has_meta ":extern" f1.cf_meta ->
+				| Method MethInline when (c.cl_extern || has_meta ":extern" f1.cf_meta) && not (has_meta ":runtime" f1.cf_meta) ->
 					error [Has_no_runtime_field (a,n)]
 				| _ -> ());
 			) an.a_fields;