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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [20030414-1.c] - Rev 867

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

/* PR target/10377
   Distilled by Hans-Peter Nilsson <hp@axis.com> from ncurses-5.3 infocmp.c.
   Copyright (C) 2003 Free Software Foundation.  */
 
/* { dg-do assemble } */
/* { dg-options "-O2 -fPIC" { target *-*-*gnu* } } */
 
extern int f2 (char *, char *);
extern char *ss[];
extern char *cc;
void
f1 (char *dd, char *bb)
{
  char *sp = bb + 1;
  char *ap;
  int i;
  char *ee = 0;
  char *cp;
 
  for (i = 0, cp = cc; i < 42; i++)
    if (cp)
      {
	if (f2 (dd, "xx") || f2 (ss[i], "xx") || f2 (ss[i], "yy"))
	  if (bb < cp)
	    continue;
	ee = ss[i];
	break;
      }
 
  if (!ee)
    for (ap = cc; *ap; ap++)
      if (f2(ap, sp))
	{
	  ee = ap;
	  break;
	}
 
  cc = ee;
}
 

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.