mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-29 14:54:05 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity
7823229bc3
gcc/libgfortran/m4
History
Richard Sandiford 7823229bc3 re PR fortran/19269 (transpose(reshape(...)) of character array segfaults.) 
gcc/fortran/
	PR target/19269
	* iresolve.c (gfc_resolve_cshift, gfc_resolve_eoshift)
	(gfc_resolve_pack, gfc_resolve_reshape, gfc_resolve_spread)
	(gfc_resolve_transpose, gfc_resolve_unpack): Add "_char" to the name
	for character-based operations.
	(gfc_resolve_pack): Remove ATTRIBUTE_UNUSED from array argument.
	(gfc_resolve_unpack): Copy the whole typespec from the vector.
	* trans-array.c (gfc_conv_expr_descriptor): In the EXPR_FUNCTION
	case, get the string length from the scalarization state.

libgfortran/
	PR target/19269
	* intrinsics/cshift0.c (cshift0): Add an extra size argument.
	(cshift0_1, cshift0_2, cshift0_4, cshift0_8): Replace explicit
	implementations with...
	(DEFINE_CSHIFT): ...this new macro.  Define character versions too.
	* intrinsics/eoshift0.c (zeros): Delete.
	(eoshift0): Add extra size and filler arguments.  Use memset if no
	bound is provided.
	(eoshift0_1, eoshift0_2, eoshift0_4, eoshift0_8): Replace explicit
	implementations with...
	(DEFINE_EOSHIFT): ...this new macro.  Define character versions too.
	* intrinsics/eoshift2.c (zeros): Delete.
	(eoshift2): Add extra size and filler arguments.  Use memset if no
	bound is provided.
	(eoshift2_1, eoshift2_2, eoshift2_4, eoshift2_8): Replace explicit
	implementations with...
	(DEFINE_EOSHIFT): ...this new macro.  Define character versions too.
	* intrinsics/pack.c (pack_internal): New static function, reusing
	the contents of pack and adding an extra size argument.  Change
	"mptr" rather than "m" when calculating the array size.
	(pack): Redefine as a forwarder to pack_internal.
	(pack_s_internal): New static function, reusing the contents of
	pack_s and adding an extra size argument.
	(pack_s): Redefine as a forwarder to pack_s_internal.
	(pack_char, pack_s_char): New functions.
	* intrinsics/reshape.c (reshape_internal): New static function,
	reusing the contents of reshape and adding an extra size argument.
	(reshape): Redefine as a forwarder to reshape_internal.
	(reshape_char): New function.
	* intrinsics/spread.c (spread_internal): New static function,
	reusing the contents of spread and adding an extra size argument.
	(spread): Redefine as a forwarder to spread_internal.
	(spread_char): New function.
	* intrinsics/transpose.c (transpose_internal): New static function,
	reusing the contents of transpose and adding an extra size argument.
	(transpose): Redefine as a forwarder to transpose_internal.
	(transpose_char): New function.
	* intrinsics/unpack.c (unpack_internal): New static function, reusing
	the contents of unpack1 and adding extra size and fsize arguments.
	(unpack1): Redefine as a forwarder to unpack_internal.
	(unpack0): Call unpack_internal instead of unpack1.
	(unpack1_char, unpack0_char): New functions.
	* m4/cshift1.m4 (cshift1): New static function, reusing the contents
	of cshift1_<kind> and adding an extra size argument.
	(cshift1_<kind>): Redefine as a forwarder to cshift1.
	(cshift1_<kind>_char): New function.
	* m4/eoshift1.m4 (zeros): Delete.
	(eoshift1): New static function, reusing the contents of
	eoshift1_<kind> and adding extra size and filler arguments.
	Fix calculation of hstride.  Use memset if no bound is provided.
	(eoshift1_<kind>): Redefine as a forwarder to eoshift1.
	(eoshift1_<kind>_char): New function.
	* m4/eoshift3.m4 (zeros): Delete.
	(eoshift3): New static function, reusing the contents of
	eoshift3_<kind> and adding extra size and filler arguments.
	Use memset if no bound is provided.
	(eoshift3_<kind>): Redefine as a forwarder to eoshift3.
	(eoshift3_<kind>_char): New function.
	* generated/cshift1_4.c, generated/cshift1_8.c,
	* generated/eoshift1_4.c, generated/eoshift1_8.c,
	* generated/eoshift3_4.c, generated/eoshift3_8.c: Regenerate.

From-SVN: r104217
2005-09-13 07:15:01 +00:00
..
all.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
any.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
cexp.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
chyp.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
count.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
cshift1.m4 re PR fortran/19269 (transpose(reshape(...)) of character array segfaults.) 2005-09-13 07:15:01 +00:00
ctrig.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
dotprod.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
dotprodc.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
dotprodl.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
eoshift1.m4 re PR fortran/19269 (transpose(reshape(...)) of character array segfaults.) 2005-09-13 07:15:01 +00:00
eoshift3.m4 re PR fortran/19269 (transpose(reshape(...)) of character array segfaults.) 2005-09-13 07:15:01 +00:00
exponent.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
fraction.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
head.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
iforeach.m4 libgfortran.h (GFC_ARRAY_DESCRIPTOR): Replace 'type *base' by 'size_t offset'. 2005-07-08 00:08:06 +02:00
ifunction.m4 libgfortran.h (GFC_ARRAY_DESCRIPTOR): Replace 'type *base' by 'size_t offset'. 2005-07-08 00:08:06 +02:00
in_pack.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
in_unpack.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
iparm.m4 re PR libfortran/21127 (reshape of complex broken) 2005-05-18 20:24:32 +00:00
matmul.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
matmull.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
maxloc0.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
maxloc1.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
maxval.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
minloc0.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
minloc1.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
minval.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
mtype.m4
nearest.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
pow.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
product.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
reshape.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
set_exponent.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
shape.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
specific2.m4 Makefile.am: Remove references to types.m4. 2004-05-18 19:03:26 +00:00
specific.m4 Makefile.am: Remove references to types.m4. 2004-05-18 19:03:26 +00:00
sum.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
transpose.m4 All files: Update FSF address. 2005-08-17 02:49:08 +00:00
types.m4