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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [pr45570.c] - Blame information for rev 749

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

Line No. Rev Author Line
1 689 jeremybenn
/* { dg-do compile { target powerpc*-*-* ia64-*-* i?86-*-* x86_64-*-* } } */
2
/* { dg-options "-O3 -fselective-scheduling2 -fsel-sched-pipelining -fsel-sched-pipelining-outer-loops -ftracer" } */
3
void
4
parser_get_next_char (char c, int qm, char *p)
5
{
6
  int quote_mode = 0;
7
  for (; *p; p++)
8
    {
9
      if (qm)
10
        {
11
          if (quote_mode == 0 && *p == '"' && *(p - 1))
12
            {
13
              quote_mode = 1;
14
              continue;
15
            }
16
          if (quote_mode && *p == '"' && *(p - 1))
17
            quote_mode = 0;
18
        }
19
      if (quote_mode == 0 && *p == c && *(p - 1))
20
        break;
21
    }
22
}
23
 
24
void
25
parser_get_next_parameter (char *p)
26
{
27
  parser_get_next_char (':', 1, p);
28
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.