From 24fe19c35aec386d2166ab266efdafe446190de5 Mon Sep 17 00:00:00 2001 From: Julian Brown Date: Tue, 12 Jan 2010 11:50:36 +0000 Subject: [PATCH] Fix Neon Scheduler ocaml description. For 2010-01-12 Julian Brown * config/arm/neon-schedgen.ml (Utils): Don't try to open missing module. (find_with_result): New. From-SVN: r155835 --- gcc/ChangeLog | 6 ++++++ gcc/config/arm/neon-schedgen.ml | 9 ++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 4d8cfb3cfd49..17d322413c5d 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,9 @@ +2010-01-12 Julian Brown + + * config/arm/neon-schedgen.ml (Utils): Don't try to + open missing module. + (find_with_result): New. + 2010-01-12 Jakub Jelinek PR debug/42662 diff --git a/gcc/config/arm/neon-schedgen.ml b/gcc/config/arm/neon-schedgen.ml index e564742011d5..d735ea06bdac 100644 --- a/gcc/config/arm/neon-schedgen.ml +++ b/gcc/config/arm/neon-schedgen.ml @@ -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 -- 2.47.3