diff options
author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-16 07:52:22 +0000 |
---|---|---|
committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-16 07:52:22 +0000 |
commit | 1b9d8f4b75a937736cb88855f41558e41fca6164 (patch) | |
tree | f2093c49861eca5b34a28bb437e2de88bf8c4007 /libgfortran/generated | |
parent | e3071e62e57f49014686b4c6d17689d6dcb786b0 (diff) | |
download | gcc-1b9d8f4b75a937736cb88855f41558e41fca6164.tar.gz |
PR libfortran/24903
* m4/dotprodc.m4: Use __builtin_conj instead of assigning real
and imaginary parts separately.
* generated/dotprod_c4.c: Regenerated.
* generated/dotprod_c8.c: Regenerated.
* generated/dotprod_c10.c: Regenerated.
* generated/dotprod_c16.c: Regenerated.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111131 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/generated')
-rw-r--r-- | libgfortran/generated/dotprod_c10.c | 4 | ||||
-rw-r--r-- | libgfortran/generated/dotprod_c16.c | 4 | ||||
-rw-r--r-- | libgfortran/generated/dotprod_c4.c | 4 | ||||
-rw-r--r-- | libgfortran/generated/dotprod_c8.c | 4 |
4 files changed, 4 insertions, 12 deletions
diff --git a/libgfortran/generated/dotprod_c10.c b/libgfortran/generated/dotprod_c10.c index 0dccca71ec7..b68b0d3b5e6 100644 --- a/libgfortran/generated/dotprod_c10.c +++ b/libgfortran/generated/dotprod_c10.c @@ -49,7 +49,6 @@ dot_product_c10 (gfc_array_c10 * const restrict a, gfc_array_c10 * const restric const GFC_COMPLEX_10 * restrict pa; const GFC_COMPLEX_10 * restrict pb; GFC_COMPLEX_10 res; - GFC_COMPLEX_10 conjga; index_type count; index_type astride; index_type bstride; @@ -71,8 +70,7 @@ dot_product_c10 (gfc_array_c10 * const restrict a, gfc_array_c10 * const restric while (count--) { - COMPLEX_ASSIGN(conjga, REALPART (*pa), -IMAGPART (*pa)); - res += conjga * *pb; + res += __builtin_conjl (*pa) * *pb; pa += astride; pb += bstride; } diff --git a/libgfortran/generated/dotprod_c16.c b/libgfortran/generated/dotprod_c16.c index 6d17ba7409d..82d5d49ea92 100644 --- a/libgfortran/generated/dotprod_c16.c +++ b/libgfortran/generated/dotprod_c16.c @@ -49,7 +49,6 @@ dot_product_c16 (gfc_array_c16 * const restrict a, gfc_array_c16 * const restric const GFC_COMPLEX_16 * restrict pa; const GFC_COMPLEX_16 * restrict pb; GFC_COMPLEX_16 res; - GFC_COMPLEX_16 conjga; index_type count; index_type astride; index_type bstride; @@ -71,8 +70,7 @@ dot_product_c16 (gfc_array_c16 * const restrict a, gfc_array_c16 * const restric while (count--) { - COMPLEX_ASSIGN(conjga, REALPART (*pa), -IMAGPART (*pa)); - res += conjga * *pb; + res += __builtin_conjl (*pa) * *pb; pa += astride; pb += bstride; } diff --git a/libgfortran/generated/dotprod_c4.c b/libgfortran/generated/dotprod_c4.c index a575dc98969..7f336234fe8 100644 --- a/libgfortran/generated/dotprod_c4.c +++ b/libgfortran/generated/dotprod_c4.c @@ -49,7 +49,6 @@ dot_product_c4 (gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b const GFC_COMPLEX_4 * restrict pa; const GFC_COMPLEX_4 * restrict pb; GFC_COMPLEX_4 res; - GFC_COMPLEX_4 conjga; index_type count; index_type astride; index_type bstride; @@ -71,8 +70,7 @@ dot_product_c4 (gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b while (count--) { - COMPLEX_ASSIGN(conjga, REALPART (*pa), -IMAGPART (*pa)); - res += conjga * *pb; + res += __builtin_conjf (*pa) * *pb; pa += astride; pb += bstride; } diff --git a/libgfortran/generated/dotprod_c8.c b/libgfortran/generated/dotprod_c8.c index 00ac8a9d0cc..df7738f381e 100644 --- a/libgfortran/generated/dotprod_c8.c +++ b/libgfortran/generated/dotprod_c8.c @@ -49,7 +49,6 @@ dot_product_c8 (gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b const GFC_COMPLEX_8 * restrict pa; const GFC_COMPLEX_8 * restrict pb; GFC_COMPLEX_8 res; - GFC_COMPLEX_8 conjga; index_type count; index_type astride; index_type bstride; @@ -71,8 +70,7 @@ dot_product_c8 (gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b while (count--) { - COMPLEX_ASSIGN(conjga, REALPART (*pa), -IMAGPART (*pa)); - res += conjga * *pb; + res += __builtin_conj (*pa) * *pb; pa += astride; pb += bstride; } |