소스 검색

protect bugfix with Null<T>

Nicolas Cannasse 18 년 전
부모
커밋
673785f842
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  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)
 		| Some t -> is_protected ctx ~stat t field)
 	| TLazy f ->
 	| TLazy f ->
 		is_protected ctx ~stat ((!f)()) field
 		is_protected ctx ~stat ((!f)()) field
-	| TType (t,_) ->
+	| TType (t,tl) ->
 		(match t.t_static with
 		(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)
 		| Some c -> is_protected ctx ~stat:true (TInst (c,[])) field)
 	| _ -> false
 	| _ -> false