Browse Source

[dce] keep everything if a class extends an extern (closes #6168)

Simon Krajewski 8 years ago
parent
commit
23f94bf617
1 changed files with 1 additions and 1 deletions
  1. 1 1
      src/optimization/dce.ml

+ 1 - 1
src/optimization/dce.ml

@@ -43,7 +43,7 @@ type dce = {
 (* check for @:keepSub metadata, which forces @:keep on child classes *)
 (* check for @:keepSub metadata, which forces @:keep on child classes *)
 let rec super_forces_keep c =
 let rec super_forces_keep c =
 	Meta.has Meta.KeepSub c.cl_meta || match c.cl_super with
 	Meta.has Meta.KeepSub c.cl_meta || match c.cl_super with
-	| Some (csup,_) -> super_forces_keep csup
+	| Some (csup,_) -> csup.cl_extern || super_forces_keep csup
 	| _ -> false
 	| _ -> false
 
 
 let is_std_file dce file =
 let is_std_file dce file =