diff options
| author |  varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-06-04 08:53:56 +0000 |
|---|---|---|
| committer | varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-06-04 08:53:56 +0000 |
| commit | 6256626f743bfcdd488fa1ec9d086d14f11109b4 (patch) | |
| tree | 732c489f836a3eddd2eebcf8f66aa080d0eb0ce7 /checklink/Library.ml | |
| parent | d4b3174fb44f4c790c258932f8f4d27ad73aefd7 (diff) | |
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
Diffstat (limited to 'checklink/Library.ml')
| -rw-r--r-- | checklink/Library.ml | 3 |
1 files changed, 3 insertions, 0 deletions
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))) |