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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [20090209-1.c] - Blame information for rev 749

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

Line No. Rev Author Line
1 688 jeremybenn
/* PR middle-end/38981 */
2
/* Reporter: Kamaraju Kusumanchi <kamaraju@gmail.com> */
3
 
4
struct d_info
5
{
6
  int **subs;
7
};
8
 
9
static int *
10
d_substitution (struct d_info *di, int prefix)
11
{
12
  char c;
13
 
14
        c='_';
15
 
16
  if (c == '_')
17
    {
18
      unsigned int id;
19
 
20
      if (c != '_')
21
        {
22
          do
23
            {
24
              unsigned int new_id;
25
 
26
              if (new_id < id)
27
                return 0;
28
              id = new_id;
29
            }
30
          while (c != '_');
31
        }
32
 
33
 
34
 
35
      return di->subs[id];
36
    }
37
  else
38
    {
39
      int verbose;
40
      int code;
41
      int simple_len;
42
 
43
        code=0;
44
        simple_len=0;
45
        verbose=0;
46
      if (! code && prefix)
47
        {
48
          char peek;
49
                peek='A';
50
 
51
          if (peek == 'C' || peek == 'D')
52
            verbose = 1;
53
        }
54
 
55
              if (verbose)
56
                {
57
                  code = simple_len;
58
                }
59
 
60
    }
61
}

powered by: WebSVN 2.1.0

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