Răsfoiți Sursa

reactivate Js features

Simon Krajewski 13 ani în urmă
părinte
comite
e2b27a6611
2 a modificat fișierele cu 3 adăugiri și 5 ștergeri
  1. 1 1
      Makefile
  2. 2 4
      common.ml

+ 1 - 1
Makefile

@@ -64,7 +64,7 @@ codegen.cmx: typeload.cmx typecore.cmx type.cmx genxml.cmx common.cmx ast.cmx
 
 common.cmx: type.cmx ast.cmx
 
-dce.cmx: type.cmx typer.cmx
+dce.cmx: type.cmx
 
 genas3.cmx: type.cmx common.cmx codegen.cmx ast.cmx
 

+ 2 - 4
common.ml

@@ -231,9 +231,7 @@ let add_feature com f =
 	Hashtbl.replace com.features f true
 
 let rec has_feature com f =
-	(* disabled for now because of problems with new DCE *)
-	true
-(* 	try
+	try
 		Hashtbl.find com.features f
 	with Not_found ->
 		if com.types = [] then defined com "all_features" else
@@ -252,7 +250,7 @@ let rec has_feature com f =
 			) in
 			let r = r || defined com "all_features" in
 			Hashtbl.add com.features f r;
-			r *)
+			r
 
 let error msg p = raise (Abort (msg,p))