OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* ada/gcc-interface/Make-lang.in, alias.c, attribs.c, auto-inc-dec.c,
[pf3gnuchains/gcc-fork.git]
/
gcc
/
config
/
arm
/
neon-schedgen.ml
diff --git
a/gcc/config/arm/neon-schedgen.ml
b/gcc/config/arm/neon-schedgen.ml
index
e564742
..
bb96e42
100644
(file)
--- a/
gcc/config/arm/neon-schedgen.ml
+++ b/
gcc/config/arm/neon-schedgen.ml
@@
-1,5
+1,5
@@
(* Emission of the core of the Cortex-A8 NEON scheduling description.
(* Emission of the core of the Cortex-A8 NEON scheduling description.
- Copyright (C) 2007 Free Software Foundation, Inc.
+ Copyright (C) 2007
, 2010
Free Software Foundation, Inc.
Contributed by CodeSourcery.
This file is part of GCC.
Contributed by CodeSourcery.
This file is part of GCC.
@@
-48,7
+48,14
@@
and at present we do not emit specific guards.)
*)
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
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