diff options
author | Neil Booth <neilb@earthling.net> | 2000-07-04 22:26:16 +0000 |
---|---|---|
committer | Neil Booth <neil@gcc.gnu.org> | 2000-07-04 22:26:16 +0000 |
commit | 043afb2a089d22e59dd0a6e9d4bb2ca3aa342432 (patch) | |
tree | 817777257373fdb5986b614252de7d6ef1b8ad5b /gcc/testsuite/gcc.dg/cpp/lexstrng.c | |
parent | d2c1325af0ee17d224af50909f0dbcc70526b98d (diff) | |
download | gcc-043afb2a089d22e59dd0a6e9d4bb2ca3aa342432.zip gcc-043afb2a089d22e59dd0a6e9d4bb2ca3aa342432.tar.gz gcc-043afb2a089d22e59dd0a6e9d4bb2ca3aa342432.tar.bz2 |
cpplex.c: Fix trigraph replacement within strings.
* cpplex.c: Fix trigraph replacement within strings.
* gcc.dg/cpp/lexident.c, gcc.dg/cpp/lexnum.c,
gcc.dg/cpp/lexstrng.c: New tests.
From-SVN: r34868
Diffstat (limited to 'gcc/testsuite/gcc.dg/cpp/lexstrng.c')
-rw-r--r-- | gcc/testsuite/gcc.dg/cpp/lexstrng.c | 69 |
1 files changed, 69 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.dg/cpp/lexstrng.c b/gcc/testsuite/gcc.dg/cpp/lexstrng.c new file mode 100644 index 0000000..4fbb3b5 --- /dev/null +++ b/gcc/testsuite/gcc.dg/cpp/lexstrng.c @@ -0,0 +1,69 @@ +/* Copyright (C) 2000 Free Software Foundation, Inc. */ + +/* { dg-do run } */ +/* { dg-options "-trigraphs" } */ + +/* Test lexing of strings and character constants. */ + +#include <string.h> + +#ifndef __WCHAR_TYPE__ +#define __WCHAR_TYPE__ int +#endif +typedef __WCHAR_TYPE__ wchar_t; + +extern int strcmp (const char *, const char *); +extern int puts (const char *); +extern void abort (void); +#define err(str) do { puts(str); abort(); } while (0) + +/* Escaped newlines. */ +const char *str1 = "s\ +t\ +\ +r??/ + 1"; + +const char x = '\ +??/ +b'; + +/* Test escaped terminators. */ +const char *term = "\"\\\"\\"; +const char termc = '\''; +const char *terms = "'"; + +/* Test wide strings and chars are lexed. */ +const wchar_t wchar = L'w'; +const wchar_t* wstring = L"wide string"; + +/* Test all 9 trigraphs embedded in a string. Test trigraphs do not + survive an embedded backslash newline. Test trigraphs preceded by + a '?' are still noticed. */ +const char *t = "??/\??<??>??=??)??\ +(??(??!??'??-???=???/ +?-"; + +int main (int argc, char *argv[]) +{ + if (strcmp (str1, "str 1")) + err ("str1"); + + if (x != 'b') + err ("b"); + + /* We have to split the string up to avoid trigraph replacement + here. Split the 2 trigraphs after both 1 and 2 ?s; just doing + this exposed a bug in the initial release of the tokenized lexer. */ + if (strcmp (t, "\\{}#]?" "?([|^~?#??" "-")) + err ("Embedded trigraphs"); + + if (term[0] != '"' || term[1] != '\\' || term[2] != '"' + || term[3] != '\\' || term[4] != '\0') + err ("Escaped string terminators"); + + if (termc != terms[0]) + err ("Escaped character constant terminator"); + + return 0; +} |