Fix Neon Scheduler ocaml description.
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. From-SVN: r155835
This commit is contained in:
parent
acc2dd549f
commit
24fe19c35a
2 changed files with 14 additions and 1 deletions
|
@ -1,3 +1,9 @@
|
|||
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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue