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] - Rev 774

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

/* PR middle-end/38981 */
/* Reporter: Kamaraju Kusumanchi <kamaraju@gmail.com> */
 
struct d_info
{
  int **subs;
};
 
static int *
d_substitution (struct d_info *di, int prefix)
{
  char c;
 
	c='_';
 
  if (c == '_')
    {
      unsigned int id;
 
      if (c != '_')
	{
	  do
	    {
	      unsigned int new_id;
 
	      if (new_id < id)
		return 0;
	      id = new_id;
	    }
	  while (c != '_');
	}
 
 
 
      return di->subs[id];
    }
  else
    {
      int verbose;
      int code;
      int simple_len;
 
	code=0;
	simple_len=0;
	verbose=0;
      if (! code && prefix)
	{
	  char peek;
		peek='A';
 
	  if (peek == 'C' || peek == 'D')
	    verbose = 1;
	}
 
	      if (verbose)
		{
		  code = simple_len;
		}
 
    }
}
 

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.