bugfix

doc/CHANGES.txt

@@ -7,8 +7,9 @@ TODO inlining : allow inlined getter/setter
 TODO inlining : substitute class+function type parameters in order to have fully typed expressions
 
 2008-??-??: 2.0
-	remove neko max array declaration (fixed in 1.7.0)
+	genneko : remove big array error (fixed in neko 1.7.1)
 	fixed neko.net.ThreadRemotingServer.onXML
+	genswf9 : fixed verify error with Null<Class> (was using dynamic access)
 
 2008-04-05: 1.19
 	fixed flash9 Array.toString

genswf9.ml

@@ -172,7 +172,17 @@ let rec follow_basic t =
 		| _ -> t)
 	| TLazy f ->
 		follow_basic (!f())
-	| TType (t,tl) when t.t_path <> ([],"Null") && t.t_path <> ([],"UInt") ->
+	| TType ({ t_path = [],"Null" },[tp]) ->
+		(match follow tp with
+		| TMono _
+		| TFun _
+		| TInst ({ cl_path = ([],"Int") },[])
+		| TInst ({ cl_path = ([],"Float") },[])
+		| TEnum ({ e_path = ([],"Bool") },[]) -> t
+		| _ -> tp)
+	| TType ({ t_path = [],"UInt" },[]) ->
+		t
+	| TType (t,tl) ->
 		follow_basic (apply_params t.t_types tl t.t_type)
 	| _ -> t