From 6b5556326d9b922b299383de0b7b39f89ab6d595 Mon Sep 17 00:00:00 2001
From: varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Wed, 4 Apr 2012 11:59:36 +0000
Subject: Adjustments to cchecklink's options and verbosity

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1866 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 checklink/Library.ml | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'checklink/Library.ml')

diff --git a/checklink/Library.ml b/checklink/Library.ml
index dbe7b46..0014025 100644
--- a/checklink/Library.ml
+++ b/checklink/Library.ml
@@ -3,10 +3,16 @@ open BinPos
 
 type bitstring = Bitstring.bitstring
 
+let is_some = function
+| Some(_) -> true
+| None    -> false
+
 let from_some = function
 | Some(x) -> x
 | None    -> raise Not_found
 
+let filter_some l = List.(map from_some (filter is_some l))
+
 type 'a on_success =
   | OK of 'a
   | ERR of string
-- 
cgit v1.2.3