소스 검색

declare fakeEnum matches as exhaustive

Simon Krajewski 12 년 전
부모
커밋
51e201138f
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      matcher.ml

+ 2 - 0
matcher.ml

@@ -928,6 +928,8 @@ let convert_switch ctx st cases loop =
 		mk_index_call ()
 	| TInst({cl_path = [],"Array"},_) as t ->
 		mk (TField (e_st,quick_field t "length")) ctx.t.tint p
+	| TAbstract(a,_) when Meta.has Meta.FakeEnum a.a_meta ->
+		mk (TMeta((Meta.Exhaustive,[],p), e_st)) e_st.etype e_st.epos
 	| _ ->
 		e_st
 	in