Explorar el Código

correctly set function type for member var fields

Simon Krajewski hace 12 años
padre
commit
65e1038e2e
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  1. 1 1
      typeload.ml

+ 1 - 1
typeload.ml

@@ -214,7 +214,7 @@ let type_function_param ctx t e opt p =
 		t, e
 
 let type_var_field ctx t e stat p =
-	if stat then ctx.curfun <- FunStatic;
+	if stat then ctx.curfun <- FunStatic else ctx.curfun <- FunMember;
 	let e = type_expr ctx e (WithType t) in
 	unify ctx e.etype t p;
 	match t with