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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [20070507-1.c] - Rev 826

Compare with Previous | Blame | View Log

/* This failed on s390x due to bug in loop.c.
   loop.c failed to remove a REG_EQUAL note when
   hoisting an insn from a loop body.  */
 
/* { dg-options "-O3 -fPIC" } */
/* { dg-do run { target fpic } } */
 
typedef __SIZE_TYPE__ size_t;
int memcmp(const void *s1, const void *s2, size_t n);
 
typedef struct
{
  char name[30];
  int a;
} LOCAL;
 
int global = 0;
int sy = 1;
int subroutine_offset;
 
LOCAL local = { "local", 0 };
LOCAL keywords = { "keywords", 1 };
int local_table = 0;
int keywords_table = 0;
 
void __attribute__((noinline)) bar (char *p_buffer)
{
  p_buffer[255] = 1;
}
 
int __attribute__((noinline)) foo (char *p_str1)
{
  global = 1;
  return 1;
}
 
int __attribute__((noinline)) loop_next (int *p_table, char *p_table_head)
{
  static loop_next = 0;
 
  if (loop_next == 1)
    return 1;
 
  loop_next = 1;
  return 0;
}
 
int
main ()
{
  char buffer[256];
  int ende = 0;
  int index;
  int local_base = 2;
 
  keywords.a = 1;
  for (sy = 0;; sy++)
    {
      for (index = 1;;)
	{
	  bar (buffer);
	  if (buffer[sy] != 0)
	    {
	      ende = 1;
	      break;
	    };
	  if (foo (buffer))
	    {
	      keywords.a += index - 1;
	      break;
	    }
	  index++;
	}
      if (ende)
	break;
    }
 
  subroutine_offset = 0;
 
  for (;;)
    {
      if (loop_next (&keywords_table, (char*)&keywords))
	break;
 
      if ((!memcmp (keywords.name, "+++", 3)))
	local_base = 100;
      else
	local_base = 0;
 
      if ((!memcmp (keywords.name, "+++", 3)))
	subroutine_offset += local_table;
 
      for (;;)
	{
	  if (loop_next (&local_table, (char*)&local))
	    break;;
	  if ((local.a == 0))
	    continue;;
	  foo (local.name);
	}
    }
  return 0;
}
 

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.