gcc/testsuite/gcc.c-torture/compile/pr19121.c

   1 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 }