From 16e9fce45d1157165eb28271998f5b2e08b503e1 Mon Sep 17 00:00:00 2001 From: "simon@haxe.org" Date: Fri, 24 May 2013 09:36:48 +0000 Subject: [PATCH] the underlying type of Int is evidently NOT String git-svn-id: http://haxe.googlecode.com/svn/trunk@6686 f16182fa-f095-11de-8f43-4547254af6c6 --- genphp.ml | 1 + typeload.ml | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/genphp.ml b/genphp.ml index e624f981a..6bf7dfdb0 100644 --- a/genphp.ml +++ b/genphp.ml @@ -208,6 +208,7 @@ let rec is_string_type t = (match !(a.a_status) with | Statics ({cl_path = ([], "String")}) -> true | _ -> false) + | TAbstract (a,pl) -> is_string_type (Codegen.Abstract.get_underlying_type a pl) | _ -> false let is_string_expr e = is_string_type e.etype diff --git a/typeload.ml b/typeload.ml index 78c29acc4..d50bc035a 100644 --- a/typeload.ml +++ b/typeload.ml @@ -116,7 +116,9 @@ let make_module ctx mpath file tdecls loadp = } in decls := (TAbstractDecl a, decl) :: !decls; match d.d_data with - | [] when Meta.has Meta.CoreType a.a_meta -> acc + | [] when Meta.has Meta.CoreType a.a_meta -> + a.a_this <- t_dynamic; + acc | fields -> let rec loop = function | [] ->