* c-common.c, c-common.h, c-decl.c, c-lex.c, c-parse.in,

[pf3gnuchains/gcc-fork.git] / gcc / f / lex.c

diff --git a/gcc/f/lex.c b/gcc/f/lex.c
index d9f3bad..b3e57ba 100644 (file)
--- a/gcc/f/lex.c
+++ b/gcc/f/lex.c
@@ -246,8 +246,6 @@ ffelex_backslash_ (int c, ffewhereColumnNumber col)
      hollerith constants.  */
 
 #define wide_flag 0
-#define warn_traditional 0
-#define flag_traditional 0
 
   switch (state)
     {
@@ -268,18 +266,6 @@ ffelex_backslash_ (int c, ffewhereColumnNumber col)
       switch (c)
        {
        case 'x':
-         if (warn_traditional)
-           {
-             /* xgettext:no-c-format */
-             ffebad_start_msg_lex ("The meaning of `\\x' (at %0) varies with -traditional",
-                                   FFEBAD_severityWARNING);
-             ffelex_bad_here_ (0, line, column);
-             ffebad_finish ();
-           }
-
-         if (flag_traditional)
-           return c;
-
          code = 0;
          count = 0;
          nonnull = 0;
@@ -319,24 +305,9 @@ ffelex_backslash_ (int c, ffewhereColumnNumber col)
          return TARGET_BS;
 
        case 'a':
-         if (warn_traditional)
-           {
-             /* xgettext:no-c-format */
-             ffebad_start_msg_lex ("The meaning of `\\a' (at %0) varies with -traditional",
-                                   FFEBAD_severityWARNING);
-             ffelex_bad_here_ (0, line, column);
-             ffebad_finish ();
-           }
-
-         if (flag_traditional)
-           return c;
          return TARGET_BELL;
 
        case 'v':
-#if 0 /* Vertical tab is present in common usage compilers.  */
-         if (flag_traditional)
-           return c;
-#endif
          return TARGET_VT;
 
        case 'e':
@@ -589,12 +560,6 @@ ffelex_cfebackslash_ (int *use_d, int *d, FILE *finput)
   switch (c)
     {
     case 'x':
-      if (warn_traditional)
-       warning ("the meaning of `\\x' varies with -traditional");
-
-      if (flag_traditional)
-       return c;
-
       code = 0;
       count = 0;
       nonnull = 0;
@@ -672,18 +637,9 @@ ffelex_cfebackslash_ (int *use_d, int *d, FILE *finput)
       return TARGET_BS;
 
     case 'a':
-      if (warn_traditional)
-       warning ("the meaning of `\\a' varies with -traditional");
-
-      if (flag_traditional)
-       return c;
       return TARGET_BELL;
 
     case 'v':
-#if 0 /* Vertical tab is present in common usage compilers.  */
-      if (flag_traditional)
-       return c;
-#endif
       return TARGET_VT;
 
     case 'e':