* com.h: Remove FFECOM_targetCURRENT, FFECOM_ONEPASS, BUILT_FOR_270,

[pf3gnuchains/gcc-fork.git] / gcc / f / com.h

diff --git a/gcc/f/com.h b/gcc/f/com.h
index a0d08b1..5e20e2b 100644 (file)
--- a/gcc/f/com.h
+++ b/gcc/f/com.h
@@ -34,27 +34,9 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 
 #define FFECOM_dimensionsMAX 7 /* Max # dimensions (quick hack). */
 
-#define FFECOM_targetFFE 1
-#define FFECOM_targetGCC 2
-
-#ifndef FFE_STANDALONE
-#define FFECOM_targetCURRENT FFECOM_targetGCC  /* Backend! */
-#define FFECOM_ONEPASS 0
-#else
-#define FFECOM_targetCURRENT FFECOM_targetFFE
-#define FFECOM_ONEPASS 0
-#endif
-
-#if FFECOM_ONEPASS
-#define FFECOM_TWOPASS 0
-#else
-#define FFECOM_TWOPASS 1
-#endif
-
 #define FFECOM_SIZE_UNIT "byte"        /* Singular form. */
 #define FFECOM_SIZE_UNITS "bytes"      /* Plural form. */
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 #define FFECOM_constantNULL NULL_TREE
 #define FFECOM_nonterNULL NULL_TREE
 #define FFECOM_globalNULL NULL_TREE
@@ -139,31 +121,12 @@ typedef enum
     FFECOM_gfrt
   } ffecomGfrt;
 
-#endif /* FFECOM_targetCURRENT == FFECOM_targetGCC */
-
 /* Typedefs. */
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 #ifndef TREE_CODE
 #include "tree.h"
 #endif
 
-#ifndef BUILT_FOR_270
-#ifdef DECL_STATIC_CONSTRUCTOR /* In gcc/tree.h. */
-#define BUILT_FOR_270 1
-#else
-#define BUILT_FOR_270 0
-#endif
-#endif /* !defined (BUILT_FOR_270) */
-
-#ifndef BUILT_FOR_280
-#ifdef DECL_ONE_ONLY   /* In gcc/tree.h. */
-#define BUILT_FOR_280 1
-#else
-#define BUILT_FOR_280 0
-#endif
-#endif /* !defined (BUILT_FOR_280) */
-
 typedef tree ffecomConstant;
 #define FFECOM_constantHOOK
 typedef tree ffecomNonter;
@@ -185,7 +148,6 @@ struct _ffecom_symbol_
     tree assign_tree;          /* For ASSIGN'ed vars. */
     bool addr;                 /* Is address of item instead of item. */
   };
-#endif /* FFECOM_targetCURRENT == FFECOM_targetGCC */
 
 /* Include files needed by this one. */
 
@@ -200,7 +162,6 @@ struct _ffecom_symbol_
 
 /* Global objects accessed by users of this module. */
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 extern tree string_type_node;
 extern tree ffecom_integer_type_node;
 extern tree ffecom_integer_zero_node;
@@ -227,11 +188,9 @@ extern tree ffecom_f2c_ftnlen_two_node;
 extern tree ffecom_f2c_ptr_to_ftnlen_type_node;
 extern tree ffecom_f2c_ftnint_type_node;
 extern tree ffecom_f2c_ptr_to_ftnint_type_node;
-#endif /* FFECOM_targetCURRENT == FFECOM_targetGCC */
 
 /* Declare functions with prototypes. */
 
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 tree ffecom_1 (enum tree_code code, tree type, tree node);
 tree ffecom_1_fn (tree node);
 tree ffecom_2 (enum tree_code code, tree type, tree node1, tree node2);
@@ -251,16 +210,12 @@ tree ffecom_constantunion (ffebldConstantUnion *cu, ffeinfoBasictype bt,
 tree ffecom_const_expr (ffebld expr);
 tree ffecom_decl_field (tree context, tree prevfield, const char *name,
                        tree type);
-#endif /* FFECOM_targetCURRENT == FFECOM_targetGCC */
 void ffecom_close_include (FILE *f);
 int ffecom_decode_include_option (char *spec);
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 tree ffecom_end_compstmt (void);
-#endif /* FFECOM_targetCURRENT == FFECOM_targetGCC */
 void ffecom_end_transition (void);
 void ffecom_exec_transition (void);
 void ffecom_expand_let_stmt (ffebld dest, ffebld source);
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 tree ffecom_expr (ffebld expr);
 tree ffecom_expr_assign (ffebld expr);
 tree ffecom_expr_assign_w (ffebld expr);
@@ -282,13 +237,11 @@ tree ffecom_make_tempvar (const char *commentary, tree type,
                          ffetargetCharacterSize size, int elements);
 tree ffecom_modify (tree newtype, tree lhs, tree rhs);
 void ffecom_save_tree_forever (tree t);
-#endif /* FFECOM_targetCURRENT == FFECOM_targetGCC */
 void ffecom_file (const char *name);
 void ffecom_notify_init_storage (ffestorag st);
 void ffecom_notify_init_symbol (ffesymbol s);
 void ffecom_notify_primary_entry (ffesymbol fn);
 FILE *ffecom_open_include (char *name, ffewhereLine l, ffewhereColumn c);
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 void ffecom_prepare_arg_ptr_to_expr (ffebld expr);
 bool ffecom_prepare_end (void);
 void ffecom_prepare_expr_ (ffebld expr, ffebld dest);
@@ -303,38 +256,22 @@ tree ffecom_save_tree (tree t);
 void ffecom_start_compstmt (void);
 tree ffecom_start_decl (tree decl, bool is_init);
 void ffecom_sym_commit (ffesymbol s);
-#endif /* FFECOM_targetCURRENT == FFECOM_targetGCC */
 ffesymbol ffecom_sym_end_transition (ffesymbol s);
 ffesymbol ffecom_sym_exec_transition (ffesymbol s);
 ffesymbol ffecom_sym_learned (ffesymbol s);
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 void ffecom_sym_retract (ffesymbol s);
 tree ffecom_temp_label (void);
 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);
-#endif /* FFECOM_targetCURRENT == FFECOM_targetGCC */
 
 /* Define macros. */
 
-#if FFECOM_targetCURRENT == FFECOM_targetFFE
-#define ffecom_expr(e) (e)
-#define ffecom_init_0()
-#define ffecom_init_2()
-#define ffecom_label_kind() FFEINFO_kindtypeINTEGERDEFAULT
-#define ffecom_pointer_kind() FFEINFO_kindtypeINTEGERDEFAULT
-#define ffecom_ptr_to_expr(e) (e)
-#define ffecom_sym_commit(s)
-#define ffecom_sym_retract(s)
-#endif /* FFECOM_targetCURRENT == FFECOM_targetFFE */
-
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
 #define ffecom_f2c_typecode(bt,kt) ffecom_f2c_typecode_[(bt)][(kt)]
 #define ffecom_label_kind() ffecom_label_kind_
 #define ffecom_pointer_kind() ffecom_pointer_kind_
 #define ffecom_prepare_expr(e) ffecom_prepare_expr_ ((e), NULL)
-#endif /* FFECOM_targetCURRENT == FFECOM_targetGCC */
 
 #define ffecom_init_1()
 #define ffecom_init_3()