com.h: Remove FFECOM_targetCURRENT...

        * com.h: Remove FFECOM_targetCURRENT, FFECOM_ONEPASS, BUILT_FOR_270,
        BUILT_FOR_280, FFECOM_GCC_INCLUDE, all derivitive defines, and all
        related conditional compilation directives.
        * bad.c, bld.c, bld.h, com.c, equiv.c, equiv.h, global.h, intdoc.c,
        intrin.c, intrin.h, lex.c, parse.c, sta.c, std.c, ste.c, ste.h, stt.c,
        stt.h, stw.h, symbol.c, symbol.h, target.h, top.c: Likewise.

From-SVN: r46324

1 files changed, 3 insertions, 47 deletions

diff --git a/gcc/f/lex.c b/gcc/f/lex.c
index 9f49c7e..9fef050 100644
--- a/gcc/f/lex.c
+++ b/gcc/f/lex.c
@@ -27,13 +27,11 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 #include "malloc.h"
 #include "src.h"
 #include "debug.h"
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 #include "flags.h"
 #include "input.h"
 #include "toplev.h"
 #include "output.h"
 #include "ggc.h"
-#endif
 
 static void ffelex_append_to_token_ (char c);
 static int ffelex_backslash_ (int c, ffewhereColumnNumber col);
@@ -45,10 +43,8 @@ static void ffelex_bad_2_ (ffebad errnum, ffewhereLineNumber ln0,
 static void ffelex_bad_here_ (int num, ffewhereLineNumber ln0,
 			      ffewhereColumnNumber cn0);
 static void ffelex_finish_statement_ (void);
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 static int ffelex_get_directive_line_ (char **text, FILE *finput);
 static int ffelex_hash_ (FILE *f);
-#endif
 static ffewhereColumnNumber ffelex_image_char_ (int c,
 						ffewhereColumnNumber col);
 static void ffelex_include_ (void);
@@ -561,7 +557,6 @@ ffelex_bad_here_ (int n, ffewhereLineNumber ln0,
   ffewhere_column_kill (wc0);
 }
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 static int
 ffelex_getc_ (FILE *finput)
 {
@@ -578,8 +573,6 @@ ffelex_getc_ (FILE *finput)
   return getc (finput);
 }
 
-#endif
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 static int
 ffelex_cfebackslash_ (int *use_d, int *d, FILE *finput)
 {
@@ -725,10 +718,8 @@ ffelex_cfebackslash_ (int *use_d, int *d, FILE *finput)
   return c;
 }
 
-#endif
 /* A miniature version of the C front-end lexer.  */
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 static int
 ffelex_cfelex_ (ffelexToken *xtoken, FILE *finput, int c)
 {
@@ -845,9 +836,7 @@ ffelex_cfelex_ (ffelexToken *xtoken, FILE *finput, int c)
   *xtoken = token;
   return c;
 }
-#endif
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 static void
 ffelex_file_pop_ (const char *input_filename)
 {
@@ -868,8 +857,6 @@ ffelex_file_pop_ (const char *input_filename)
     input_file_stack->name = input_filename;
 }
 
-#endif
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 static void
 ffelex_file_push_ (int old_lineno, const char *input_filename)
 {
@@ -889,7 +876,6 @@ ffelex_file_push_ (int old_lineno, const char *input_filename)
   if (input_file_stack)
     input_file_stack->name = input_filename;
 }
-#endif
 
 /* Prepare to finish a statement-in-progress by sending the current
    token, if any, then setting up EOS as the current token with the
@@ -980,7 +966,6 @@ ffelex_finish_statement_ ()
 
 /* Copied from gcc/c-common.c get_directive_line.  */
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 static int
 ffelex_get_directive_line_ (char **text, FILE *finput)
 {
@@ -1052,7 +1037,6 @@ ffelex_get_directive_line_ (char **text, FILE *finput)
       char_escaped = (c == '\\' && ! char_escaped);
     }
 }
-#endif
 
 /* Handle # directives that make it through (or are generated by) the
    preprocessor.  As much as reasonably possible, emulate the behavior
@@ -1063,8 +1047,6 @@ ffelex_get_directive_line_ (char **text, FILE *finput)
 
    Returns the next character unhandled, which is always newline or EOF.  */
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
-
 #if defined HANDLE_PRAGMA
 /* Local versions of these macros, that can be passed as function pointers.  */
 static int
@@ -1117,7 +1099,7 @@ ffelex_hash_ (FILE *finput)
 		 ISSPACE() may evaluate its argument more than once!  */
 	      while (((c = getc (finput)), ISSPACE(c)))
 		continue;
-	      
+
 	      do
 		{
 		  * buff ++ = c;
@@ -1127,7 +1109,7 @@ ffelex_hash_ (FILE *finput)
 		     && buff < buffer + 128);
 
 	      pragma_ungetc (c);
-		
+
 	      * -- buff = 0;
 #ifdef HANDLE_PRAGMA
 	      if (HANDLE_PRAGMA (pragma_getc, pragma_ungetc, buffer))
@@ -1414,7 +1396,6 @@ ffelex_hash_ (FILE *finput)
     ;
   return c;
 }
-#endif	/* FFECOM_targetCURRENT == FFECOM_targetGCC */
 
 /* "Image" a character onto the card image, return incremented column number.
 
@@ -1538,10 +1519,8 @@ ffelex_include_ ()
   ffewhereLineNumber linecount_current = ffelex_linecount_current_;
   ffewhereLineNumber linecount_offset
     = ffewhere_line_filelinenum (current_wl);
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
   int old_lineno = lineno;
   const char *old_input_filename = input_filename;
-#endif
 
   if (card_length != 0)
     {
@@ -1559,18 +1538,14 @@ ffelex_include_ ()
 
   ffewhere_file_set (include_wherefile, TRUE, 0);
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
   ffelex_file_push_ (old_lineno, ffewhere_file_name (include_wherefile));
-#endif	/* FFECOM_targetCURRENT == FFECOM_targetGCC */
 
   if (ffelex_include_free_form_)
     ffelex_file_free (include_wherefile, include_file);
   else
     ffelex_file_fixed (include_wherefile, include_file);
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
   ffelex_file_pop_ (ffewhere_file_name (current_wf));
-#endif	/* FFECOM_targetCURRENT == FFECOM_targetGCC */
 
   ffewhere_file_set (current_wf, TRUE, linecount_offset);
 
@@ -1586,10 +1561,8 @@ ffelex_include_ ()
     }
   ffelex_card_image_[card_length] = '\0';
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
   input_filename = old_input_filename;
   lineno = old_lineno;
-#endif
   ffelex_linecount_current_ = linecount_current;
   ffelex_current_wf_ = current_wf;
   ffelex_final_nontab_column_ = final_nontab_column;
@@ -1647,9 +1620,7 @@ ffelex_next_line_ ()
 {
   ffelex_linecount_current_ = ffelex_linecount_next_;
   ++ffelex_linecount_next_;
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
   ++lineno;
-#endif
 }
 
 static void
@@ -1865,10 +1836,8 @@ ffelex_file_fixed (ffewhereFile wf, FILE *f)
 
   assert (ffelex_handler_ != NULL);
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
   lineno = 0;
   input_filename = ffewhere_file_name (wf);
-#endif
   ffelex_current_wf_ = wf;
   disallow_continuation_line = TRUE;
   ignore_disallowed_continuation = FALSE;
@@ -1957,10 +1926,8 @@ ffelex_file_fixed (ffewhereFile wf, FILE *f)
 	  while ((c != '\n') && (c != EOF))
 	    c = getc (f);
 	}
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
       else if (lextype == FFELEX_typeHASH)
 	c = ffelex_hash_ (f);
-#endif
       else if (lextype == FFELEX_typeSLASH)
 	{
 	  /* SIDE-EFFECT ABOVE HAS HAPPENED. */
@@ -3077,10 +3044,8 @@ ffelex_file_free (ffewhereFile wf, FILE *f)
 
   assert (ffelex_handler_ != NULL);
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
   lineno = 0;
   input_filename = ffewhere_file_name (wf);
-#endif
   ffelex_current_wf_ = wf;
   continuation_line = FALSE;
   ffelex_token_->type = FFELEX_typeNONE;
@@ -3118,14 +3083,7 @@ ffelex_file_free (ffewhereFile wf, FILE *f)
 	 || (c == '#'))
     {
       if (c == '#')
-	{
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
-	  c = ffelex_hash_ (f);
-#else
-	  /* Don't skip over # line after all.  */
-	  break;
-#endif
-	}
+	c = ffelex_hash_ (f);
 
      comment_line:		/* :::::::::::::::::::: */
 
@@ -3968,7 +3926,6 @@ ffelex_file_free (ffewhereFile wf, FILE *f)
 
 /* See the code in com.c that calls this to understand why.  */
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 void
 ffelex_hash_kludge (FILE *finput)
 {
@@ -4005,7 +3962,6 @@ ffelex_hash_kludge (FILE *finput)
     }
 }
 
-#endif
 void
 ffelex_init_1 ()
 {