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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gcc.dg/] [struct/] [wo_prof_escape_arg_to_local.c] - Rev 338

Compare with Previous | Blame | View Log

/* { dg-options "-O3 -fno-inline -fno-ipa-sra -fipa-type-escape -fdump-ipa-all -fipa-struct-reorg -fwhole-program -combine" } */
/* { dg-do compile } */
/* { dg-do run } */
 
#include <stdlib.h>
struct str
{
  int a;
  float b;
};
 
#ifdef STACK_SIZE
#if STACK_SIZE > 8000
#define N 1000
#else
#define N (STACK_SIZE/8)
#endif
#else
#define N 1000
#endif
 
int
foo (struct str * p_str)
{
  static int sum = 0;
 
  sum = sum + p_str->a;
  return sum;
}
 
int
main ()
{
  int i, sum;
  struct str * p = malloc (N * sizeof (struct str));
  if (p == NULL)
    return 0;
  for (i = 0; i < N; i++)
    sum = foo (p+i);
 
  return 0;
}
 
/*--------------------------------------------------------------------------*/
/* { dg-final { scan-ipa-dump "is passed to local function...Excluded." "ipa_struct_reorg" } } */
/* { dg-final { cleanup-ipa-dump "*" } } */
 

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.