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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [arm/] [pr42093.c] - Rev 751

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

/* { dg-options "-mthumb -O2 -fno-reorder-blocks" }  */
/* { dg-require-effective-target arm_thumb2_ok } */
/* { dg-final { scan-assembler-not "tbb" } } */
/* { dg-final { scan-assembler-not "tbh" } } */
 
#include <stdlib.h>
 
int gbl;
int foo (int *buf, int n)
{
  int ctr = 0;
  int c;
  while (1)
    {
      c = buf[ctr++];
      switch (c)
        {
        case '\n':
          gbl++;
          break;
 
        case ' ': case '\t' : case '\f' : case '\r':
          break;
 
        case ';':
          do
            c = buf [ctr++];
          while (c != '\n' && c != -1);
          gbl++;
          break;
 
        case '/':
          {
            int prevc;
            c = buf [ctr++];
            if (c != '*')
              abort ();
 
            prevc = 0;
            while ((c = buf[ctr++]) && c != -1)
              {
                if (c == '\n')
                  gbl++;
              }
            break;
          }
        default:
          return c;
        }
    }
}
 

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.