git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

graphite-poly.c (apply_poly_transforms): Implement the high level driver for flag_loop_block. 

2009-10-09  Sebastian Pop  <sebastian.pop@amd.com>

	* graphite-poly.c (apply_poly_transforms): Implement the high
	level driver for flag_loop_block.
	* tree-ssa-loop.c (gate_graphite_transforms): Remove call to sorry for
	flag_loop_block.

	* gcc.dg/graphite/graphite.exp (DEFAULT_CFLAGS_GRAPHITE_BLOCK): Add
	-floop-block.
	* gfortran.dg/graphite/graphite.exp (DEFAULT_CFLAGS_GRAPHITE_BLOCK):
	Add -floop-block.

From-SVN: r154569
This commit is contained in:
Sebastian Pop 2009-11-25 04:58:16 +00:00 committed by Sebastian Pop
parent a0517b76dd
commit 24c7970980
5 changed files with 29 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/ChangeLog.graphite
View File

@ -1,3 +1,15 @@
2009-10-09 Sebastian Pop <sebastian.pop@amd.com>
* graphite-poly.c (apply_poly_transforms): Implement the high
level driver for flag_loop_block.
* tree-ssa-loop.c (gate_graphite_transforms): Remove call to sorry for
flag_loop_block.
* gcc.dg/graphite/graphite.exp (DEFAULT_CFLAGS_GRAPHITE_BLOCK): Add
-floop-block.
* gfortran.dg/graphite/graphite.exp (DEFAULT_CFLAGS_GRAPHITE_BLOCK):
Add -floop-block.
2009-10-09 Sebastian Pop <sebastian.pop@amd.com>
* graphite-poly.h (lst_find_pbb): New.

17
gcc/graphite-poly.c
View File

@ -250,13 +250,18 @@ apply_poly_transforms (scop_p scop)
transform_done = true;
if (flag_loop_block)
gcc_unreachable (); /* Not yet supported. */
{
transform_done |= scop_do_strip_mine (scop);
transform_done |= scop_do_interchange (scop);
}
else
{
if (flag_loop_strip_mine)
transform_done |= scop_do_strip_mine (scop);
if (flag_loop_strip_mine)
transform_done |= scop_do_strip_mine (scop);
if (flag_loop_interchange)
transform_done |= scop_do_interchange (scop);
if (flag_loop_interchange)
transform_done |= scop_do_interchange (scop);
}
return transform_done;
}

6
gcc/testsuite/gcc.dg/graphite/graphite.exp
View File

@ -43,7 +43,7 @@ dg-init
set wait_to_run_files [lsort [glob -nocomplain $srcdir/$subdir/*.c ] ]
# Flags using for block-* files.
set DEFAULT_CFLAGS_GRAPHITE_BLOCK "-O2 -fdump-tree-graphite-all"
set DEFAULT_CFLAGS_GRAPHITE_BLOCK "-O2 -floop-block -fdump-tree-graphite-all"
set block_files [lsort [glob -nocomplain $srcdir/$subdir/block-*.c ] ]
dg-runtest $block_files "" $DEFAULT_CFLAGS_GRAPHITE_BLOCK
foreach block_file $block_files {lremove wait_to_run_files $block_file}
@ -55,9 +55,9 @@ dg-runtest $id_files "" $DEFAULT_CFLAGS_GRAPHITE_IDENTITY
foreach id_file $id_files {lremove wait_to_run_files $id_file}
# Flags using for interchange-* files.
set DEFAULT_CFLAGS_GRAPHITE_BLOCK "-O2 -fdump-tree-graphite-all -floop-interchange -ffast-math"
set DEFAULT_CFLAGS_GRAPHITE_INTERCHANGE "-O2 -fdump-tree-graphite-all -floop-interchange -ffast-math"
set interchange_files [lsort [glob -nocomplain $srcdir/$subdir/interchange-*.c ] ]
dg-runtest $interchange_files "" $DEFAULT_CFLAGS_GRAPHITE_BLOCK
dg-runtest $interchange_files "" $DEFAULT_CFLAGS_GRAPHITE_INTERCHANGE
foreach interchange_file $interchange_files {lremove wait_to_run_files $interchange_file}
# Flags using for scop-* files.

6
gcc/testsuite/gfortran.dg/graphite/graphite.exp
View File

@ -42,7 +42,7 @@ dg-init
set wait_to_run_files [lsort [glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ] ]
# Flags using for block-* files.
set DEFAULT_FLAGS_GRAPHITE_BLOCK "-O2 -fdump-tree-graphite-all"
set DEFAULT_FLAGS_GRAPHITE_BLOCK "-O2 -floop-block -fdump-tree-graphite-all"
set block_files [lsort [glob -nocomplain $srcdir/$subdir/block-*.\[fF\]{,90,95,03,08} ] ]
gfortran-dg-runtest $block_files $DEFAULT_FLAGS_GRAPHITE_BLOCK
foreach block_file $block_files {lremove wait_to_run_files $block_file}
@ -54,9 +54,9 @@ gfortran-dg-runtest $id_files $DEFAULT_FLAGS_GRAPHITE_IDENTITY
foreach id_file $id_files {lremove wait_to_run_files $id_file}
# Flags using for interchange-* files.
set DEFAULT_FLAGS_GRAPHITE_BLOCK "-O2 -fdump-tree-graphite-all -floop-interchange"
set DEFAULT_FLAGS_GRAPHITE_INTERCHANGE "-O2 -fdump-tree-graphite-all -floop-interchange"
set interchange_files [lsort [glob -nocomplain $srcdir/$subdir/interchange-*.\[fF\]{,90,95,03,08} ] ]
gfortran-dg-runtest $interchange_files $DEFAULT_FLAGS_GRAPHITE_BLOCK
gfortran-dg-runtest $interchange_files $DEFAULT_FLAGS_GRAPHITE_INTERCHANGE
foreach interchange_file $interchange_files {lremove wait_to_run_files $interchange_file}
# Flags using for scop-* files.

3
gcc/tree-ssa-loop.c
View File

@ -311,9 +311,6 @@ gate_graphite_transforms (void)
|| flag_graphite_identity || flag_loop_parallelize_all)
flag_graphite = 1;
if (flag_loop_block)
sorry ("loop blocking not implemented");
return flag_graphite != 0;
}