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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [920428-6.c] - Blame information for rev 774

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

Line No. Rev Author Line
1 688 jeremybenn
typedef struct x
2
{
3
  struct x *type;
4
  struct x *chain;
5
  struct x *value;
6
} *tree;
7
 
8
int
9
func (new, old)
10
     register tree new, old;
11
{
12
  if (old->type == 0 || new->type == 0)
13
    {
14
      register tree t = old->type;
15
      if (t == 0)
16
        t = new->type;
17
      for (; t; t = t->chain )
18
        if (t->value)
19
          return 1;
20
    }
21
  return 0;
22
}

powered by: WebSVN 2.1.0

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