Răsfoiți Sursa

allow inline in extern

Nicolas Cannasse 15 ani în urmă
părinte
comite
2bea56c69b
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  1. 1 1
      typeload.ml

+ 1 - 1
typeload.ml

@@ -664,7 +664,7 @@ let init_class ctx c p herits fields =
 				t
 			) in
 			let delay = (
-				if (c.cl_extern || c.cl_interface) && cf.cf_name <> "__init__" then
+				if ((c.cl_extern && not inline) || c.cl_interface) && cf.cf_name <> "__init__" then
 					(fun() -> ())
 				else begin
 					cf.cf_type <- TLazy r;