FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

in_pack.m4: Add TODO comment about detecting temporaries...

Browse source 
2006-06-06  Janne Blomqvist  <jb@gcc.gnu.org>

	* m4/in_pack.m4: Add TODO comment about detecting temporaries,
	remove test for stride 0, update copyright year.
	* m4/transpose.m4: Remove test for stride 0, update copyright
	year.
	* m4/iforeach.m4: Likewise.
	* m4/shape.m4: Likewise.
	* m4/in_unpack.m4: Likewise.
	* m4/reshape.m4: Likewise.
	* m4/ifunction.m4: Likewise.
	* m4/matmul.m4: Likewise.
	* m4/matmull.m4: Likewise.
	* intrinsics/etime.c: Likewise.
	* intrinsics/transpose_generic.c: Likewise.
	* intrinsics/spread_generic.c: Likewise.
	* intrinsics/stat.c: Likewise.
	* intrinsics/reshape_generic.c: Likewise.
	* intrinsics/random.c: Likewise.
	* generated/*: Regenerated from above changed m4 files.

From-SVN: r114424
This commit is contained in:
Janne Blomqvist 2006-06-06 11:10:09 +03:00
parent 0d3b0abea3
commit 6ff24d45dc
200 changed files with 99 additions and 3282 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libgfortran/generated/in_pack_c10.c
View file

@ -1,5 +1,5 @@
/* Helper function for repacking arrays.
Copyright 2003 Free Software Foundation, Inc.
Copyright 2003, 2006 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -53,11 +53,8 @@ internal_pack_c10 (gfc_array_c10 * source)
int n;
int packed;
if (source->dim[0].stride == 0)
{
source->dim[0].stride = 1;
return source->data;
}
/* TODO: Investigate how we can figure out if this is a temporary
since the stride=0 thing has been removed from the frontend. */
dim = GFC_DESCRIPTOR_RANK (source);
ssize = 1;