URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [pr19121.c] - Rev 378
Go to most recent revision | 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); }
Go to most recent revision | Compare with Previous | Blame | View Log