diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-04-14 18:50:57 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-04-14 18:50:57 +0000 |
| commit | 3a5a8be12000125f4c12efea8bd6a466049a688d (patch) | |
| tree | df806f1b2440d184b6965300c889248ef11c26a5 /libgfortran | |
| parent | dcf461fa7febf4b70d0bc78b4517ef2e17a9f7b7 (diff) | |
| download | gcc-3a5a8be12000125f4c12efea8bd6a466049a688d.zip gcc-3a5a8be12000125f4c12efea8bd6a466049a688d.tar.gz gcc-3a5a8be12000125f4c12efea8bd6a466049a688d.tar.bz2 | |
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
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/intrinsics/spread_generic.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index e228cf6..9fc0476 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -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> Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> diff --git a/libgfortran/intrinsics/spread_generic.c b/libgfortran/intrinsics/spread_generic.c index e50598a..e37b6e1 100644 --- a/libgfortran/intrinsics/spread_generic.c +++ b/libgfortran/intrinsics/spread_generic.c @@ -367,7 +367,7 @@ spread (gfc_array_char *ret, const gfc_array_char *source, break; else { - spread_i1 ((gfc_array_i1 *) ret, (gfc_array_i1 *) source, + spread_i2 ((gfc_array_i2 *) ret, (gfc_array_i2 *) source, *along, *pncopies); return; } |