diff options
| -rw-r--r-- | checklink/Check.ml | 1 | ||||
| -rw-r--r-- | checklink/Frameworks.ml | 2 |
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 = |