From patchwork Mon Jul 21 10:25:14 2014 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Roman Gareev X-Patchwork-Id: 372025 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by ozlabs.org (Postfix) with ESMTPS id BFA671400D5 for ; Mon, 21 Jul 2014 20:25:36 +1000 (EST) DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender :mime-version:in-reply-to:references:date:message-id:subject :from:to:cc:content-type; q=dns; s=default; b=In3r9eILXJ9suOrk20 BWMoS+YU+l+etQKY1OHveGBqzHrTM6dVLPqHOcUUfBg0pYY+tfUwp9zMVgPN5YMF 1WUL7VPn1rOef4RVHUP63ZYc8S3ZOtWEvLIoh13hm3i4njh9/dx2E4bUxKnwGU+z 3pgogATSmnI8xuj59d+Luspfs= DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender :mime-version:in-reply-to:references:date:message-id:subject :from:to:cc:content-type; s=default; bh=RWsvNMSfHFXz6fuFuJgiWlzC ZXM=; b=bhVOKD606CwD3UtlNDgh+O364aT7n9w2tqWKa/5X5pbGtJU4kLuVFxKW BH7UbD1H4kcgfTSXubrNiJNVNGgk/IKNK/HfJWQw7FgDh4ACDy+dpWVU3aWU6GyV gzY1oc9/lh6wjvgw7kKC/SCZ71eTvAAXBQnOhdAxNq7sII6eZ84= Received: (qmail 13149 invoked by alias); 21 Jul 2014 10:25:28 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Received: (qmail 12803 invoked by uid 89); 21 Jul 2014 10:25:22 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.7 required=5.0 tests=AWL, BAYES_00, FREEMAIL_FROM, RCVD_IN_DNSWL_LOW, SPF_PASS autolearn=ham version=3.3.2 X-HELO: mail-yk0-f176.google.com Received: from mail-yk0-f176.google.com (HELO mail-yk0-f176.google.com) (209.85.160.176) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES128-SHA encrypted) ESMTPS; Mon, 21 Jul 2014 10:25:16 +0000 Received: by mail-yk0-f176.google.com with SMTP id 19so3752915ykq.21 for ; Mon, 21 Jul 2014 03:25:14 -0700 (PDT) MIME-Version: 1.0 X-Received: by 10.236.97.101 with SMTP id s65mr39011621yhf.51.1405938314402; Mon, 21 Jul 2014 03:25:14 -0700 (PDT) Received: by 10.170.91.134 with HTTP; Mon, 21 Jul 2014 03:25:14 -0700 (PDT) In-Reply-To: <53CCD5EA.4020607@grosser.es> References: <53C27B10.6050703@grosser.es> <53C55264.7070404@grosser.es> <53C7DD06.3020700@grosser.es> <53C8F76C.6050609@grosser.es> <53CCD5EA.4020607@grosser.es> Date: Mon, 21 Jul 2014 16:25:14 +0600 Message-ID: Subject: Re: [GSoC] generation of Gimple code from isl_ast_node_user From: Roman Gareev To: Tobias Grosser Cc: Mircea Namolaru , gcc-patches@gcc.gnu.org I've asked the community about this. The patch below contains the FIXME. --- Cheers, Roman Gareev. 2014-07-12 Roman Gareev gcc/ * graphite-isl-ast-to-gimple.c: Add inclusion of gimple-ssa.h, tree-into-ssa.h. (ivs_params_clear): (build_iv_mapping): New function. (translate_isl_ast_node_user): Likewise. (translate_isl_ast): Add calling of translate_isl_ast_node_user. gcc/testsuite/gcc.dg/graphite/ * isl-ast-gen-single-loop-1.c: New testcase. * isl-ast-gen-single-loop-2.c: New testcase. * isl-ast-gen-single-loop-3.c: New testcase. Index: gcc/graphite-isl-ast-to-gimple.c =================================================================== --- gcc/graphite-isl-ast-to-gimple.c (revision 212888) +++ gcc/graphite-isl-ast-to-gimple.c (working copy) @@ -51,6 +51,8 @@ #include "sese.h" #include "tree-ssa-loop-manip.h" #include "tree-scalar-evolution.h" +#include "gimple-ssa.h" +#include "tree-into-ssa.h" #include #ifdef HAVE_cloog @@ -547,6 +549,73 @@ return last_e; } +/* Inserts in iv_map a tuple (OLD_LOOP->num, NEW_NAME) for the induction + variables of the loops around GBB in SESE. + + FIXME: Instead of using a vec that maps each loop id to a possible + chrec, we could consider using a map that maps loop ids to the + corresponding tree expressions. */ + +static void +build_iv_mapping (vec iv_map, gimple_bb_p gbb, + __isl_keep isl_ast_expr *user_expr, ivs_params &ip, + sese region) +{ + gcc_assert (isl_ast_expr_get_type (user_expr) == isl_ast_expr_op && + isl_ast_expr_get_op_type (user_expr) == isl_ast_op_call); + int i; + isl_ast_expr *arg_expr; + for (i = 1; i < isl_ast_expr_get_op_n_arg (user_expr); i++) + { + arg_expr = isl_ast_expr_get_op_arg (user_expr, i); + tree type = + build_nonstandard_integer_type (graphite_expression_type_precision, 0); + tree t = gcc_expression_from_isl_expression (type, arg_expr, ip); + loop_p old_loop = gbb_loop_at_index (gbb, region, i - 1); + iv_map[old_loop->num] = t; + } + +} + +/* Translates an isl_ast_node_user to Gimple. + + FIXME: We should remove iv_map.create (loop->num + 1), if it is possible. */ + +static edge +translate_isl_ast_node_user (__isl_keep isl_ast_node *node, + edge next_e, ivs_params &ip) +{ + gcc_assert (isl_ast_node_get_type (node) == isl_ast_node_user); + isl_ast_expr *user_expr = isl_ast_node_user_get_expr (node); + isl_ast_expr *name_expr = isl_ast_expr_get_op_arg (user_expr, 0); + gcc_assert (isl_ast_expr_get_type (name_expr) == isl_ast_expr_id); + isl_id *name_id = isl_ast_expr_get_id (name_expr); + poly_bb_p pbb = (poly_bb_p) isl_id_get_user (name_id); + gcc_assert (pbb); + gimple_bb_p gbb = PBB_BLACK_BOX (pbb); + vec iv_map; + isl_ast_expr_free (name_expr); + isl_id_free (name_id); + + gcc_assert (GBB_BB (gbb) != ENTRY_BLOCK_PTR_FOR_FN (cfun) && + "The entry block should not even appear within a scop"); + + loop_p loop = gbb_loop (gbb); + iv_map.create (loop->num + 1); + iv_map.safe_grow_cleared (loop->num + 1); + + build_iv_mapping (iv_map, gbb, user_expr, ip, SCOP_REGION (pbb->scop)); + isl_ast_expr_free (user_expr); + next_e = copy_bb_and_scalar_dependences (GBB_BB (gbb), + SCOP_REGION (pbb->scop), next_e, + iv_map, + &graphite_regenerate_error); + iv_map.release (); + mark_virtual_operands_for_renaming (cfun); + update_ssa (TODO_update_ssa); + return next_e; +} + /* Translates an ISL AST node NODE to GCC representation in the context of a SESE. */ @@ -567,7 +636,7 @@ return next_e; case isl_ast_node_user: - return next_e; + return translate_isl_ast_node_user (node, next_e, ip); case isl_ast_node_block: return next_e; Index: gcc/testsuite/gcc.dg/graphite/isl-ast-gen-single-loop-1.c =================================================================== --- gcc/testsuite/gcc.dg/graphite/isl-ast-gen-single-loop-1.c (revision 0) +++ gcc/testsuite/gcc.dg/graphite/isl-ast-gen-single-loop-1.c (working copy) @@ -0,0 +1,26 @@ +/* { dg-do run } */ +/* { dg-options "-O2 -fgraphite-identity -fgraphite-code-generator=isl" } */ + +int +foo () +{ + int i, res; + + for (i = 0, res = 0; i < 50; i++) + res += i; + + return res; +} + +extern void abort (); + +int +main (void) +{ + int res = foo (); + + if (res != 1225) + abort (); + + return 0; +} Index: gcc/testsuite/gcc.dg/graphite/isl-ast-gen-single-loop-2.c =================================================================== --- gcc/testsuite/gcc.dg/graphite/isl-ast-gen-single-loop-2.c (revision 0) +++ gcc/testsuite/gcc.dg/graphite/isl-ast-gen-single-loop-2.c (working copy) @@ -0,0 +1,34 @@ +/* { dg-do run } */ +/* { dg-options "-O2 -fgraphite-identity -fgraphite-code-generator=isl" } */ +int n = 50; + +void +foo (int a[]) +{ + int i; + for (i = n - 20; i < 50; i++) + a[i] = i; +} + +int +array_sum (int a[]) +{ + int i; + int res = 0; + for(i = n - 20; i < n; i *= 2) + res += a[i]; + return res; +} + +extern void abort (); + +int +main (void) +{ + int a[50]; + foo (a); + int res = array_sum (a); + if (res != 30) + abort (); + return 0; +} Index: gcc/testsuite/gcc.dg/graphite/isl-ast-gen-single-loop-3.c =================================================================== --- gcc/testsuite/gcc.dg/graphite/isl-ast-gen-single-loop-3.c (revision 0) +++ gcc/testsuite/gcc.dg/graphite/isl-ast-gen-single-loop-3.c (working copy) @@ -0,0 +1,34 @@ +/* { dg-do run } */ +/* { dg-options "-O2 -fgraphite-identity -fgraphite-code-generator=isl" } */ +int n = 50; + +void +foo (int a[]) +{ + int i; + for (i = 0; i < n; i++) + a[i] = i; +} + +int +array_sum (int a[]) +{ + int i; + int res = 0; + for(i = 1; i < n; i *= 2) + res += a[i]; + return res; +} + +extern void abort (); + +int +main (void) +{ + int a[50]; + foo (a); + int res = array_sum (a); + if (res != 63) + abort (); + return 0; +}