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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [pr19121.c] - Blame information for rev 774

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


typedef struct interpreter {
  char Itokenbuf[256];
} PerlInterpreter;
static inline void S_missingterm(char *s)
{
  char tmpbuf[3] = "";
  char q;
  if (!s)
    s = tmpbuf;
  q = strchr(s,'"') ? '\'' : '"';
}
void S_scan_heredoc(PerlInterpreter *my_perl, char *s, int i)
{
  char term;
  term = *my_perl->Itokenbuf;
  if (i)
  {
    *s = term;
    S_missingterm(my_perl->Itokenbuf);
  }
  else
    S_missingterm(my_perl->Itokenbuf);
}

Line No.	Rev	Author	Line
1	688	jeremybenn	`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			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [pr19121.c] - Blame information for rev 774