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

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

Browse Source 
2008-03-21  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/32972
	* runtime/in_pack_generic.c (internal_pack):  Call correct
	function, pack_i16, for GFC_INTEGER_16.

From-SVN: r133428
This commit is contained in:
Thomas Koenig 2008-03-21 15:33:13 +00:00
parent 3ef2513a1d
commit 36240d3d4b
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-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32972
* runtime/in_pack_generic.c (internal_pack): Call correct
function, pack_i16, for GFC_INTEGER_16.
2008-03-21 Thomas Koenig <tkoenig@gcc.gnu.org> 2008-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32972 PR libfortran/32972

2
libgfortran/intrinsics/pack_generic.c
View File

@ -347,7 +347,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array,
#ifdef HAVE_GFC_INTEGER_16 #ifdef HAVE_GFC_INTEGER_16
case sizeof (GFC_INTEGER_16): case sizeof (GFC_INTEGER_16):
pack_i1 ((gfc_array_i16 *) ret, (gfc_array_i16 *) array, pack_i16 ((gfc_array_i16 *) ret, (gfc_array_i16 *) array,
(gfc_array_l1 *) mask, (gfc_array_i16 *) vector); (gfc_array_l1 *) mask, (gfc_array_i16 *) vector);
return; return;
#endif #endif