|
@@ -231,6 +231,8 @@ let rec type_id ctx t =
|
|
type_path ctx c.cl_path)
|
|
type_path ctx c.cl_path)
|
|
| TAbstract ({ a_path = [],"Null"},_) ->
|
|
| TAbstract ({ a_path = [],"Null"},_) ->
|
|
HMPath ([],"Object")
|
|
HMPath ([],"Object")
|
|
|
|
+ | TAbstract ({ a_path = ["flash"],"AnyType"},_) ->
|
|
|
|
+ HMAny
|
|
| TAbstract (a,_) when Meta.has Meta.CoreType a.a_meta ->
|
|
| TAbstract (a,_) when Meta.has Meta.CoreType a.a_meta ->
|
|
type_path ctx a.a_path
|
|
type_path ctx a.a_path
|
|
| TFun _ | TType ({ t_path = ["flash";"utils"],"Function" },[]) ->
|
|
| TFun _ | TType ({ t_path = ["flash";"utils"],"Function" },[]) ->
|
|
@@ -264,6 +266,8 @@ let classify ctx t =
|
|
KBool
|
|
KBool
|
|
| TAbstract ({ a_path = [],"Void" },_) | TEnum ({ e_path = [],"Void" },_) ->
|
|
| TAbstract ({ a_path = [],"Void" },_) | TEnum ({ e_path = [],"Void" },_) ->
|
|
KDynamic
|
|
KDynamic
|
|
|
|
+ | TAbstract ({ a_path = ["flash"],"AnyType" },_) ->
|
|
|
|
+ KDynamic
|
|
| TEnum ({ e_path = ["flash"],"XmlType"; e_extern = true },_) ->
|
|
| TEnum ({ e_path = ["flash"],"XmlType"; e_extern = true },_) ->
|
|
KType (HMPath ([],"String"))
|
|
KType (HMPath ([],"String"))
|
|
| TEnum (e,_) ->
|
|
| TEnum (e,_) ->
|
|
@@ -1034,6 +1038,8 @@ let rec gen_type ctx t =
|
|
write ctx (HGetLex t);
|
|
write ctx (HGetLex t);
|
|
List.iter (gen_type ctx) tl;
|
|
List.iter (gen_type ctx) tl;
|
|
write ctx (HApplyType (List.length tl));
|
|
write ctx (HApplyType (List.length tl));
|
|
|
|
+ | HMAny ->
|
|
|
|
+ write ctx (HNull)
|
|
| _ ->
|
|
| _ ->
|
|
write ctx (HGetLex t)
|
|
write ctx (HGetLex t)
|
|
|
|
|