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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [pr37943.c] - Blame information for rev 801

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

Line No. Rev Author Line
1 689 jeremybenn
/* { dg-options "-O3 -fgraphite-identity -fdump-tree-graphite-all" } */
2
 
3
typedef struct
4
{
5
      int mode,state,num,state_out;
6
      unsigned char* bits;
7
      char *out;
8
}test;
9
unsigned char copy( test* s )
10
{
11
   while(1)
12
     {
13
      if (s->mode == 0) break;
14
      if (s->state_out >= s->num) break;
15
      *(s->out) = s->bits[s->state_out];
16
      if (s->mode == 0) s->mode++;
17
     }
18
}
19
unsigned char compress(test *in)
20
{
21
   unsigned char p_in, p_out;
22
   while(1)
23
   {
24
      if (in->state == 1)
25
      {
26
         p_out |= copy(in);
27
         if (in->state_out < in->num) break;
28
      }
29
   }
30
   return p_in || p_out;
31
}
32
/* { dg-final { cleanup-tree-dump "graphite" } } */
33
 

powered by: WebSVN 2.1.0

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