|
@@ -999,7 +999,7 @@ let check_extends ctx c t p = match follow t with
|
|
|
| TInst ({ cl_path = [],"Array" },_)
|
|
|
| TInst ({ cl_path = [],"String" },_)
|
|
|
| TInst ({ cl_path = [],"Date" },_)
|
|
|
- | TInst ({ cl_path = [],"Xml" },_) when ((not (platform ctx.com Cpp)) && (match c.cl_path with ("mt" | "flash") :: _ , _ -> false | _ -> true)) ->
|
|
|
+ | TInst ({ cl_path = [],"Xml" },_) ->
|
|
|
error "Cannot extend basic class" p;
|
|
|
| TInst (csup,params) ->
|
|
|
if is_parent c csup then error "Recursive class" p;
|