From 181786a7dd6dfd3b3640cb4bb6f7b275858ecb02 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sun, 12 Jun 2005 20:27:59 +0000 Subject: [PATCH] re PR libfortran/21333 ([4.0 only] in_pack / in_unpack alignment issues) 2005-06-12 Thomas Koenig PR libfortran/21333 * Changelog: Really update. From-SVN: r100862 --- libgfortran/ChangeLog | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 79e09f6..0d164fe 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -3,6 +3,39 @@ PR libfortran/19155 * io/read.c (read_f): Take care of spaces after initial sign. +2005-06-11 Thomas Koenig + + PR libfortran/21333 + * Makefile.am: Add in_pack_c4.c, in_pack_c8.c, in_unpack_c4.c + and in_unpack_c8.c. + * Makefile.in: Regenerate. + * libgfortran.h: Declare internal_pack_c4, internal_pack_c8, + internal_unpack_c4 and internal_unpack_c8. + * m4/in_pack.m4: Use rtype_ccode insteald of rtype_kind + in function name. + Use sizeof (rtype_name) as size for memory allocation. + * m4/in_unpack.m4: Use rtype_ccode insteald of rtype_kind + in function name. + Use sizeof (rtype_name) for calculation of sizes for memcpy. + * runtime/in_pack_generic.c: For real, integer and logical + call internal_pack_4 if size==4 and internal_pack_8 if + size==8. + For complex, call internal_pack_c4 if size==8 and + internal_pack_c8 if size==16. + * runtime/in_unpack_generic.c: For real, integer and logical + call internal_unpack_4 if size==4 and internal_unpack_8 if + size==8. + For complex, call internal_unpack_c4 if size==8 and + internal_unpack_c8 if size==16. + * generated/in_pack_i4.c: Regenerated. + * generated/in_pack_i8.c: Regenerated. + * generated/in_unpack_i4.c: Regenerated. + * generated/in_unpack_i8.c: Regenerated. + * generated/in_pack_c4.c: New file. + * generated/in_pack_c8.c: New file. + * generated/in_unpack_c4.c: New file. + * generated/in_unpack_c8.c: New file. + 2005-06-09 Thomas Koenig PR libfortran/21480 -- 2.7.4