cleanup [skip ci]

abeaumont · Jan 10, 2018 · 70f34a5 · 70f34a5
1 parent b44fdfa
commit 70f34a5
Showing 1 changed file with 0 additions and 8 deletions.
diff --git a/src/optimization/dce.ml b/src/optimization/dce.ml
@@ -258,14 +258,6 @@ let rec mark_dependent_fields dce csup n stat =
 	in
 	loop_inheritance csup
 
-(*
-	if not stat then begin
-			match csup.cl_constructor with
-				| None -> ()
-				| Some ctor -> mark ctor
-		end
-*)
-
 (* expr and field evaluation *)
 
 let opt f e = match e with None -> () | Some e -> f e