diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-09-06 17:40:11 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-09-06 17:40:11 +0000 |
| commit | e5c1ea132c5ddd9c6c4da9290e06297138470d2f (patch) | |
| tree | 033e80db4542571fa503164441703a7aa79d9683 /libgfortran/m4 | |
| parent | 6b06353678b47ae92251138f50faba5b545f6a5c (diff) | |
| download | gcc-e5c1ea132c5ddd9c6c4da9290e06297138470d2f.tar.gz | |
2008-09-06 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r140063
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@140069 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/m4')
| -rw-r--r-- | libgfortran/m4/iforeach.m4 | 6 | ||||
| -rw-r--r-- | libgfortran/m4/ifunction.m4 | 6 | ||||
| -rw-r--r-- | libgfortran/m4/ifunction_logical.m4 | 2 | ||||
| -rw-r--r-- | libgfortran/m4/matmul.m4 | 2 | ||||
| -rw-r--r-- | libgfortran/m4/matmull.m4 | 2 | ||||
| -rw-r--r-- | libgfortran/m4/spread.m4 | 2 |
6 files changed, 10 insertions, 10 deletions
diff --git a/libgfortran/m4/iforeach.m4 b/libgfortran/m4/iforeach.m4 index a8a353a4bdb..b620c653f1a 100644 --- a/libgfortran/m4/iforeach.m4 +++ b/libgfortran/m4/iforeach.m4 @@ -36,7 +36,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -152,7 +152,7 @@ void } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -311,7 +311,7 @@ void } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4 index edf3c77d05c..e0c168e2e48 100644 --- a/libgfortran/m4/ifunction.m4 +++ b/libgfortran/m4/ifunction.m4 @@ -106,7 +106,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, (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++) { @@ -294,7 +294,7 @@ void if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in u_name intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -478,7 +478,7 @@ void (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++) { diff --git a/libgfortran/m4/ifunction_logical.m4 b/libgfortran/m4/ifunction_logical.m4 index 214be04c2d8..da6b4ae2640 100644 --- a/libgfortran/m4/ifunction_logical.m4 +++ b/libgfortran/m4/ifunction_logical.m4 @@ -110,7 +110,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, (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++) { diff --git a/libgfortran/m4/matmul.m4 b/libgfortran/m4/matmul.m4 index a43b430c2e3..d8621fa2b35 100644 --- a/libgfortran/m4/matmul.m4 +++ b/libgfortran/m4/matmul.m4 @@ -136,7 +136,7 @@ matmul_'rtype_code` ('rtype` * const restrict retarray, = internal_malloc_size (sizeof ('rtype_name`) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/m4/matmull.m4 b/libgfortran/m4/matmull.m4 index 800444564f7..78fb3fb9ad4 100644 --- a/libgfortran/m4/matmull.m4 +++ b/libgfortran/m4/matmull.m4 @@ -100,7 +100,7 @@ matmul_'rtype_code` ('rtype` * const restrict retarray, = internal_malloc_size (sizeof ('rtype_name`) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/m4/spread.m4 b/libgfortran/m4/spread.m4 index b4bdce64316..54ec68cf295 100644 --- a/libgfortran/m4/spread.m4 +++ b/libgfortran/m4/spread.m4 @@ -122,7 +122,7 @@ spread_'rtype_code` ('rtype` *ret, const 'rtype` *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) { |