diff options
| -rw-r--r-- | gcc/genflags.c | 133 | ||||
| -rw-r--r-- | gcc/rtl.h | 295 | ||||
| -rw-r--r-- | gcc/tree.h | 326 |
3 files changed, 489 insertions, 265 deletions
diff --git a/gcc/genflags.c b/gcc/genflags.c index edb5443..5b104ec 100644 --- a/gcc/genflags.c +++ b/gcc/genflags.c @@ -39,18 +39,100 @@ char *xmalloc (); static void fatal (); void fancy_abort (); +/* Names for patterns. Need to allow linking with print-rtl. */ +char **insn_name_ptr; + +/* Obstacks to remember normal, and call insns. */ +static struct obstack call_obstack, normal_obstack; + +/* Max size of names encountered. */ +static int max_id_len; + +/* Count the number of match_operand's found. */ +static int +num_operands (x) + rtx x; +{ + int count = 0; + int i, j; + enum rtx_code code = GET_CODE (x); + char *format_ptr = GET_RTX_FORMAT (code); + + if (code == MATCH_OPERAND) + return 1; + + if (code == MATCH_OPERATOR) + count++; + + for (i = 0; i < GET_RTX_LENGTH (code); i++) + { + switch (*format_ptr++) + { + case 'u': + case 'e': + count += num_operands (XEXP (x, i)); + break; + + case 'E': + if (XVEC (x, i) != NULL) + for (j = 0; j < XVECLEN (x, i); j++) + count += num_operands (XVECEXP (x, i, j)); + + break; + } + } + + return count; +} + +/* Print out prototype information for a function. */ +static void +gen_proto (insn) + rtx insn; +{ + int num = num_operands (insn); + printf ("extern rtx gen_%-*s PROTO((", max_id_len, XSTR (insn, 0)); + + if (num == 0) + printf ("void"); + else + { + while (num-- > 1) + printf ("rtx, "); + + printf ("rtx"); + } + + printf ("));\n"); +} + +/* Print out a function declaration without a prototype. */ +static void +gen_nonproto (insn) + rtx insn; +{ + printf ("extern rtx gen_%s ();\n", XSTR (insn, 0)); +} + static void gen_insn (insn) rtx insn; { + char *name = XSTR (insn, 0); char *p; + struct obstack *obstack_ptr; + int len; /* Don't mention instructions whose names are the null string. They are in the machine description just to be recognized. */ - if (strlen (XSTR (insn, 0)) == 0) + len = strlen (name); + if (len == 0) return; - printf ("#define HAVE_%s ", XSTR (insn, 0)); + if (len > max_id_len) + max_id_len = len; + + printf ("#define HAVE_%s ", name); if (strlen (XSTR (insn, 2)) == 0) printf ("1\n"); else @@ -68,7 +150,16 @@ gen_insn (insn) printf (")\n"); } - printf ("extern rtx gen_%s ();\n", XSTR (insn, 0)); + /* Save the current insn, so that we can later put out appropriate + prototypes. At present, most md files have the wrong number of + arguments for call and call_value, ignoring the extra arguments + that are passed for some machines, so by default, turn off the + prototype. */ + + obstack_ptr = (!strcmp (name, "call") || !strcmp (name, "call_value")) + ? &call_obstack : &normal_obstack; + + obstack_grow (obstack_ptr, &insn, sizeof (rtx)); } char * @@ -119,10 +210,16 @@ main (argc, argv) char **argv; { rtx desc; + rtx dummy; + rtx *call_insns; + rtx *normal_insns; + rtx *insn_ptr; FILE *infile; register int c; obstack_init (rtl_obstack); + obstack_init (&call_obstack); + obstack_init (&normal_obstack); if (argc <= 1) fatal ("No input file name."); @@ -153,6 +250,36 @@ from the machine description file `md'. */\n\n"); gen_insn (desc); } + /* Print out the prototypes now. */ + dummy = (rtx)0; + obstack_grow (&call_obstack, &dummy, sizeof (rtx)); + call_insns = (rtx *) obstack_finish (&call_obstack); + + obstack_grow (&normal_obstack, &dummy, sizeof (rtx)); + normal_insns = (rtx *) obstack_finish (&normal_obstack); + + printf ("\n#ifndef NO_MD_PROTOTYPES\n"); + for (insn_ptr = normal_insns; *insn_ptr; insn_ptr++) + gen_proto (*insn_ptr); + + printf ("\n#ifdef MD_CALL_PROTOTYPES\n"); + for (insn_ptr = call_insns; *insn_ptr; insn_ptr++) + gen_proto (*insn_ptr); + + printf ("\n#else /* !MD_CALL_PROTOTYPES */\n"); + for (insn_ptr = call_insns; *insn_ptr; insn_ptr++) + gen_nonproto (*insn_ptr); + + printf ("#endif /* !MD_CALL_PROTOTYPES */\n"); + printf ("\n#else /* NO_MD_PROTOTYPES */\n"); + for (insn_ptr = normal_insns; *insn_ptr; insn_ptr++) + gen_nonproto (*insn_ptr); + + for (insn_ptr = call_insns; *insn_ptr; insn_ptr++) + gen_nonproto (*insn_ptr); + + printf ("#endif /* NO_MD_PROTOTYPES */\n"); + fflush (stdout); exit (ferror (stdout) != 0 ? FATAL_EXIT_CODE : SUCCESS_EXIT_CODE); /* NOTREACHED */ @@ -131,6 +131,15 @@ typedef struct rtx_def rtunion fld[1]; } *rtx; +/* Add prototype support. */ +#ifndef PROTO +#if defined (USE_PROTOTYPES) ? USE_PROTOTYPES : defined (__STDC__) +#define PROTO(ARGS) ARGS +#else +#define PROTO(ARGS) () +#endif +#endif + #define NULL_RTX (rtx) 0 /* Define a generic NULL if one hasn't already been defined. */ @@ -139,8 +148,16 @@ typedef struct rtx_def #define NULL 0 #endif +#ifndef GENERIC_PTR +#if defined (USE_PROTOTYPES) ? USE_PROTOTYPES : defined (__STDC__) +#define GENERIC_PTR void * +#else +#define GENERIC_PTR char * +#endif +#endif + #ifndef NULL_PTR -#define NULL_PTR (char *) NULL +#define NULL_PTR ((GENERIC_PTR)0) #endif /* Define macros to access the `code' field of the rtx. */ @@ -568,118 +585,146 @@ extern char *note_insn_name[]; #define plus_constant_for_output(X,C) \ plus_constant_for_output_wide (X, (HOST_WIDE_INT) (C)) -extern rtx plus_constant_wide (), plus_constant_for_output_wide (); +extern rtx plus_constant_wide PROTO((rtx, HOST_WIDE_INT)); +extern rtx plus_constant_for_output_wide PROTO((rtx, HOST_WIDE_INT)); #define GEN_INT(N) gen_rtx (CONST_INT, VOIDmode, (N)) -extern rtx gen_rtx (); +#if 0 +/* We cannot define prototypes for the variable argument functions, + since they have not been ANSI-fied, and an ANSI compiler would + complain when compiling the definition of these functions. */ -extern char *xmalloc (); -extern char *xrealloc (); -extern char *oballoc (); -extern char *permalloc (); -extern void free (); -extern rtx rtx_alloc (); -extern rtvec rtvec_alloc (); -extern rtx find_reg_note (); -extern rtx find_regno_note (); -extern HOST_WIDE_INT get_integer_term (); -extern rtx get_related_value (); -extern rtx single_set (); -extern rtx find_last_value (); -extern rtx copy_rtx (); -extern rtx copy_rtx_if_shared (); -extern rtx copy_most_rtx (); -extern rtx replace_rtx (); +extern rtx gen_rtx PROTO((enum rtx_code, enum machine_mode, ...)); +extern rtvec gen_rtvec PROTO((int, ...)); + +#else +extern rtx gen_rtx (); extern rtvec gen_rtvec (); -extern rtvec gen_rtvec_v (); +#endif + +#ifdef BUFSIZ /* stdio.h has been included */ +extern rtx read_rtx PROTO((FILE *)); +#else extern rtx read_rtx (); -extern rtx gen_reg_rtx (); -extern rtx gen_label_rtx (); -extern rtx gen_inline_header_rtx (); -extern rtx gen_lowpart_common (); -extern rtx gen_lowpart (); -extern rtx gen_lowpart_if_possible (); -extern rtx operand_subword (); -extern rtx operand_subword_force (); -extern int subreg_lowpart_p (); -extern rtx make_safe_from (); -extern rtx memory_address (); -extern rtx get_insns (); -extern rtx get_last_insn (); -extern rtx get_last_insn_anywhere (); -extern void start_sequence (); -extern void push_to_sequence (); -extern void end_sequence (); -extern rtx gen_sequence (); -extern rtx expand_expr (); -extern rtx output_constant_def (); -extern rtx immed_real_const (); -extern rtx immed_real_const_1 (); -extern rtx immed_double_const (); -extern rtx force_const_mem (); -extern rtx get_pool_constant (); -extern enum machine_mode get_pool_mode (); -extern int get_pool_offset (); -extern rtx get_parm_real_loc (); -extern rtx assign_stack_local (); -extern rtx assign_stack_temp (); -extern rtx protect_from_queue (); -extern void emit_queue (); -extern rtx emit_move_insn (); -extern rtx emit_insn_before (); -extern rtx emit_jump_insn_before (); -extern rtx emit_call_insn_before (); -extern rtx emit_barrier_before (); -extern rtx emit_note_before (); -extern rtx emit_insn_after (); -extern rtx emit_jump_insn_after (); -extern rtx emit_barrier_after (); -extern rtx emit_label_after (); -extern rtx emit_note_after (); -extern rtx emit_line_note_after (); -extern rtx emit_insn (); -extern rtx emit_insns (); -extern rtx emit_insns_before (); -extern rtx emit_jump_insn (); -extern rtx emit_call_insn (); -extern rtx emit_label (); -extern rtx emit_barrier (); -extern rtx emit_line_note (); -extern rtx emit_note (); -extern rtx emit_line_note_force (); -extern rtx make_insn_raw (); -extern rtx previous_insn (); -extern rtx next_insn (); -extern rtx prev_nonnote_insn (); -extern rtx next_nonnote_insn (); -extern rtx prev_real_insn (); -extern rtx next_real_insn (); -extern rtx prev_active_insn (); -extern rtx next_active_insn (); -extern rtx prev_label (); -extern rtx next_label (); -extern rtx next_cc0_user (); -extern rtx prev_cc0_setter (); -extern rtx reg_set_last (); -extern rtx next_nondeleted_insn (); -extern enum rtx_code reverse_condition (); -extern enum rtx_code swap_condition (); -extern enum rtx_code unsigned_condition (); -extern enum rtx_code signed_condition (); -extern rtx find_equiv_reg (); -extern rtx squeeze_notes (); -extern rtx delete_insn (); -extern void delete_jump (); -extern rtx get_label_before (); -extern rtx get_label_after (); -extern rtx follow_jumps (); -extern rtx adj_offsettable_operand (); -extern rtx try_split (); -extern rtx split_insns (); -extern rtx simplify_unary_operation (), simplify_binary_operation (); -extern rtx simplify_ternary_operation (), simplify_relational_operation (); -extern rtx nonlocal_label_rtx_list (); +#endif + +#if 0 +/* At present, don't prototype xrealloc, since all of the callers don't + cast their pointers to char *, and all of the xrealloc's don't use + void * yet. */ +extern char *xrealloc PROTO((void *, unsigned)); +#else +extern char *xrealloc (); +#endif + +extern char *xmalloc PROTO((unsigned)); +extern char *oballoc PROTO((int)); +extern char *permalloc PROTO((int)); +extern void free PROTO((void *)); +extern rtx rtx_alloc PROTO((RTX_CODE)); +extern rtvec rtvec_alloc PROTO((int)); +extern rtx find_reg_note PROTO((rtx, enum reg_note, rtx)); +extern rtx find_regno_note PROTO((rtx, enum reg_note, int)); +extern HOST_WIDE_INT get_integer_term PROTO((rtx)); +extern rtx get_related_value PROTO((rtx)); +extern rtx single_set PROTO((rtx)); +extern rtx find_last_value PROTO((rtx, rtx *, rtx)); +extern rtx copy_rtx PROTO((rtx)); +extern rtx copy_rtx_if_shared PROTO((rtx)); +extern rtx copy_most_rtx PROTO((rtx, rtx)); +extern rtx replace_rtx PROTO((rtx, rtx, rtx)); +extern rtvec gen_rtvec_v PROTO((int, rtx *)); +extern rtx gen_reg_rtx PROTO((enum machine_mode)); +extern rtx gen_label_rtx PROTO((void)); +extern rtx gen_inline_header_rtx PROTO((rtx, rtx, int, int, int, int, int, int, rtx, int, int, rtvec, rtx)); +extern rtx gen_lowpart_common PROTO((enum machine_mode, rtx)); +extern rtx gen_lowpart PROTO((enum machine_mode, rtx)); +extern rtx gen_lowpart_if_possible PROTO((enum machine_mode, rtx)); +extern rtx operand_subword PROTO((rtx, int, int, enum machine_mode)); +extern rtx operand_subword_force PROTO((rtx, int, enum machine_mode)); +extern int subreg_lowpart_p PROTO((rtx)); +extern rtx make_safe_from PROTO((rtx, rtx)); +extern rtx memory_address PROTO((enum machine_mode, rtx)); +extern rtx get_insns PROTO((void)); +extern rtx get_last_insn PROTO((void)); +extern rtx get_last_insn_anywhere PROTO((void)); +extern void start_sequence PROTO((void)); +extern void push_to_sequence PROTO((rtx)); +extern void end_sequence PROTO((void)); +extern rtx gen_sequence PROTO((void)); +extern rtx immed_double_const PROTO((HOST_WIDE_INT, HOST_WIDE_INT, enum machine_mode)); +extern rtx force_const_mem PROTO((enum machine_mode, rtx)); +extern rtx force_reg PROTO((enum machine_mode, rtx)); +extern rtx get_pool_constant PROTO((rtx)); +extern enum machine_mode get_pool_mode PROTO((rtx)); +extern int get_pool_offset PROTO((rtx)); +extern rtx assign_stack_local PROTO((enum machine_mode, int, int)); +extern rtx assign_stack_temp PROTO((enum machine_mode, int, int)); +extern rtx protect_from_queue PROTO((rtx, int)); +extern void emit_queue PROTO((void)); +extern rtx emit_move_insn PROTO((rtx, rtx)); +extern rtx emit_insn_before PROTO((rtx, rtx)); +extern rtx emit_jump_insn_before PROTO((rtx, rtx)); +extern rtx emit_call_insn_before PROTO((rtx, rtx)); +extern rtx emit_barrier_before PROTO((rtx)); +extern rtx emit_note_before PROTO((int, rtx)); +extern rtx emit_insn_after PROTO((rtx, rtx)); +extern rtx emit_jump_insn_after PROTO((rtx, rtx)); +extern rtx emit_barrier_after PROTO((rtx)); +extern rtx emit_label_after PROTO((rtx, rtx)); +extern rtx emit_note_after PROTO((int, rtx)); +extern rtx emit_line_note_after PROTO((char *, int, rtx)); +extern rtx emit_insn PROTO((rtx)); +extern rtx emit_insns PROTO((rtx)); +extern rtx emit_insns_before PROTO((rtx, rtx)); +extern rtx emit_jump_insn PROTO((rtx)); +extern rtx emit_call_insn PROTO((rtx)); +extern rtx emit_label PROTO((rtx)); +extern rtx emit_barrier PROTO((void)); +extern rtx emit_line_note PROTO((char *, int)); +extern rtx emit_note PROTO((char *, int)); +extern rtx emit_line_note_force PROTO((char *, int)); +extern rtx make_insn_raw PROTO((rtx)); +extern rtx previous_insn PROTO((rtx)); +extern rtx next_insn PROTO((rtx)); +extern rtx prev_nonnote_insn PROTO((rtx)); +extern rtx next_nonnote_insn PROTO((rtx)); +extern rtx prev_real_insn PROTO((rtx)); +extern rtx next_real_insn PROTO((rtx)); +extern rtx prev_active_insn PROTO((rtx)); +extern rtx next_active_insn PROTO((rtx)); +extern rtx prev_label PROTO((rtx)); +extern rtx next_label PROTO((rtx)); +extern rtx next_cc0_user PROTO((rtx)); +extern rtx prev_cc0_setter PROTO((rtx)); +extern rtx reg_set_last PROTO((rtx, rtx)); +extern rtx next_nondeleted_insn PROTO((rtx)); +extern enum rtx_code reverse_condition PROTO((enum rtx_code)); +extern enum rtx_code swap_condition PROTO((enum rtx_code)); +extern enum rtx_code unsigned_condition PROTO((enum rtx_code)); +extern enum rtx_code signed_condition PROTO((enum rtx_code)); +extern rtx find_equiv_reg PROTO((rtx, rtx, enum reg_class, int, short *, int, enum machine_mode)); +extern rtx squeeze_notes PROTO((rtx, rtx)); +extern rtx delete_insn PROTO((rtx)); +extern void delete_jump PROTO((rtx)); +extern rtx get_label_before PROTO((rtx)); +extern rtx get_label_after PROTO((rtx)); +extern rtx follow_jumps PROTO((rtx)); +extern rtx adj_offsettable_operand PROTO((rtx, int)); +extern rtx try_split PROTO((rtx, rtx, int)); +extern rtx split_insns PROTO((rtx, rtx)); +extern rtx simplify_unary_operation PROTO((enum rtx_code, enum machine_mode, rtx, enum machine_mode)); +extern rtx simplify_binary_operation PROTO((enum rtx_code, enum machine_mode, rtx, rtx)); +extern rtx simplify_ternary_operation PROTO((enum rtx_code, enum machine_mode, enum machine_mode, rtx, rtx, rtx)); +extern rtx simplify_relational_operation PROTO((enum rtx_code, enum machine_mode, rtx, rtx)); +extern rtx nonlocal_label_rtx_list PROTO((void)); +extern rtx gen_move_insn PROTO((rtx, rtx)); +extern rtx gen_jump PROTO((rtx)); +extern rtx gen_beq PROTO((rtx)); +extern rtx gen_bge PROTO((rtx)); +extern rtx gen_ble PROTO((rtx)); +extern rtx eliminate_constant_term PROTO((rtx, rtx *)); /* Maximum number of parallel sets and clobbers in any insn in this fn. Always at least 3, since the combiner could put that many togetherm @@ -687,16 +732,13 @@ extern rtx nonlocal_label_rtx_list (); extern int max_parallel; -extern int asm_noperands (); -extern char *decode_asm_operands (); +extern int asm_noperands PROTO((rtx)); +extern char *decode_asm_operands PROTO((rtx, rtx *, rtx **, char **, enum machine_mode *)); -#ifdef BITS_PER_WORD -/* Conditional is to detect when config.h has been included. */ -extern enum reg_class reg_preferred_class (); -extern enum reg_class reg_alternate_class (); -#endif +extern enum reg_class reg_preferred_class PROTO((int)); +extern enum reg_class reg_alternate_class PROTO((int)); -extern rtx get_first_nonparm_insn (); +extern rtx get_first_nonparm_insn PROTO((void)); /* Standard pieces of rtx, to be substituted directly into things. */ extern rtx pc_rtx; @@ -773,8 +815,27 @@ extern rtx virtual_outgoing_args_rtx; #define LAST_VIRTUAL_REGISTER ((FIRST_VIRTUAL_REGISTER) + 3) -extern rtx find_next_ref (); -extern rtx *find_single_use (); +extern rtx find_next_ref PROTO((rtx, rtx)); +extern rtx *find_single_use PROTO((rtx, rtx, rtx *)); + +/* It is hard to write the prototype for expand_expr, since it needs + expr.h to be included for the enumeration. */ + +extern rtx expand_expr (); +extern rtx immed_real_const_1(); + +#ifdef TREE_CODE +/* rtl.h and tree.h were included. */ +extern rtx output_constant_def PROTO((tree)); +extern rtx immed_real_const PROTO((tree)); +extern rtx immed_real_const_1 PROTO((REAL_VALUE_TYPE, enum machine_mode)); +extern tree make_tree PROTO((tree, rtx)); + +#else +extern rtx output_constant_def (); +extern rtx immed_real_const (); +extern rtx immed_real_const_1 (); +#endif /* Define a default value for STORE_FLAG_VALUE. */ @@ -115,18 +115,6 @@ enum built_in_function typedef union tree_node *tree; -#define NULL_TREE (tree) NULL - -/* Define a generic NULL if one hasn't already been defined. */ - -#ifndef NULL -#define NULL 0 -#endif - -#ifndef NULL_PTR -#define NULL_PTR (char *) NULL -#endif - /* Every kind of tree node starts with this structure, so all nodes have these fields. @@ -929,6 +917,36 @@ union tree_node struct tree_block block; }; +/* Add prototype support. */ +#ifndef PROTO +#if defined (USE_PROTOTYPES) ? USE_PROTOTYPES : defined (__STDC__) +#define PROTO(ARGS) ARGS +#else +#define PROTO(ARGS) () +#endif +#endif + + +#define NULL_TREE (tree) NULL + +/* Define a generic NULL if one hasn't already been defined. */ + +#ifndef NULL +#define NULL 0 +#endif + +#ifndef GENERIC_PTR +#if defined (USE_PROTOTYPES) ? USE_PROTOTYPES : defined (__STDC__) +#define GENERIC_PTR void * +#else +#define GENERIC_PTR char * +#endif +#endif + +#ifndef NULL_PTR +#define NULL_PTR ((GENERIC_PTR)0) +#endif + /* Format for global names of constructor and destructor functions. */ #ifndef NO_DOLLAR_IN_LABEL #define CONSTRUCTOR_NAME_FORMAT "_GLOBAL_$I$%s" @@ -945,77 +963,106 @@ union tree_node #define floor_log2(N) floor_log2_wide ((HOST_WIDE_INT) (N)) #endif -extern char *oballoc (); -extern char *permalloc (); -extern char *savealloc (); -extern char *xmalloc (); +#if 0 +/* At present, don't prototype xrealloc, since all of the callers don't + cast their pointers to char *, and all of the xrealloc's don't use + void * yet. */ +extern char *xrealloc PROTO((void *, unsigned)); +#else extern char *xrealloc (); -extern void free (); +#endif + +extern char *oballoc PROTO((int)); +extern char *permalloc PROTO((int)); +extern char *savealloc PROTO((int)); +extern char *xmalloc PROTO((unsigned)); +extern void free PROTO((void *)); /* Lowest level primitive for allocating a node. The TREE_CODE is the only argument. Contents are initialized to zero except for a few of the common fields. */ -extern tree make_node (); +extern tree make_node PROTO((enum tree_code)); /* Make a copy of a node, with all the same contents except for TREE_PERMANENT. (The copy is permanent iff nodes being made now are permanent.) */ -extern tree copy_node (); +extern tree copy_node PROTO((tree)); /* Make a copy of a chain of TREE_LIST nodes. */ -extern tree copy_list (); +extern tree copy_list PROTO((tree)); /* Make a TREE_VEC. */ -extern tree make_tree_vec (); +extern tree make_tree_vec PROTO((int)); /* Return the (unique) IDENTIFIER_NODE node for a given name. The name is supplied as a char *. */ -extern tree get_identifier (); +extern tree get_identifier PROTO((char *)); /* Construct various types of nodes. */ #define build_int_2(LO,HI) \ build_int_2_wide ((HOST_WIDE_INT) (LO), (HOST_WIDE_INT) (HI)) -extern tree build_int_2_wide (); -extern tree build_real (); -extern tree build_real_from_string (); -extern tree build_real_from_int_cst (); -extern tree build_complex (); -extern tree build_string (); -extern tree build (), build1 (); -extern tree build_nt (), build_parse_node (); -extern tree build_tree_list (), build_decl_list (); -extern tree build_op_identifier (); -extern tree build_decl (); -extern tree build_block (); +#if 0 +/* We cannot define prototypes for the variable argument functions, + since they have not been ANSI-fied, and an ANSI compiler would + complain when compiling the definition of these functions. */ + +extern tree build PROTO((enum tree_code, tree, ...)); +extern tree build_nt PROTO((enum tree_code, ...)); +extern tree build_parse_node PROTO((enum tree_code, ...)); +#else +extern tree build (); +extern tree build_nt (); +extern tree build_parse_node (); +#endif + +extern tree build_int_2_wide PROTO((HOST_WIDE_INT, HOST_WIDE_INT)); +extern tree build_real PROTO((tree, REAL_VALUE_TYPE)); +extern tree build_real_from_int_cst PROTO((tree, tree)); +extern tree build_complex PROTO((tree, tree)); +extern tree build_string PROTO((int, char *)); +extern tree build1 PROTO((enum tree_code, tree, tree)); +extern tree build_tree_list PROTO((tree, tree)); +extern tree build_decl_list PROTO((tree, tree)); +extern tree build_decl PROTO((enum tree_code, tree, tree)); +extern tree build_block PROTO((tree, tree, tree, tree, tree)); /* Construct various nodes representing data types. */ -extern tree make_signed_type (); -extern tree make_unsigned_type (); -extern tree signed_or_unsigned_type (); -extern void fixup_unsigned_type (); -extern tree build_pointer_type (); -extern tree build_reference_type (); -extern tree build_index_type (), build_index_2_type (); -extern tree build_array_type (); -extern tree build_function_type (); -extern tree build_method_type (); -extern tree build_offset_type (); -extern tree build_complex_type (); -extern tree array_type_nelts (); - -/* Construct expressions, performing type checking. */ +extern tree make_signed_type PROTO((int)); +extern tree make_unsigned_type PROTO((int)); +extern tree signed_or_unsigned_type PROTO((int, tree)); +extern void fixup_unsigned_type PROTO((tree)); +extern tree build_pointer_type PROTO((tree)); +extern tree build_reference_type PROTO((tree)); +extern tree build_index_type PROTO((tree)); +extern tree build_index_2_type PROTO((tree, tree)); +extern tree build_array_type PROTO((tree, tree)); +extern tree build_function_type PROTO((tree, tree)); +extern tree build_method_type PROTO((tree, tree)); +extern tree build_offset_type PROTO((tree, tree)); +extern tree build_complex_type PROTO((tree)); +extern tree array_type_nelts PROTO((tree)); + +/* Construct expressions, performing type checking. + GCC and G++ use different calling sequences for build_binary_op, + and build_indirect_ref, so don't include a prototype here. */ extern tree build_binary_op (); extern tree build_indirect_ref (); -extern tree build_unary_op (); +extern tree build_unary_op PROTO((enum tree_code, tree, int)); + +/* From expmed.c. Since rtl.h is included after tree.h, we can't + put the prototype here. Rtl.h does declare the prototype if + tree.h had been included. */ + +extern tree make_tree (); /* Given a type node TYPE, and CONSTP and VOLATILEP, return a type for the same kind of data as TYPE describes. @@ -1024,25 +1071,25 @@ extern tree build_unary_op (); so that duplicate variants are never made. Only main variants should ever appear as types of expressions. */ -extern tree build_type_variant (); +extern tree build_type_variant PROTO((tree, int, int)); /* Make a copy of a type node. */ -extern tree build_type_copy (); +extern tree build_type_copy PROTO((tree)); /* Given a ..._TYPE node, calculate the TYPE_SIZE, TYPE_SIZE_UNIT, TYPE_ALIGN and TYPE_MODE fields. If called more than once on one node, does nothing except for the first time. */ -extern void layout_type (); +extern void layout_type PROTO((tree)); /* Given a hashcode and a ..._TYPE node (for which the hashcode was made), return a canonicalized ..._TYPE node, so that duplicates are not made. How the hash code is computed is up to the caller, as long as any two callers that could hash identical-looking type nodes agree. */ -extern tree type_hash_canon (); +extern tree type_hash_canon PROTO((int, tree)); /* Given a VAR_DECL, PARM_DECL, RESULT_DECL or FIELD_DECL node, calculates the DECL_SIZE, DECL_SIZE_UNIT, DECL_ALIGN and DECL_MODE @@ -1052,7 +1099,7 @@ extern tree type_hash_canon (); be starting at (in bits). Zero means it can be assumed aligned on any boundary that may be needed. */ -extern void layout_decl (); +extern void layout_decl PROTO((tree, unsigned)); /* Fold constants as much as possible in an expression. Returns the simplified expression. @@ -1060,20 +1107,19 @@ extern void layout_decl (); if the argument itself cannot be simplified, its subexpressions are not changed. */ -extern tree fold (); +extern tree fold PROTO((tree)); /* Return an expr equal to X but certainly not valid as an lvalue. */ -extern tree non_lvalue (); +extern tree non_lvalue PROTO((tree)); -extern tree convert (); -extern tree size_in_bytes (); -extern int int_size_in_bytes (); -extern tree size_binop (); -extern tree size_int (); -extern tree round_up (); -extern tree get_pending_sizes (); -extern tree get_permanent_types (), get_temporary_types (); +extern tree convert PROTO((tree, tree)); +extern tree size_in_bytes PROTO((tree)); +extern int int_size_in_bytes PROTO((tree)); +extern tree size_binop PROTO((enum tree_code, tree, tree)); +extern tree size_int PROTO((unsigned)); +extern tree round_up PROTO((tree, int)); +extern tree get_pending_sizes PROTO((void)); /* Type for sizes of data-type. */ @@ -1083,70 +1129,62 @@ extern tree sizetype; by making the last node in X point to Y. Returns X, except if X is 0 returns Y. */ -extern tree chainon (); +extern tree chainon PROTO((tree, tree)); /* Make a new TREE_LIST node from specified PURPOSE, VALUE and CHAIN. */ -extern tree tree_cons (), perm_tree_cons (), temp_tree_cons (); -extern tree saveable_tree_cons (), decl_tree_cons (); +extern tree tree_cons PROTO((tree, tree, tree)); +extern tree perm_tree_cons PROTO((tree, tree, tree)); +extern tree temp_tree_cons PROTO((tree, tree, tree)); +extern tree saveable_tree_cons PROTO((tree, tree, tree)); +extern tree decl_tree_cons PROTO((tree, tree, tree)); /* Return the last tree node in a chain. */ -extern tree tree_last (); +extern tree tree_last PROTO((tree)); /* Reverse the order of elements in a chain, and return the new head. */ -extern tree nreverse (); - -/* Make a copy of a chain of tree nodes. */ - -extern tree copy_chain (); +extern tree nreverse PROTO((tree)); /* Returns the length of a chain of nodes (number of chain pointers to follow before reaching a null pointer). */ -extern int list_length (); +extern int list_length PROTO((tree)); /* integer_zerop (tree x) is nonzero if X is an integer constant of value 0 */ -extern int integer_zerop (); +extern int integer_zerop PROTO((tree)); /* integer_onep (tree x) is nonzero if X is an integer constant of value 1 */ -extern int integer_onep (); +extern int integer_onep PROTO((tree)); /* integer_all_onesp (tree x) is nonzero if X is an integer constant all of whose significant bits are 1. */ -extern int integer_all_onesp (); +extern int integer_all_onesp PROTO((tree)); /* integer_pow2p (tree x) is nonzero is X is an integer constant with exactly one bit 1. */ -extern int integer_pow2p (); - -/* type_unsigned_p (tree x) is nonzero if the type X is an unsigned type - (all of its possible values are >= 0). - If X is a pointer type, the value is 1. - If X is a real type, the value is 0. */ - -extern int type_unsigned_p (); +extern int integer_pow2p PROTO((tree)); /* staticp (tree x) is nonzero if X is a reference to data allocated at a fixed address in memory. */ -extern int staticp (); +extern int staticp PROTO((tree)); /* Gets an error if argument X is not an lvalue. Also returns 1 if X is an lvalue, 0 if not. */ -extern int lvalue_or_else (); +extern int lvalue_or_else PROTO((tree, char *)); /* save_expr (EXP) returns an expression equivalent to EXP but it can be used multiple times within context CTX and only evaluate EXP once. */ -extern tree save_expr (); +extern tree save_expr PROTO((tree)); /* variable_size (EXP) is like save_expr (EXP) except that it is for the special case of something that is part of a @@ -1154,86 +1192,82 @@ extern tree save_expr (); to compute the value at the right time when the data type belongs to a function parameter. */ -extern tree variable_size (); +extern tree variable_size PROTO((tree)); /* stabilize_reference (EXP) returns an reference equivalent to EXP but it can be used multiple times and only evaluate the subexpressions once. */ -extern tree stabilize_reference (); +extern tree stabilize_reference PROTO((tree)); /* Return EXP, stripped of any conversions to wider types in such a way that the result of converting to type FOR_TYPE is the same as if EXP were converted to FOR_TYPE. If FOR_TYPE is 0, it signifies EXP's type. */ -extern tree get_unwidened (); +extern tree get_unwidened PROTO((tree, tree)); /* Return OP or a simpler expression for a narrower value which can be sign-extended or zero-extended to give back OP. Store in *UNSIGNEDP_PTR either 1 if the value should be zero-extended or 0 if the value should be sign-extended. */ -extern tree get_narrower (); +extern tree get_narrower PROTO((tree, int *)); /* Given MODE and UNSIGNEDP, return a suitable type-tree with that mode. The definition of this resides in language-specific code as the repertoire of available types may vary. */ -extern tree type_for_mode (); +extern tree type_for_mode PROTO((enum machine_mode, int)); /* Given PRECISION and UNSIGNEDP, return a suitable type-tree for an integer type with at least that precision. The definition of this resides in language-specific code as the repertoire of available types may vary. */ -extern tree type_for_size (); +extern tree type_for_size PROTO((unsigned, int)); /* Given an integer type T, return a type like T but unsigned. If T is unsigned, the value is T. The definition of this resides in language-specific code as the repertoire of available types may vary. */ -extern tree unsigned_type (); +extern tree unsigned_type PROTO((tree)); /* Given an integer type T, return a type like T but signed. If T is signed, the value is T. The definition of this resides in language-specific code as the repertoire of available types may vary. */ -extern tree signed_type (); +extern tree signed_type PROTO((tree)); /* This function must be defined in the language-specific files. expand_expr calls it to build the cleanup-expression for a TARGET_EXPR. This is defined in a language-specific file. */ -extern tree maybe_build_cleanup (); - -/* Return the floating type node for a given floating machine mode. */ - -extern tree get_floating_type (); +extern tree maybe_build_cleanup PROTO((tree)); /* Given an expression EXP that may be a COMPONENT_REF or an ARRAY_REF, look for nested component-refs or array-refs at constant positions and find the ultimate containing object, which is returned. */ -extern tree get_inner_reference (); +extern tree get_inner_reference PROTO((tree, int *, int *, tree *, enum machine_mode *, int *, int *)); /* Return the FUNCTION_DECL which provides this _DECL with its context, or zero if none. */ -extern tree decl_function_context (); +extern tree decl_function_context PROTO((tree)); /* Return the RECORD_TYPE or UNION_TYPE which provides this _DECL with its context, or zero if none. */ -extern tree decl_type_context (); +extern tree decl_type_context PROTO((tree)); /* Given the FUNCTION_DECL for the current function, return zero if it is ok for this function to be inline. Otherwise return a warning message with a single %s for the function's name. */ -extern char *function_cannot_inline_p (); +extern char *function_cannot_inline_p PROTO((tree)); /* Declare commonly used variables for tree structure. */ @@ -1303,75 +1337,77 @@ extern int all_types_permanent; extern char *(*decl_printable_name) (); -/* In expmed.c */ -extern tree make_tree (); - /* In stmt.c */ -extern tree expand_start_stmt_expr (); -extern tree expand_end_stmt_expr (); -extern void expand_expr_stmt (), clear_last_expr (); -extern void expand_label (), expand_goto (), expand_asm (); -extern void expand_start_cond (), expand_end_cond (); -extern void expand_start_else (), expand_start_elseif (); -extern struct nesting *expand_start_loop (); -extern struct nesting *expand_start_loop_continue_elsewhere (); -extern void expand_loop_continue_here (); -extern void expand_end_loop (); -extern int expand_continue_loop (); -extern int expand_exit_loop (), expand_exit_loop_if_false (); -extern int expand_exit_something (); - -extern void expand_start_delayed_expr (); -extern tree expand_end_delayed_expr (); -extern void expand_emit_delayed_expr (); - -extern void expand_null_return (), expand_return (); -extern void expand_start_bindings (), expand_end_bindings (); -extern tree last_cleanup_this_contour (); -extern void expand_start_case (), expand_end_case (); -extern int pushcase (), pushcase_range (); -extern void expand_start_function (), expand_end_function (); +extern tree expand_start_stmt_expr PROTO((void)); +extern tree expand_end_stmt_expr PROTO((tree)); +extern void expand_expr_stmt PROTO((tree)); +extern void clear_last_expr PROTO((void)); +extern void expand_label PROTO((tree)); +extern void expand_goto PROTO((tree)); +extern void expand_asm PROTO((tree)); +extern void expand_start_cond PROTO((tree, int)); +extern void expand_end_cond PROTO((void)); +extern void expand_start_else PROTO((void)); +extern void expand_start_elseif PROTO((tree)); +extern struct nesting *expand_start_loop PROTO((int)); +extern struct nesting *expand_start_loop_continue_elsewhere PROTO((int)); +extern void expand_loop_continue_here PROTO((void)); +extern void expand_end_loop PROTO((void)); +extern int expand_continue_loop PROTO((struct nesting *)); +extern int expand_exit_loop PROTO((struct nesting *)); +extern int expand_exit_loop_if_false PROTO((struct nesting *, tree)); +extern int expand_exit_something PROTO((void)); + +extern void expand_null_return PROTO((void)); +extern void expand_return PROTO((tree)); +extern void expand_start_bindings PROTO((int)); +extern void expand_end_bindings PROTO((tree, int, int)); +extern tree last_cleanup_this_contour PROTO((void)); +extern void expand_start_case PROTO((int, tree, tree, char *)); +extern void expand_end_case PROTO((tree)); +extern int pushcase PROTO((tree, tree, tree *)); +extern int pushcase_range PROTO((tree, tree, tree, tree *)); /* In fold-const.c */ -extern tree invert_truthvalue (); +extern tree invert_truthvalue PROTO((tree)); /* The language front-end must define these functions. */ /* Function of no arguments for initializing lexical scanning. */ -extern void init_lex (); +extern void init_lex PROTO((void)); /* Function of no arguments for initializing the symbol table. */ -extern void init_decl_processing (); +extern void init_decl_processing PROTO((void)); /* Functions called with no arguments at the beginning and end or processing the input source file. */ -extern void lang_init (); -extern void lang_finish (); +extern void lang_init PROTO((void)); +extern void lang_finish PROTO((void)); /* Function called with no arguments to parse and compile the input. */ -extern int yyparse (); +extern int yyparse PROTO((void)); /* Function called with option as argument to decode options starting with -f or -W or +. It should return nonzero if it handles the option. */ -extern int lang_decode_option (); +extern int lang_decode_option PROTO((char *)); /* Functions for processing symbol declarations. */ /* Function to enter a new lexical scope. Takes one argument: always zero when called from outside the front end. */ -extern void pushlevel (); +extern void pushlevel PROTO((int)); /* Function to exit a lexical scope. It returns a BINDING for that scope. Takes three arguments: KEEP -- nonzero if there were declarations in this scope. REVERSE -- reverse the order of decls before returning them. FUNCTIONBODY -- nonzero if this level is the body of a function. */ -extern tree poplevel (); +extern tree poplevel PROTO((int, int, int)); /* Function to add a decl to the current scope level. Takes one argument, a decl to add. Returns that decl, or, if the same symbol is already declared, may return a different decl for that name. */ -extern tree pushdecl (); +extern tree pushdecl PROTO((tree)); /* Function to return the chain of decls so far in the current scope level. */ -extern tree getdecls (); +extern tree getdecls PROTO((void)); /* Function to return the chain of structure tags in the current scope level. */ -extern tree gettags (); +extern tree gettags PROTO((void)); |