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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [pr19121.c] - Blame information for rev 12

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 12 jlechner
typedef struct interpreter {
2
  char Itokenbuf[256];
3
} PerlInterpreter;
4
static inline void S_missingterm(char *s)
5
{
6
  char tmpbuf[3] = "";
7
  char q;
8
  if (!s)
9
    s = tmpbuf;
10
  q = strchr(s,'"') ? '\'' : '"';
11
}
12
void S_scan_heredoc(PerlInterpreter *my_perl, char *s, int i)
13
{
14
  char term;
15
  term = *my_perl->Itokenbuf;
16
  if (i)
17
  {
18
    *s = term;
19
    S_missingterm(my_perl->Itokenbuf);
20
  }
21
  else
22
    S_missingterm(my_perl->Itokenbuf);
23
}

powered by: WebSVN 2.1.0

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