浏览代码

pass unapplied type parameters instead of empty arrays as local_type

Simon Krajewski 11 年之前
父节点
当前提交
279e84eeed
共有 1 个文件被更改,包括 4 次插入4 次删除
  1. 4 4
      typer.ml

+ 4 - 4
typer.ml

@@ -3744,10 +3744,10 @@ let make_macro_api ctx p =
 			match ctx.g.get_build_infos() with
 			| Some (mt,_) ->
 				Some (match mt with
-					| TClassDecl c -> TInst (c,[])
-					| TEnumDecl e -> TEnum (e,[])
-					| TTypeDecl t -> TType (t,[])
-					| TAbstractDecl a -> TAbstract(a,[]))
+					| TClassDecl c -> TInst (c,List.map snd c.cl_types)
+					| TEnumDecl e -> TEnum (e,List.map snd e.e_types)
+					| TTypeDecl t -> TType (t,List.map snd t.t_types)
+					| TAbstractDecl a -> TAbstract(a,List.map snd a.a_types))
 			| None ->
 				if ctx.curclass == null_class then
 					None