Fix Neon Scheduler ocaml description.

Backport from mainline.

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.

From-SVN: r155836
This commit is contained in:
Ramana Radhakrishnan 2010-01-12 11:57:58 +00:00 committed by Ramana Radhakrishnan
parent cebb4ea5a4
commit c2ad0dddbb
2 changed files with 17 additions and 1 deletions

View File

@ -1,3 +1,12 @@
2010-01-12 Ramana Radhakrishnan <ramana.radhakrishnan@arm.com>
* Backport from mainline
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

View File

@ -48,7 +48,14 @@
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