Explorar o código

always inline variable fields, even with --no-inline in place (fixed issue #1244)

Simon Krajewski %!s(int64=13) %!d(string=hai) anos
pai
achega
4d402c7431
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      typeload.ml

+ 1 - 1
typeload.ml

@@ -1158,7 +1158,7 @@ let init_class ctx c p context_init herits fields =
 		let p = f.cff_pos in
 		let stat = List.mem AStatic f.cff_access in
 		let extern = has_meta ":extern" f.cff_meta || c.cl_extern in
-		let inline = List.mem AInline f.cff_access && not ctx.com.display && (ctx.g.doinline || extern) in
+		let inline = List.mem AInline f.cff_access && (match f.cff_kind with FFun _ -> not ctx.com.display && (ctx.g.doinline || extern) | _ -> true) in
 		let override = List.mem AOverride f.cff_access in
 		if override && not !has_override then begin
 			has_override := true;