modernc.org/ccgo/v3@v3.16.14/lib/testdata/gcc-9.1.0/gcc/testsuite/gcc.c-torture/compile/pr19121.c (about)

     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  }