remove dead code

Author: bobzhang

jscomp/ext/hash_gen.ml

@@ -249,23 +249,3 @@ end
 
 
 
-#if 0 
-let rec bucket_length accu = function
-  | Empty -> accu
-  | Cons l -> bucket_length (accu + 1) l.next
-
-let stats h =
-  let mbl =
-    Ext_array.fold_left h.data 0 (fun m b -> max m (bucket_length 0 b)) in
-  let histo = Array.make (mbl + 1) 0 in
-  Ext_array.iter h.data
-    (fun b ->
-       let l = bucket_length 0 b in
-       histo.(l) <- histo.(l) + 1)
-  ;
-  {Hash.
-    num_bindings = h.size;
-    num_buckets = Array.length h.data;
-    max_bucket_length = mbl;
-    bucket_histogram = histo }
-#end

jscomp/ext/hash_set_gen.ml

@@ -178,24 +178,3 @@ sig
 end
 
 
-#if 0
-let rec bucket_length accu = function
-  | Empty -> accu
-  | Cons l -> bucket_length (accu + 1) l.next
-
-
-
-let stats h =
-  let mbl =
-    Ext_array.fold_left h.data 0 (fun m b -> max m (bucket_length 0 b)) in
-  let histo = Array.make (mbl + 1) 0 in
-  Ext_array.iter h.data
-    (fun b ->
-       let l = bucket_length 0 b in
-       histo.(l) <- histo.(l) + 1)
-  ;
-  {Hashtbl.num_bindings = h.size;
-   num_buckets = Array.length h.data;
-   max_bucket_length = mbl;
-   bucket_histogram = histo }
-#end

jscomp/main/ounit_tests_main.ml

@@ -28,7 +28,6 @@ let suites =
     Ounit_bal_tree_tests.suites;
     Ounit_hash_stubs_test.suites;
     Ounit_map_tests.suites;
-    Ounit_ordered_hash_set_tests.suites;
     Ounit_hashtbl_tests.suites;
     Ounit_string_tests.suites;
     Ounit_topsort_tests.suites;

jscomp/ounit_tests/ounit_hash_set_tests.ml

@@ -91,19 +91,6 @@ let suites =
 
     end 
     ;
-#if 0
-    __LOC__ >:: begin fun _ ->
-      let v = Ordered_hash_set_string.create 3 in 
-      for i =  0 to 10 do
-        Ordered_hash_set_string.add v (string_of_int i) 
-      done; 
-      for i = 100 downto 2 do
-        Ordered_hash_set_string.add v (string_of_int i)
-      done;
-      OUnit.assert_equal (Ordered_hash_set_string.to_sorted_array v )
-        const_tbl
-    end;
-#end    
     __LOC__ >:: begin fun _ -> 
       let duplicate arr = 
         let len = Array.length arr in