From 6256626f743bfcdd488fa1ec9d086d14f11109b4 Mon Sep 17 00:00:00 2001 From: varobert Date: Mon, 4 Jun 2012 08:53:56 +0000 Subject: checklink: improved user-friendliness Command-line options have been renamed and reordered. Error messages verbosity is more fine-grained. Possibly spurious debug messages are more clearly separated from the actual conclusions of the process. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1913 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- checklink/Library.ml | 3 +++ 1 file changed, 3 insertions(+) (limited to 'checklink/Library.ml') diff --git a/checklink/Library.ml b/checklink/Library.ml index ebcbac8..f6b1883 100644 --- a/checklink/Library.ml +++ b/checklink/Library.ml @@ -161,3 +161,6 @@ let sorted_lookup (compare: 'a -> 'b -> int) (arr: 'a array) (v: 'b): 'a option then sorted_lookup_aux i_from (i_mid - 1) else Some(arr.(i_mid)) in sorted_lookup_aux 0 (Array.length arr - 1) + +let list_false_indices a = + filter_some (Array.(to_list (mapi (fun ndx b -> if b then None else Some(ndx)) a))) -- cgit v1.2.3