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
2008-09-06 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git]
/
libgfortran
/
generated
/
minloc1_8_r10.c
diff --git
a/libgfortran/generated/minloc1_8_r10.c
b/libgfortran/generated/minloc1_8_r10.c
index
6163239
..
e3c727a
100644
(file)
--- a/
libgfortran/generated/minloc1_8_r10.c
+++ b/
libgfortran/generated/minloc1_8_r10.c
@@
-124,7
+124,7
@@
minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
(long int) rank);
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
(long int) rank);
- if (
compile_options.bounds_check
)
+ if (
unlikely (compile_options.bounds_check)
)
{
for (n=0; n < rank; n++)
{
{
for (n=0; n < rank; n++)
{
@@
-318,7
+318,7
@@
mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
if (rank != GFC_DESCRIPTOR_RANK (retarray))
runtime_error ("rank of return array incorrect in MINLOC intrinsic");
if (rank != GFC_DESCRIPTOR_RANK (retarray))
runtime_error ("rank of return array incorrect in MINLOC intrinsic");
- if (
compile_options.bounds_check
)
+ if (
unlikely (compile_options.bounds_check)
)
{
for (n=0; n < rank; n++)
{
{
for (n=0; n < rank; n++)
{
@@
-508,7
+508,7
@@
sminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
(long int) rank);
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
(long int) rank);
- if (
compile_options.bounds_check
)
+ if (
unlikely (compile_options.bounds_check)
)
{
for (n=0; n < rank; n++)
{
{
for (n=0; n < rank; n++)
{