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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [interchange-16.c] - Rev 689

Compare with Previous | Blame | View Log

void spread_i1 (int *rptr, int *sptr, int ncopies, int *extent, int rdelta, int m)
{
  int *dest;
  int n;
 
  while (m--)
    {
      dest = rptr;
      for (n = 0; n < ncopies; n ++)
	{
	  *dest = *sptr;
	  dest += rdelta;
	}
      if (extent [n])
	if (n)
	  rptr ++;
    }
}
 
int main() { return 0; }
 
/* { dg-final { cleanup-tree-dump "graphite" } } */
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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