diff options
| author |  varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-12 15:13:21 +0000 |
|---|---|---|
| committer | varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-12 15:13:21 +0000 |
| commit | e5d9686068fb9ee30d45d9fc6c933facbd402f68 (patch) | |
| tree | c19161210593420fbcf90866830bbf054d8fddef | |
| parent | 5b99eec6f36dbac9d59d519cc58ce37dd6251abe (diff) | |
checklink: dead and debug code elimination
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1974 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
| -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 = |