summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--checklink/Check.ml1
-rw-r--r--checklink/Frameworks.ml2
2 files changed, 0 insertions, 3 deletions
diff --git a/checklink/Check.ml b/checklink/Check.ml
index dff9f8f..c60a4a7 100644
--- a/checklink/Check.ml
+++ b/checklink/Check.ml
@@ -3308,7 +3308,6 @@ let check_missed_symbols efw =
match missed_syms_l with
| [] -> efw
| _ ->
- Printf.printf "%s\n" (string_of_list string_of_int ", " missed_syms_l);
let symtab = efw.elf.e_symtab in
let symlist_names = string_of_list (fun ndx -> symtab.(ndx).st_name) " " in
let missed_funs =
diff --git a/checklink/Frameworks.ml b/checklink/Frameworks.ml
index 92f110c..074a432 100644
--- a/checklink/Frameworks.ml
+++ b/checklink/Frameworks.ml
@@ -28,8 +28,6 @@ type byte_chunk_desc =
| Padding
| Unknown of string
-let add_uniq x l = if List.mem x l then l else x :: l
-
(* This type specifies whether its argument was inferred by the tool or provided
via a config file. *)
type 'a inferrable =