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] - Rev 12
Compare with Previous | Blame | 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); }