/* Definitions for CHILL parsing and type checking.
Copyright (C) 1992, 1993, 1994, 1998,
- 1999, 2000 Free Software Foundation, Inc.
+ 1999, 2000, 2001 Free Software Foundation, Inc.
This file is part of GNU CC.
the Free Software Foundation, 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
-#ifndef _CH_TREE_H
-#define _CH_TREE_H
+#ifndef GCC_CH_TREE_H
+#define GCC_CH_TREE_H
/* Usage of TREE_LANG_FLAG_?:
1: TUPLE_NAMED_FIELD
Predefined declarations have level -1; the global scope is level 0.
*/
#define DECL_NESTING_LEVEL(DECL) \
- ((DECL)->decl.vindex ? TREE_INT_CST_LOW((DECL)->decl.vindex) : -1)
+ ((DECL)->decl.vindex ? TREE_INT_CST_HIGH((DECL)->decl.vindex) : -1)
/* Nesting of things that can have an ON-unit attached. */
extern int action_nesting_level;
extern int warn_cast_qual;
-/* Warn about traditional constructs whose meanings changed in ANSI C. */
-
-extern int warn_traditional;
-
/* Warn about *printf or *scanf format/argument anomalies. */
extern int warn_format;
extern int warn_switch;
-/* Nonzero means do some things the same way PCC does. */
-
-extern int flag_traditional;
-
/* Nonzero means warn about suggesting putting in ()'s. */
extern int warn_parentheses;
extern int c_decode_option PARAMS ((int, char **));
extern void c_mark_varargs PARAMS ((void));
extern void clear_parm_order PARAMS ((void));
-extern tree combine_parm_decls PARAMS ((tree, tree, int));
extern int complete_array_type PARAMS ((tree, tree, int));
extern void declare_parm_level PARAMS ((int));
-extern tree define_label PARAMS ((char *, int, tree));
+extern tree define_label PARAMS ((const char *, int, tree));
extern void delete_block PARAMS ((tree));
extern void finish_decl PARAMS ((tree));
extern tree finish_enum PARAMS ((tree, tree));
/* in ch/lang.c */
extern tree string_index_type_dummy;
-extern tree integer_minus_one_node;
extern int flag_old_strings;
extern void GNU_xref_begin PARAMS ((void));
extern void GNU_xref_end PARAMS ((void));
extern int valid_array_index PARAMS ((tree, tree));
extern void validate_varying_array_ref PARAMS ((tree, tree));
-/* in function.c */
-extern void expand_function_end PARAMS ((char *, int, int));
-extern void expand_function_start PARAMS ((tree, int));
-extern void init_function_start PARAMS ((tree, char *, int));
-extern void pop_function_context PARAMS ((void));
-extern void push_function_context PARAMS ((void));
-
-/* in integrate.c */
-extern void output_inline_function PARAMS ((tree));
-
/* in toplev.c */
extern void announce_function PARAMS ((tree));
extern int floor_log2_wide PARAMS ((unsigned HOST_WIDE_INT));
extern void init_iterators PARAMS ((void));
extern int mark_addressable PARAMS ((tree));
extern tree chill_result_decl;
-#ifdef RTX_CODE
-extern rtx label_rtx PARAMS ((tree));
-#endif
-extern void permanent_allocation PARAMS ((int));
#ifndef SET_WORD_SIZE
#define SET_WORD_SIZE BITS_PER_WORD
extern const char * const gnuchill_version;
-#endif
+#endif /* ! GCC_CH_TREE_H */