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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [pr19121.c] - Diff between revs 297 and 338

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