Explorar el Código

protect bugfix with Null<T>

Nicolas Cannasse hace 18 años
padre
commit
673785f842
Se han modificado 1 ficheros con 2 adiciones y 2 borrados
  1. 2 2
      genswf8.ml

+ 2 - 2
genswf8.ml

@@ -193,9 +193,9 @@ let rec is_protected ctx ?(stat=false) t field =
 		| Some t -> is_protected ctx ~stat t field)
 	| TLazy f ->
 		is_protected ctx ~stat ((!f)()) field
-	| TType (t,_) ->
+	| TType (t,tl) ->
 		(match t.t_static with
-		| None -> is_protected ctx ~stat t.t_type field
+		| None -> is_protected ctx ~stat (apply_params t.t_types tl t.t_type) field
 		| Some c -> is_protected ctx ~stat:true (TInst (c,[])) field)
 	| _ -> false