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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [torture/] [pr24626-1.c] - Blame information for rev 867

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

Line No. Rev Author Line
1 149 jeremybenn
/* { dg-do compile } */
2
 
3
typedef long
4
(*bla)(int *node);
5
 
6
static long F2(void *tree, long blk, bla after_node_func)
7
{
8
 long call_result = 0;
9
 int *node;
10
 
11
 
12
 if (call_result = after_node_func(node))
13
  goto error_free_node;
14
 
15
 T(node);
16
 return 0;
17
 
18
error_free_node:
19
 T(node);
20
error:
21
 return call_result;
22
}
23
 
24
long F1(void *tree)
25
{
26
 return F2(tree, F3(tree), (void *)0);
27
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.