Browse Source

added HMAny support (updated swflib)

Nicolas Cannasse 14 years ago
parent
commit
252a629736
1 changed files with 2 additions and 0 deletions
  1. 2 0
      genswf.ml

+ 2 - 0
genswf.ml

@@ -186,6 +186,8 @@ let rec make_tpath = function
 		assert false
 		assert false
 	| HMAttrib _ ->
 	| HMAttrib _ ->
 		assert false
 		assert false
+	| HMAny ->
+		assert false
 	| HMParams (t,params) ->
 	| HMParams (t,params) ->
 		let params = List.map (fun t -> TPType (CTPath (make_tpath t))) params in
 		let params = List.map (fun t -> TPType (CTPath (make_tpath t))) params in
 		{ (make_tpath t) with tparams = params }
 		{ (make_tpath t) with tparams = params }