For
2010-01-12 Julian Brown <julian@codesourcery.com>
* config/arm/neon-schedgen.ml (Utils): Don't try to
open missing module.
(find_with_result): New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@155835
138bc75d-0d04-0410-961f-
82ee72b054a4
+2010-01-12 Julian Brown <julian@codesourcery.com>
+
+ * config/arm/neon-schedgen.ml (Utils): Don't try to
+ open missing module.
+ (find_with_result): New.
+
2010-01-12 Jakub Jelinek <jakub@redhat.com>
PR debug/42662
and at present we do not emit specific guards.)
*)
-open Utils
+let find_with_result fn lst =
+ let rec scan = function
+ [] -> raise Not_found
+ | l::ls ->
+ match fn l with
+ Some result -> result
+ | _ -> scan ls in
+ scan lst
let n1 = 1 and n2 = 2 and n3 = 3 and n4 = 4 and n5 = 5 and n6 = 6
and n7 = 7 and n8 = 8 and n9 = 9