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

Subversion Repositories openrisc

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

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

int transformation[(2*19 - 1) * (2*19 - 1)][8];
 
const int transformation2[8][2][2] = {
  {{1, 0}, {0, 1}},
  {{0, 1}, {-1, 0}},
  {{-1, 0}, {0, -1}},
  {{0, -1}, {1, 0}},
  {{0, -1}, {-1, 0}},
  {{-1, 0}, {0, 1}},
  {{0, 1}, {1, 0}},
  {{1, 0}, {0, -1}}
};
 
void
transformation_init (void)
{
  int k;
  int dx;
  int dy;
 
  for (k = 0; k < 8; k++)
    {
      for (dy = -19 + 1; dy <= 19 - 1; dy++)
	{
	  for (dx = -19 + 1; dx <= 19 - 1; dx++)
	    {
	      int tx;
	      int ty;
	      do
		{
		  *&tx =
		    transformation2[k][0][0] * (dx) +
		    transformation2[k][0][1] * (dy);
		  *&ty =
		    transformation2[k][1][0] * (dx) +
		    transformation2[k][1][1] * (dy);
		}
	      while (0);
	      transformation[((dy + 19 - 1) * (2 * 19 - 1) +
			      (dx + 19 - 1))][k] = ((tx) * (19 + 1) + (ty));
	    }
	}
    }
}
 

Go to most recent revision | 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.