浏览代码

fix for abstract

Nicolas Cannasse 12 年之前
父节点
当前提交
c9b7e5cf30
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      genas3.ml

+ 2 - 0
genas3.ml

@@ -204,6 +204,8 @@ let rec type_str ctx t p =
 	match t with
 	| TEnum _ | TInst _ when List.memq t ctx.local_types ->
 		"*"
+	| TAbstract ({ a_impl = Some _ } as a,pl) ->
+		type_str ctx (apply_params a.a_types pl a.a_this) p
 	| TAbstract (a,_) ->
 		(match a.a_path with
 		| [], "Void" -> "void"