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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [20040914-1.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
extern int clobber_k (int *);
2
extern int barrier (void);
3
int t, u;
4
 
5
int
6
process_second_stream(void)
7
{
8
  int k;
9
  int i = 0, j = 0, result;
10
 
11
  clobber_k (&k);
12
 
13
  while(t)
14
    ;
15
 
16
  while(!j)
17
    {
18
      while(!j)
19
        {
20
          barrier ();
21
          if (t == 0)
22
            break;
23
          else if(t == 1)
24
            t = 2;
25
          else
26
            {
27
              if(t < 0)
28
                j=1;
29
              if(u < 0)
30
                k = i++;
31
            }
32
        }
33
 
34
      if(!j && u)
35
        j=1;
36
    }
37
 
38
  return 0;
39
}

powered by: WebSVN 2.1.0

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