OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libfortran/24903 (dotprod should use __builtin_conj)

Browse Source 
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.

From-SVN: r111131
This commit is contained in:
Francois-Xavier Coudert 2006-02-16 08:52:22 +01:00 committed by François-Xavier Coudert
parent ed78a1162c
commit 83d38ece09
6 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
libgfortran/ChangeLog
View File

@ -1,3 +1,13 @@
2006-02-16 Francois-Xavier Coudert <coudert@clipper.ens.fr>
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.
2006-02-12 Janne Blomqvist <jb@gcc.gnu.org>
PR libgfortran/25949

4
libgfortran/generated/dotprod_c10.c
View File

@ -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;
}

4
libgfortran/generated/dotprod_c16.c
View File

@ -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;
}

4
libgfortran/generated/dotprod_c4.c
View File

@ -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;
}

4
libgfortran/generated/dotprod_c8.c
View File

@ -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;
}

5
libgfortran/m4/dotprodc.m4
View File

@ -34,6 +34,7 @@ Boston, MA 02110-1301, USA. */
#include <assert.h>
#include "libgfortran.h"'
include(iparm.m4)dnl
include(mtype.m4)dnl
`#if defined (HAVE_'rtype_name`)'
@ -50,7 +51,6 @@ dot_product_`'rtype_code (rtype * const restrict a, rtype * const restrict b)
const rtype_name * restrict pa;
const rtype_name * restrict pb;
rtype_name res;
rtype_name conjga;
index_type count;
index_type astride;
index_type bstride;
@ -73,8 +73,7 @@ sinclude(`dotprod_asm_'rtype_code`.m4')dnl
while (count--)
{
COMPLEX_ASSIGN(conjga, REALPART (*pa), -IMAGPART (*pa));
res += conjga * *pb;
res += __builtin_conj`'q (*pa) * *pb;
pa += astride;
pb += bstride;
}