From 36240d3d4b9b91933abe260a4e8f241a70a08abf Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Fri, 21 Mar 2008 15:33:13 +0000 Subject: [PATCH] re PR libfortran/32972 (performance of pack/unpack) 2008-03-21 Thomas Koenig PR libfortran/32972 * runtime/in_pack_generic.c (internal_pack): Call correct function, pack_i16, for GFC_INTEGER_16. From-SVN: r133428 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/intrinsics/pack_generic.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index b2efca9b9f6..61ed8d1626b 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2008-03-21 Thomas Koenig + + PR libfortran/32972 + * runtime/in_pack_generic.c (internal_pack): Call correct + function, pack_i16, for GFC_INTEGER_16. + 2008-03-21 Thomas Koenig PR libfortran/32972 diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index 77760b463d9..188c75b589f 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/libgfortran/intrinsics/pack_generic.c @@ -347,7 +347,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array, #ifdef HAVE_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); return; #endif -- 2.30.2