bad.c (inhibit_warnings): Delete redundant declaration.

	* bad.c (inhibit_warnings): Delete redundant declaration.

	* com.c (skip_redundant_dir_prefix): Likewise.

	* com.h (mark_addressable): Likewise.

From-SVN: r41312

gcc/f/ChangeLog

+Thu Apr 12 17:57:55 2001  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+	* bad.c (inhibit_warnings): Delete redundant declaration.
+
+	* com.c (skip_redundant_dir_prefix): Likewise.
+
+	* com.h (mark_addressable): Likewise.
+
 2001-04-02  Jakub Jelinek  <jakub@redhat.com>
 
 	* lex.c (ffelex_hash_): Avoid eating one whole line after

gcc/f/bad.c

@@ -184,8 +184,6 @@ ffebad_start_ (bool lex_override, ffebad errnum, ffebadSeverity sev,
 
 #if FFECOM_targetCURRENT == FFECOM_targetGCC
   {
-    extern int inhibit_warnings;	/* From toplev.c. */
-
     switch (ffebad_severity_)
       {				/* Tell toplev.c about this message. */
       case FFEBAD_severityINFORMATIONAL:

gcc/f/com.c

@@ -15648,7 +15648,6 @@ static void append_include_chain (struct file_name_list *first,
 static FILE *open_include_file (char *filename,
 				struct file_name_list *searchptr);
 static void print_containing_files (ffebadSeverity sev);
-static const char *skip_redundant_dir_prefix (const char *);
 static char *read_filename_string (int ch, FILE *f);
 static struct file_name_map *read_name_map (const char *dirname);
 

gcc/f/com.h

@@ -314,11 +314,6 @@ tree ffecom_truth_value (tree expr);
 tree ffecom_truth_value_invert (tree expr);
 tree ffecom_type_expr (ffebld expr);
 tree ffecom_which_entrypoint_decl (void);
-
-/* These need to be in the front end with exactly these interfaces,
-   as they're called by the back end.  */
-
-int mark_addressable (tree expr);
 #endif	/* FFECOM_targetCURRENT == FFECOM_targetGCC */
 
 /* Define macros. */