git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/32972 (performance of pack/unpack) 

2008-04-14  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/32972
	* intrinsics/spread_generic.c (spread):  Use spread_i2()
	for GFC_DTYPE_DERIVED_2 (fix typo from previous commit).

From-SVN: r134286
This commit is contained in:
Thomas Koenig 2008-04-14 18:50:57 +00:00
parent dcf461fa7f
commit 3a5a8be120
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2008-04-14 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32972
* intrinsics/spread_generic.c (spread): Use spread_i2()
for GFC_DTYPE_DERIVED_2 (fix typo from previous commit).
2008-04-13 Thomas Koenig <tkoenig@gcc.gnu.org> 2008-04-13 Thomas Koenig <tkoenig@gcc.gnu.org>
Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>

2
libgfortran/intrinsics/spread_generic.c
View File

@ -367,7 +367,7 @@ spread (gfc_array_char *ret, const gfc_array_char *source,
break; break;
else else
{ {
spread_i1 ((gfc_array_i1 *) ret, (gfc_array_i1 *) source, spread_i2 ((gfc_array_i2 *) ret, (gfc_array_i2 *) source,
*along, *pncopies); *along, *pncopies);
return; return;
} }