From e5d9686068fb9ee30d45d9fc6c933facbd402f68 Mon Sep 17 00:00:00 2001 From: varobert Date: Thu, 12 Jul 2012 15:13:21 +0000 Subject: checklink: dead and debug code elimination git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1974 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- checklink/Check.ml | 1 - checklink/Frameworks.ml | 2 -- 2 files changed, 3 deletions(-) (limited to 'checklink') 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 = -- cgit v1.2.3