URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [tree-ssa/] [tailrecursion-4.c] - Blame information for rev 867

Go to most recent revision | Details | Compare with Previous | View Log


/* { dg-do compile } */
/* { dg-options "-O1 -foptimize-sibling-calls -fdump-tree-tailr-details" } */
int
t(int a)
{
        int r;
        if (a&1)
                r = t(a-1);
        else if (a)
                r = t(a-2);
        else
                return 0;
        if (r)
                r=r;
        return r;
}
/* { dg-final { scan-tree-dump-times "Eliminated tail recursion" 2 "tailr"} } */
/* { dg-final { cleanup-tree-dump "tailr" } } */

Line No.	Rev	Author	Line
1	149	jeremybenn	`/* { dg-do compile } */`
2			`/* { dg-options "-O1 -foptimize-sibling-calls -fdump-tree-tailr-details" } */`
3			`int`
4			`t(int a)`
5			`{`
6			`int r;`
7			`if (a&1)`
8			`r = t(a-1);`
9			`else if (a)`
10			`r = t(a-2);`
11			`else`
12			`return 0;`
13			`if (r)`
14			`r=r;`
15			`return r;`
16			`}`
17			`/* { dg-final { scan-tree-dump-times "Eliminated tail recursion" 2 "tailr"} } */`
18			`/* { dg-final { cleanup-tree-dump "tailr" } } */`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [tree-ssa/] [tailrecursion-4.c] - Blame information for rev 867