소스 검색

fixed bug when super.inlineFunction()

Nicolas Cannasse 15 년 전
부모
커밋
fbce86e6cd
1개의 변경된 파일1개의 추가작업 그리고 0개의 파일을 삭제
  1. 1 0
      optimizer.ml

+ 1 - 0
optimizer.ml

@@ -50,6 +50,7 @@ let type_inline ctx cf f ethis params tret p =
 			assert false
 	in
 	let params = loop params f.tf_args in
+	let ethis = (match ethis.eexpr with TConst TSuper -> { ethis with eexpr = TConst TThis } | _ -> ethis) in
 	let vthis = gen_local ctx ethis.etype in
 	let this_count = ref 0 in
 	let local i =