From: Julian Brown <julian@codesourcery.com>
Date: Tue, 12 Jan 2010 11:50:36 +0000 (+0000)
Subject: Fix Neon Scheduler ocaml description.
X-Git-Tag: releases/gcc-4.5.0~1270
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=24fe19c35aec386d2166ab266efdafe446190de5;p=thirdparty%2Fgcc.git

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
---

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  <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
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