[As3] generate value cast to Function using "as" (closes HaxeFoundati…

…on#2200)
fponticelli · Sep 25, 2013 · 75b9cd1 · 75b9cd1
1 parent 1a6c3ac
commit 75b9cd1
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/genas3.ml b/genas3.ml
@@ -834,9 +834,14 @@ and gen_value ctx e =
 		gen_value ctx e1
 	| TCast (e1,None) ->
 		let s = type_str ctx e.etype e1.epos in
-		if s = "*" then
+		begin match s with
+		| "*" ->
 			gen_value ctx e1
-		else begin
+		| "Function" ->
+			spr ctx "((";
+			gen_value ctx e1;
+			print ctx ") as %s)" s;
+		| _ ->
 			print ctx "%s(" s;
 			gen_value ctx e1;
 			spr ctx ")";