the underlying type of Int is evidently NOT String

git-svn-id: http://haxe.googlecode.com/svn/trunk@6686 f16182fa-f095-11de-8f43-4547254af6c6
aduros-alt · May 24, 2013 · 16e9fce · 16e9fce
1 parent de0a051
commit 16e9fce
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git 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
@@ -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
 					| [] ->