* graphite-blocking.c (scop_do_block): New.
* graphite-poly.c (apply_poly_transforms): Call scop_do_block.
* graphite-poly.h (scop_do_block): Declared.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154638
138bc75d-0d04-0410-961f-
82ee72b054a4
2009-11-18 Sebastian Pop <sebastian.pop@amd.com>
+ * graphite-blocking.c (scop_do_block): New.
+ * graphite-poly.c (apply_poly_transforms): Call scop_do_block.
+ * graphite-poly.h (scop_do_block): Declared.
+
+2009-11-18 Sebastian Pop <sebastian.pop@amd.com>
+
* graphite-blocking.c (pbb_strip_mine_profitable_p): The parameter
depth is the loop nesting depth in the LST. Call psct_dynamic_dim
to transform depth into the time_depth before calling
return res;
}
-
/* Strip mines all the loops in SCOP. Nothing profitable in all this:
this is just a driver function. */
return transform_done;
}
+/* Loop blocks all the loops in SCOP. Returns true when we manage to
+ block some loops. */
+
+bool
+scop_do_block (scop_p scop)
+{
+ bool transform_done = false;
+
+ store_scattering (scop);
+
+ lst_do_strip_mine (SCOP_TRANSFORMED_SCHEDULE (scop));
+ transform_done = scop_do_interchange (scop);
+
+ /* If we don't interchange loops, then the strip mine is not
+ profitable, and the transform is not a loop blocking. */
+ if (!transform_done
+ || !graphite_legal_transform (scop))
+ {
+ restore_scattering (scop);
+ return false;
+ }
+ else if (dump_file && (dump_flags & TDF_DETAILS))
+ fprintf (dump_file, "SCoP will be loop blocked.\n");
+
+ return transform_done;
+}
+
#endif
transform_done = true;
if (flag_loop_block)
- {
- transform_done |= scop_do_strip_mine (scop);
- transform_done |= scop_do_interchange (scop);
- }
+ transform_done |= scop_do_block (scop);
else
{
if (flag_loop_strip_mine)
extern void debug_iteration_domains (scop_p);
extern bool scop_do_interchange (scop_p);
extern bool scop_do_strip_mine (scop_p);
+extern bool scop_do_block (scop_p);
extern void pbb_number_of_iterations (poly_bb_p, graphite_dim_t, Value);
extern void pbb_number_of_iterations_at_time (poly_bb_p, graphite_dim_t, Value);
extern void pbb_remove_duplicate_pdrs (poly_bb_p);