2002-06-04 09:11:05 +02:00
|
|
|
|
/* Process source files and output type information.
|
alias.c (init_alias_analysis): Correct whitespace.
* alias.c (init_alias_analysis): Correct whitespace.
* bb-reorder.c (fix_edges_for_rarely_executed_code,
partition_hot_cold_basic_blocks): Likewise.
* builtins.c (expand_builtin_printf, expand_builtin_fprintf,
expand_builtin_sprintf, fold_builtin_carg, fold_builtin_sprintf,
maybe_emit_sprintf_chk_warning, fold_builtin_sprintf_chk,
fold_builtin_snprintf_chk, fold_builtin_printf,
fold_builtin_fprintf, do_mpfr_ckconv, do_mpfr_arg1, do_mpfr_arg2,
do_mpfr_arg3, do_mpfr_sincos): Likewise.
* cfgcleanup.c (cleanup_cfg): Likewise.
* cfgexpand.c (tree_expand_cfg): Likewise.
* fold-const.c (fold_binary) <RDIV_EXPR>: Likewise.
* function.c (get_next_funcdef_no): Likewise.
* gengtype.c (main): Likewise.
* genmodes.c (main): Likewise.
* gcse.c (bypass_conditional_jumps, print_ldst_list): Likewise.
* haifa-sched.c (schedule_block, extend_h_i_d): Likewise.
* ifcvt.c (noce_emit_move_insn): Likewise.
* modulo-sched.c (generate_prolog_epilog, sms_schedule_by_order):
Likewise.
* stor-layout.c (get_best_mode): Likewise.
* tree-ssa-loop-niter.c (get_val_for): Likewise.
* tree-ssa-structalias.c (get_varinfo, get_varinfo_fc,
scc_visit, do_ds_constraint, do_complex_constraint, label_visit,
perform_var_substitution, solve_graph): Likewise.
* tree-vrp.c (vrp_finalize): Likewise.
From-SVN: r121470
2007-02-01 21:32:20 +01:00
|
|
|
|
Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007
|
|
|
|
|
Free Software Foundation, Inc.
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
|
|
|
|
This file is part of GCC.
|
|
|
|
|
|
|
|
|
|
GCC is free software; you can redistribute it and/or modify it under
|
|
|
|
|
the terms of the GNU General Public License as published by the Free
|
|
|
|
|
Software Foundation; either version 2, or (at your option) any later
|
|
|
|
|
version.
|
|
|
|
|
|
|
|
|
|
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
|
|
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
|
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
|
|
for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with GCC; see the file COPYING. If not, write to the Free
|
2005-06-25 02:55:40 +02:00
|
|
|
|
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
|
|
|
|
|
02110-1301, USA. */
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2002-12-16 19:23:00 +01:00
|
|
|
|
#include "bconfig.h"
|
2002-06-04 09:11:05 +02:00
|
|
|
|
#include "system.h"
|
|
|
|
|
#include "gengtype.h"
|
2007-03-26 22:49:17 +02:00
|
|
|
|
#include "errors.h" /* for fatal */
|
2007-05-03 08:14:52 +02:00
|
|
|
|
#include "double-int.h"
|
2003-03-18 21:21:18 +01:00
|
|
|
|
|
2007-03-26 23:04:59 +02:00
|
|
|
|
/* Data types, macros, etc. used only in this file. */
|
|
|
|
|
|
|
|
|
|
/* Kinds of types we can understand. */
|
|
|
|
|
enum typekind {
|
|
|
|
|
TYPE_SCALAR,
|
|
|
|
|
TYPE_STRING,
|
|
|
|
|
TYPE_STRUCT,
|
|
|
|
|
TYPE_UNION,
|
|
|
|
|
TYPE_POINTER,
|
|
|
|
|
TYPE_ARRAY,
|
|
|
|
|
TYPE_LANG_STRUCT,
|
|
|
|
|
TYPE_PARAM_STRUCT
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
typedef unsigned lang_bitmap;
|
|
|
|
|
|
|
|
|
|
/* A way to pass data through to the output end. */
|
|
|
|
|
struct options
|
|
|
|
|
{
|
|
|
|
|
struct options *next;
|
|
|
|
|
const char *name;
|
|
|
|
|
const char *info;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Option data for the 'nested_ptr' option. */
|
|
|
|
|
struct nested_ptr_data
|
|
|
|
|
{
|
|
|
|
|
type_p type;
|
|
|
|
|
const char *convert_to;
|
|
|
|
|
const char *convert_from;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* A name and a type. */
|
|
|
|
|
struct pair
|
|
|
|
|
{
|
|
|
|
|
pair_p next;
|
|
|
|
|
const char *name;
|
|
|
|
|
type_p type;
|
|
|
|
|
struct fileloc line;
|
|
|
|
|
options_p opt;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
#define NUM_PARAM 10
|
|
|
|
|
|
|
|
|
|
/* A description of a type. */
|
|
|
|
|
enum gc_used_enum
|
|
|
|
|
{
|
|
|
|
|
GC_UNUSED = 0,
|
|
|
|
|
GC_USED,
|
|
|
|
|
GC_MAYBE_POINTED_TO,
|
|
|
|
|
GC_POINTED_TO
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
struct type
|
|
|
|
|
{
|
|
|
|
|
enum typekind kind;
|
|
|
|
|
type_p next;
|
|
|
|
|
type_p pointer_to;
|
|
|
|
|
enum gc_used_enum gc_used;
|
|
|
|
|
union {
|
|
|
|
|
type_p p;
|
|
|
|
|
struct {
|
|
|
|
|
const char *tag;
|
|
|
|
|
struct fileloc line;
|
|
|
|
|
pair_p fields;
|
|
|
|
|
options_p opt;
|
|
|
|
|
lang_bitmap bitmap;
|
|
|
|
|
type_p lang_struct;
|
|
|
|
|
} s;
|
|
|
|
|
bool scalar_is_char;
|
|
|
|
|
struct {
|
|
|
|
|
type_p p;
|
|
|
|
|
const char *len;
|
|
|
|
|
} a;
|
|
|
|
|
struct {
|
|
|
|
|
type_p stru;
|
|
|
|
|
type_p param[NUM_PARAM];
|
|
|
|
|
struct fileloc line;
|
|
|
|
|
} param_struct;
|
|
|
|
|
} u;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
#define UNION_P(x) \
|
|
|
|
|
((x)->kind == TYPE_UNION || \
|
|
|
|
|
((x)->kind == TYPE_LANG_STRUCT \
|
|
|
|
|
&& (x)->u.s.lang_struct->kind == TYPE_UNION))
|
|
|
|
|
#define UNION_OR_STRUCT_P(x) \
|
|
|
|
|
((x)->kind == TYPE_UNION \
|
|
|
|
|
|| (x)->kind == TYPE_STRUCT \
|
|
|
|
|
|| (x)->kind == TYPE_LANG_STRUCT)
|
|
|
|
|
|
|
|
|
|
/* Structure representing an output file. */
|
|
|
|
|
struct outf
|
|
|
|
|
{
|
|
|
|
|
struct outf *next;
|
|
|
|
|
const char *name;
|
|
|
|
|
size_t buflength;
|
|
|
|
|
size_t bufused;
|
|
|
|
|
char *buf;
|
|
|
|
|
};
|
|
|
|
|
typedef struct outf * outf_p;
|
|
|
|
|
|
|
|
|
|
/* An output file, suitable for definitions, that can see declarations
|
|
|
|
|
made in INPUT_FILE and is linked into every language that uses
|
|
|
|
|
INPUT_FILE. */
|
|
|
|
|
extern outf_p get_output_file_with_visibility
|
|
|
|
|
(const char *input_file);
|
|
|
|
|
const char *get_output_file_name (const char *);
|
|
|
|
|
|
|
|
|
|
/* Print, like fprintf, to O. */
|
|
|
|
|
static void oprintf (outf_p o, const char *S, ...)
|
|
|
|
|
ATTRIBUTE_PRINTF_2;
|
|
|
|
|
|
|
|
|
|
/* The list of output files. */
|
|
|
|
|
static outf_p output_files;
|
|
|
|
|
|
|
|
|
|
/* The output header file that is included into pretty much every
|
|
|
|
|
source file. */
|
|
|
|
|
static outf_p header_file;
|
|
|
|
|
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
/* Source directory. */
|
|
|
|
|
static const char *srcdir;
|
2007-03-26 23:04:59 +02:00
|
|
|
|
|
|
|
|
|
/* Length of srcdir name. */
|
|
|
|
|
static int srcdir_len = 0;
|
|
|
|
|
|
|
|
|
|
static outf_p create_file (const char *, const char *);
|
|
|
|
|
static const char * get_file_basename (const char *);
|
|
|
|
|
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Nonzero iff an error has occurred. */
|
2007-03-26 23:18:43 +02:00
|
|
|
|
bool hit_error = false;
|
2002-06-07 04:15:39 +02:00
|
|
|
|
|
2003-06-01 17:59:10 +02:00
|
|
|
|
static void gen_rtx_next (void);
|
|
|
|
|
static void write_rtx_next (void);
|
|
|
|
|
static void open_base_files (void);
|
|
|
|
|
static void close_output_files (void);
|
2002-07-06 15:39:46 +02:00
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Report an error at POS, printing MSG. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
void
|
builtins.c (validate_arglist): Eliminate libiberty VA_ macros, always use stdarg.
gcc:
* builtins.c (validate_arglist): Eliminate libiberty VA_ macros,
always use stdarg.
* c-errors.c (pedwarn_c99): Likewise.
* c-format.c (status_warning): Likewise.
* c-semantics.c (build_stmt): Likewise.
* calls.c (emit_library_call, emit_library_call_value): Likewise.
* collect2.c (notice, fatal_perror, fatal, error): Likewise.
* cpperror.c (cpp_error, cpp_error_with_line): Likewise.
* diagnostic.c (build_message_string, output_printf,
output_verbatim, verbatim, inform, warning, pedwarn, error, sorry,
fatal_error, internal_error, warning_with_decl, pedwarn_with_decl,
error_with_decl, fnotice): Likewise.
* dwarf2asm.c (dw2_asm_output_data, dw2_asm_output_delta,
dw2_asm_output_offset, dw2_asm_output_pcrel, dw2_asm_output_addr,
dw2_asm_output_addr_rtx, dw2_asm_output_nstring,
dw2_asm_output_data_uleb128, dw2_asm_output_data_sleb128,
dw2_asm_output_delta_uleb128, dw2_asm_output_delta_sleb128,
dw2_asm_output_encoded_addr_rtx): Likewise.
* emit-rtl.c (gen_rtx, gen_rtvec): Likewise.
* errors.c (warning, error, fatal, internal_error): Likewise.
* final.c (output_operand_lossage, asm_fprintf): Likewise.
* fix-header.c (fatal): Likewise.
* gcc.c (fatal, error, notice): Likewise.
* gcov.c (fnotice): Likewise.
* genattrtab.c (attr_rtx, attr_printf): Likewise.
* gengtype.c (error_at_line, xasprintf, oprintf): Likewise.
* gensupport.c (message_with_line): Likewise.
* mips-tfile.c (fatal, error): Likewise.
* protoize.c (notice): Likewise.
* ra-debug.c (ra_debug_msg): Likewise.
* read-rtl.c (fatal_with_file_and_line): Likewise.
* rtl-error.c (error_for_asm, warning_for_asm): Likewise.
* tree.c (build, build_nt, build_function_type_list): Likewise.
cp:
* error.c (cp_error_at, cp_warning_at, cp_pedwarn_at): Eliminate
libiberty VA_ macros, always use stdarg.
* rtti.c (create_pseudo_type_info): Likewise.
* tree.c (build_min_nt, build_min): Likewise.
From-SVN: r66919
2003-05-18 00:21:35 +02:00
|
|
|
|
error_at_line (struct fileloc *pos, const char *msg, ...)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
builtins.c (validate_arglist): Eliminate libiberty VA_ macros, always use stdarg.
gcc:
* builtins.c (validate_arglist): Eliminate libiberty VA_ macros,
always use stdarg.
* c-errors.c (pedwarn_c99): Likewise.
* c-format.c (status_warning): Likewise.
* c-semantics.c (build_stmt): Likewise.
* calls.c (emit_library_call, emit_library_call_value): Likewise.
* collect2.c (notice, fatal_perror, fatal, error): Likewise.
* cpperror.c (cpp_error, cpp_error_with_line): Likewise.
* diagnostic.c (build_message_string, output_printf,
output_verbatim, verbatim, inform, warning, pedwarn, error, sorry,
fatal_error, internal_error, warning_with_decl, pedwarn_with_decl,
error_with_decl, fnotice): Likewise.
* dwarf2asm.c (dw2_asm_output_data, dw2_asm_output_delta,
dw2_asm_output_offset, dw2_asm_output_pcrel, dw2_asm_output_addr,
dw2_asm_output_addr_rtx, dw2_asm_output_nstring,
dw2_asm_output_data_uleb128, dw2_asm_output_data_sleb128,
dw2_asm_output_delta_uleb128, dw2_asm_output_delta_sleb128,
dw2_asm_output_encoded_addr_rtx): Likewise.
* emit-rtl.c (gen_rtx, gen_rtvec): Likewise.
* errors.c (warning, error, fatal, internal_error): Likewise.
* final.c (output_operand_lossage, asm_fprintf): Likewise.
* fix-header.c (fatal): Likewise.
* gcc.c (fatal, error, notice): Likewise.
* gcov.c (fnotice): Likewise.
* genattrtab.c (attr_rtx, attr_printf): Likewise.
* gengtype.c (error_at_line, xasprintf, oprintf): Likewise.
* gensupport.c (message_with_line): Likewise.
* mips-tfile.c (fatal, error): Likewise.
* protoize.c (notice): Likewise.
* ra-debug.c (ra_debug_msg): Likewise.
* read-rtl.c (fatal_with_file_and_line): Likewise.
* rtl-error.c (error_for_asm, warning_for_asm): Likewise.
* tree.c (build, build_nt, build_function_type_list): Likewise.
cp:
* error.c (cp_error_at, cp_warning_at, cp_pedwarn_at): Eliminate
libiberty VA_ macros, always use stdarg.
* rtti.c (create_pseudo_type_info): Likewise.
* tree.c (build_min_nt, build_min): Likewise.
From-SVN: r66919
2003-05-18 00:21:35 +02:00
|
|
|
|
va_list ap;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
builtins.c (validate_arglist): Eliminate libiberty VA_ macros, always use stdarg.
gcc:
* builtins.c (validate_arglist): Eliminate libiberty VA_ macros,
always use stdarg.
* c-errors.c (pedwarn_c99): Likewise.
* c-format.c (status_warning): Likewise.
* c-semantics.c (build_stmt): Likewise.
* calls.c (emit_library_call, emit_library_call_value): Likewise.
* collect2.c (notice, fatal_perror, fatal, error): Likewise.
* cpperror.c (cpp_error, cpp_error_with_line): Likewise.
* diagnostic.c (build_message_string, output_printf,
output_verbatim, verbatim, inform, warning, pedwarn, error, sorry,
fatal_error, internal_error, warning_with_decl, pedwarn_with_decl,
error_with_decl, fnotice): Likewise.
* dwarf2asm.c (dw2_asm_output_data, dw2_asm_output_delta,
dw2_asm_output_offset, dw2_asm_output_pcrel, dw2_asm_output_addr,
dw2_asm_output_addr_rtx, dw2_asm_output_nstring,
dw2_asm_output_data_uleb128, dw2_asm_output_data_sleb128,
dw2_asm_output_delta_uleb128, dw2_asm_output_delta_sleb128,
dw2_asm_output_encoded_addr_rtx): Likewise.
* emit-rtl.c (gen_rtx, gen_rtvec): Likewise.
* errors.c (warning, error, fatal, internal_error): Likewise.
* final.c (output_operand_lossage, asm_fprintf): Likewise.
* fix-header.c (fatal): Likewise.
* gcc.c (fatal, error, notice): Likewise.
* gcov.c (fnotice): Likewise.
* genattrtab.c (attr_rtx, attr_printf): Likewise.
* gengtype.c (error_at_line, xasprintf, oprintf): Likewise.
* gensupport.c (message_with_line): Likewise.
* mips-tfile.c (fatal, error): Likewise.
* protoize.c (notice): Likewise.
* ra-debug.c (ra_debug_msg): Likewise.
* read-rtl.c (fatal_with_file_and_line): Likewise.
* rtl-error.c (error_for_asm, warning_for_asm): Likewise.
* tree.c (build, build_nt, build_function_type_list): Likewise.
cp:
* error.c (cp_error_at, cp_warning_at, cp_pedwarn_at): Eliminate
libiberty VA_ macros, always use stdarg.
* rtti.c (create_pseudo_type_info): Likewise.
* tree.c (build_min_nt, build_min): Likewise.
From-SVN: r66919
2003-05-18 00:21:35 +02:00
|
|
|
|
va_start (ap, msg);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
|
|
|
|
fprintf (stderr, "%s:%d: ", pos->file, pos->line);
|
|
|
|
|
vfprintf (stderr, msg, ap);
|
|
|
|
|
fputc ('\n', stderr);
|
2007-03-26 23:18:43 +02:00
|
|
|
|
hit_error = true;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
builtins.c (validate_arglist): Eliminate libiberty VA_ macros, always use stdarg.
gcc:
* builtins.c (validate_arglist): Eliminate libiberty VA_ macros,
always use stdarg.
* c-errors.c (pedwarn_c99): Likewise.
* c-format.c (status_warning): Likewise.
* c-semantics.c (build_stmt): Likewise.
* calls.c (emit_library_call, emit_library_call_value): Likewise.
* collect2.c (notice, fatal_perror, fatal, error): Likewise.
* cpperror.c (cpp_error, cpp_error_with_line): Likewise.
* diagnostic.c (build_message_string, output_printf,
output_verbatim, verbatim, inform, warning, pedwarn, error, sorry,
fatal_error, internal_error, warning_with_decl, pedwarn_with_decl,
error_with_decl, fnotice): Likewise.
* dwarf2asm.c (dw2_asm_output_data, dw2_asm_output_delta,
dw2_asm_output_offset, dw2_asm_output_pcrel, dw2_asm_output_addr,
dw2_asm_output_addr_rtx, dw2_asm_output_nstring,
dw2_asm_output_data_uleb128, dw2_asm_output_data_sleb128,
dw2_asm_output_delta_uleb128, dw2_asm_output_delta_sleb128,
dw2_asm_output_encoded_addr_rtx): Likewise.
* emit-rtl.c (gen_rtx, gen_rtvec): Likewise.
* errors.c (warning, error, fatal, internal_error): Likewise.
* final.c (output_operand_lossage, asm_fprintf): Likewise.
* fix-header.c (fatal): Likewise.
* gcc.c (fatal, error, notice): Likewise.
* gcov.c (fnotice): Likewise.
* genattrtab.c (attr_rtx, attr_printf): Likewise.
* gengtype.c (error_at_line, xasprintf, oprintf): Likewise.
* gensupport.c (message_with_line): Likewise.
* mips-tfile.c (fatal, error): Likewise.
* protoize.c (notice): Likewise.
* ra-debug.c (ra_debug_msg): Likewise.
* read-rtl.c (fatal_with_file_and_line): Likewise.
* rtl-error.c (error_for_asm, warning_for_asm): Likewise.
* tree.c (build, build_nt, build_function_type_list): Likewise.
cp:
* error.c (cp_error_at, cp_warning_at, cp_pedwarn_at): Eliminate
libiberty VA_ macros, always use stdarg.
* rtti.c (create_pseudo_type_info): Likewise.
* tree.c (build_min_nt, build_min): Likewise.
From-SVN: r66919
2003-05-18 00:21:35 +02:00
|
|
|
|
va_end (ap);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2007-03-26 23:04:59 +02:00
|
|
|
|
/* asprintf, but produces fatal message on out-of-memory. */
|
2007-03-26 23:18:43 +02:00
|
|
|
|
char *
|
builtins.c (validate_arglist): Eliminate libiberty VA_ macros, always use stdarg.
gcc:
* builtins.c (validate_arglist): Eliminate libiberty VA_ macros,
always use stdarg.
* c-errors.c (pedwarn_c99): Likewise.
* c-format.c (status_warning): Likewise.
* c-semantics.c (build_stmt): Likewise.
* calls.c (emit_library_call, emit_library_call_value): Likewise.
* collect2.c (notice, fatal_perror, fatal, error): Likewise.
* cpperror.c (cpp_error, cpp_error_with_line): Likewise.
* diagnostic.c (build_message_string, output_printf,
output_verbatim, verbatim, inform, warning, pedwarn, error, sorry,
fatal_error, internal_error, warning_with_decl, pedwarn_with_decl,
error_with_decl, fnotice): Likewise.
* dwarf2asm.c (dw2_asm_output_data, dw2_asm_output_delta,
dw2_asm_output_offset, dw2_asm_output_pcrel, dw2_asm_output_addr,
dw2_asm_output_addr_rtx, dw2_asm_output_nstring,
dw2_asm_output_data_uleb128, dw2_asm_output_data_sleb128,
dw2_asm_output_delta_uleb128, dw2_asm_output_delta_sleb128,
dw2_asm_output_encoded_addr_rtx): Likewise.
* emit-rtl.c (gen_rtx, gen_rtvec): Likewise.
* errors.c (warning, error, fatal, internal_error): Likewise.
* final.c (output_operand_lossage, asm_fprintf): Likewise.
* fix-header.c (fatal): Likewise.
* gcc.c (fatal, error, notice): Likewise.
* gcov.c (fnotice): Likewise.
* genattrtab.c (attr_rtx, attr_printf): Likewise.
* gengtype.c (error_at_line, xasprintf, oprintf): Likewise.
* gensupport.c (message_with_line): Likewise.
* mips-tfile.c (fatal, error): Likewise.
* protoize.c (notice): Likewise.
* ra-debug.c (ra_debug_msg): Likewise.
* read-rtl.c (fatal_with_file_and_line): Likewise.
* rtl-error.c (error_for_asm, warning_for_asm): Likewise.
* tree.c (build, build_nt, build_function_type_list): Likewise.
cp:
* error.c (cp_error_at, cp_warning_at, cp_pedwarn_at): Eliminate
libiberty VA_ macros, always use stdarg.
* rtti.c (create_pseudo_type_info): Likewise.
* tree.c (build_min_nt, build_min): Likewise.
From-SVN: r66919
2003-05-18 00:21:35 +02:00
|
|
|
|
xasprintf (const char *format, ...)
|
2002-06-13 00:57:45 +02:00
|
|
|
|
{
|
2007-03-26 23:04:59 +02:00
|
|
|
|
int n;
|
2002-06-13 00:57:45 +02:00
|
|
|
|
char *result;
|
builtins.c (validate_arglist): Eliminate libiberty VA_ macros, always use stdarg.
gcc:
* builtins.c (validate_arglist): Eliminate libiberty VA_ macros,
always use stdarg.
* c-errors.c (pedwarn_c99): Likewise.
* c-format.c (status_warning): Likewise.
* c-semantics.c (build_stmt): Likewise.
* calls.c (emit_library_call, emit_library_call_value): Likewise.
* collect2.c (notice, fatal_perror, fatal, error): Likewise.
* cpperror.c (cpp_error, cpp_error_with_line): Likewise.
* diagnostic.c (build_message_string, output_printf,
output_verbatim, verbatim, inform, warning, pedwarn, error, sorry,
fatal_error, internal_error, warning_with_decl, pedwarn_with_decl,
error_with_decl, fnotice): Likewise.
* dwarf2asm.c (dw2_asm_output_data, dw2_asm_output_delta,
dw2_asm_output_offset, dw2_asm_output_pcrel, dw2_asm_output_addr,
dw2_asm_output_addr_rtx, dw2_asm_output_nstring,
dw2_asm_output_data_uleb128, dw2_asm_output_data_sleb128,
dw2_asm_output_delta_uleb128, dw2_asm_output_delta_sleb128,
dw2_asm_output_encoded_addr_rtx): Likewise.
* emit-rtl.c (gen_rtx, gen_rtvec): Likewise.
* errors.c (warning, error, fatal, internal_error): Likewise.
* final.c (output_operand_lossage, asm_fprintf): Likewise.
* fix-header.c (fatal): Likewise.
* gcc.c (fatal, error, notice): Likewise.
* gcov.c (fnotice): Likewise.
* genattrtab.c (attr_rtx, attr_printf): Likewise.
* gengtype.c (error_at_line, xasprintf, oprintf): Likewise.
* gensupport.c (message_with_line): Likewise.
* mips-tfile.c (fatal, error): Likewise.
* protoize.c (notice): Likewise.
* ra-debug.c (ra_debug_msg): Likewise.
* read-rtl.c (fatal_with_file_and_line): Likewise.
* rtl-error.c (error_for_asm, warning_for_asm): Likewise.
* tree.c (build, build_nt, build_function_type_list): Likewise.
cp:
* error.c (cp_error_at, cp_warning_at, cp_pedwarn_at): Eliminate
libiberty VA_ macros, always use stdarg.
* rtti.c (create_pseudo_type_info): Likewise.
* tree.c (build_min_nt, build_min): Likewise.
From-SVN: r66919
2003-05-18 00:21:35 +02:00
|
|
|
|
va_list ap;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
builtins.c (validate_arglist): Eliminate libiberty VA_ macros, always use stdarg.
gcc:
* builtins.c (validate_arglist): Eliminate libiberty VA_ macros,
always use stdarg.
* c-errors.c (pedwarn_c99): Likewise.
* c-format.c (status_warning): Likewise.
* c-semantics.c (build_stmt): Likewise.
* calls.c (emit_library_call, emit_library_call_value): Likewise.
* collect2.c (notice, fatal_perror, fatal, error): Likewise.
* cpperror.c (cpp_error, cpp_error_with_line): Likewise.
* diagnostic.c (build_message_string, output_printf,
output_verbatim, verbatim, inform, warning, pedwarn, error, sorry,
fatal_error, internal_error, warning_with_decl, pedwarn_with_decl,
error_with_decl, fnotice): Likewise.
* dwarf2asm.c (dw2_asm_output_data, dw2_asm_output_delta,
dw2_asm_output_offset, dw2_asm_output_pcrel, dw2_asm_output_addr,
dw2_asm_output_addr_rtx, dw2_asm_output_nstring,
dw2_asm_output_data_uleb128, dw2_asm_output_data_sleb128,
dw2_asm_output_delta_uleb128, dw2_asm_output_delta_sleb128,
dw2_asm_output_encoded_addr_rtx): Likewise.
* emit-rtl.c (gen_rtx, gen_rtvec): Likewise.
* errors.c (warning, error, fatal, internal_error): Likewise.
* final.c (output_operand_lossage, asm_fprintf): Likewise.
* fix-header.c (fatal): Likewise.
* gcc.c (fatal, error, notice): Likewise.
* gcov.c (fnotice): Likewise.
* genattrtab.c (attr_rtx, attr_printf): Likewise.
* gengtype.c (error_at_line, xasprintf, oprintf): Likewise.
* gensupport.c (message_with_line): Likewise.
* mips-tfile.c (fatal, error): Likewise.
* protoize.c (notice): Likewise.
* ra-debug.c (ra_debug_msg): Likewise.
* read-rtl.c (fatal_with_file_and_line): Likewise.
* rtl-error.c (error_for_asm, warning_for_asm): Likewise.
* tree.c (build, build_nt, build_function_type_list): Likewise.
cp:
* error.c (cp_error_at, cp_warning_at, cp_pedwarn_at): Eliminate
libiberty VA_ macros, always use stdarg.
* rtti.c (create_pseudo_type_info): Likewise.
* tree.c (build_min_nt, build_min): Likewise.
From-SVN: r66919
2003-05-18 00:21:35 +02:00
|
|
|
|
va_start (ap, format);
|
2007-03-26 23:04:59 +02:00
|
|
|
|
n = vasprintf (&result, format, ap);
|
|
|
|
|
if (result == NULL || n < 0)
|
|
|
|
|
fatal ("out of memory");
|
builtins.c (validate_arglist): Eliminate libiberty VA_ macros, always use stdarg.
gcc:
* builtins.c (validate_arglist): Eliminate libiberty VA_ macros,
always use stdarg.
* c-errors.c (pedwarn_c99): Likewise.
* c-format.c (status_warning): Likewise.
* c-semantics.c (build_stmt): Likewise.
* calls.c (emit_library_call, emit_library_call_value): Likewise.
* collect2.c (notice, fatal_perror, fatal, error): Likewise.
* cpperror.c (cpp_error, cpp_error_with_line): Likewise.
* diagnostic.c (build_message_string, output_printf,
output_verbatim, verbatim, inform, warning, pedwarn, error, sorry,
fatal_error, internal_error, warning_with_decl, pedwarn_with_decl,
error_with_decl, fnotice): Likewise.
* dwarf2asm.c (dw2_asm_output_data, dw2_asm_output_delta,
dw2_asm_output_offset, dw2_asm_output_pcrel, dw2_asm_output_addr,
dw2_asm_output_addr_rtx, dw2_asm_output_nstring,
dw2_asm_output_data_uleb128, dw2_asm_output_data_sleb128,
dw2_asm_output_delta_uleb128, dw2_asm_output_delta_sleb128,
dw2_asm_output_encoded_addr_rtx): Likewise.
* emit-rtl.c (gen_rtx, gen_rtvec): Likewise.
* errors.c (warning, error, fatal, internal_error): Likewise.
* final.c (output_operand_lossage, asm_fprintf): Likewise.
* fix-header.c (fatal): Likewise.
* gcc.c (fatal, error, notice): Likewise.
* gcov.c (fnotice): Likewise.
* genattrtab.c (attr_rtx, attr_printf): Likewise.
* gengtype.c (error_at_line, xasprintf, oprintf): Likewise.
* gensupport.c (message_with_line): Likewise.
* mips-tfile.c (fatal, error): Likewise.
* protoize.c (notice): Likewise.
* ra-debug.c (ra_debug_msg): Likewise.
* read-rtl.c (fatal_with_file_and_line): Likewise.
* rtl-error.c (error_for_asm, warning_for_asm): Likewise.
* tree.c (build, build_nt, build_function_type_list): Likewise.
cp:
* error.c (cp_error_at, cp_warning_at, cp_pedwarn_at): Eliminate
libiberty VA_ macros, always use stdarg.
* rtti.c (create_pseudo_type_info): Likewise.
* tree.c (build_min_nt, build_min): Likewise.
From-SVN: r66919
2003-05-18 00:21:35 +02:00
|
|
|
|
va_end (ap);
|
2007-03-26 23:04:59 +02:00
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
return result;
|
|
|
|
|
}
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
|
|
|
|
|
/* Input file handling. */
|
|
|
|
|
|
|
|
|
|
/* Table of all input files. */
|
|
|
|
|
static const char **gt_files;
|
|
|
|
|
static size_t num_gt_files;
|
|
|
|
|
|
2007-03-26 23:18:43 +02:00
|
|
|
|
/* A number of places use the name of this file for a location for
|
|
|
|
|
things that we can't rely on the source to define. Make sure we
|
|
|
|
|
can still use pointer comparison on filenames. */
|
|
|
|
|
static const char this_file[] = __FILE__;
|
|
|
|
|
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
/* Vector of per-language directories. */
|
|
|
|
|
static const char **lang_dir_names;
|
|
|
|
|
static size_t num_lang_dirs;
|
|
|
|
|
|
|
|
|
|
/* An array of output files suitable for definitions. There is one
|
|
|
|
|
BASE_FILES entry for each language. */
|
|
|
|
|
static outf_p *base_files;
|
|
|
|
|
|
|
|
|
|
/* Return a bitmap which has bit `1 << BASE_FILE_<lang>' set iff
|
|
|
|
|
INPUT_FILE is used by <lang>.
|
|
|
|
|
|
|
|
|
|
This function should be written to assume that a file _is_ used
|
|
|
|
|
if the situation is unclear. If it wrongly assumes a file _is_ used,
|
|
|
|
|
a linker error will result. If it wrongly assumes a file _is not_ used,
|
|
|
|
|
some GC roots may be missed, which is a much harder-to-debug problem.
|
|
|
|
|
|
|
|
|
|
The relevant bitmap is stored immediately before the file's name in the
|
|
|
|
|
buffer set up by read_input_list. It may be unaligned, so we have to
|
|
|
|
|
read it byte-by-byte. */
|
2002-06-13 00:57:45 +02:00
|
|
|
|
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
static lang_bitmap
|
|
|
|
|
get_lang_bitmap (const char *gtfile)
|
|
|
|
|
{
|
2007-03-26 23:18:43 +02:00
|
|
|
|
|
|
|
|
|
if (gtfile == this_file)
|
|
|
|
|
/* Things defined in this file are universal. */
|
|
|
|
|
return (((lang_bitmap)1) << num_lang_dirs) - 1;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
lang_bitmap n = 0;
|
|
|
|
|
int i;
|
|
|
|
|
for (i = -(int) sizeof (lang_bitmap); i < 0; i++)
|
|
|
|
|
n = (n << CHAR_BIT) + (unsigned char)gtfile[i];
|
|
|
|
|
return n;
|
|
|
|
|
}
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Set the bitmap returned by get_lang_bitmap. The only legitimate
|
|
|
|
|
caller of this function is read_input_list. */
|
|
|
|
|
static void
|
|
|
|
|
set_lang_bitmap (char *gtfile, lang_bitmap n)
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
for (i = -1; i >= -(int) sizeof (lang_bitmap); i--)
|
|
|
|
|
{
|
|
|
|
|
gtfile[i] = n & ((1U << CHAR_BIT)-1);
|
|
|
|
|
n >>= CHAR_BIT;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Scan the input file, LIST, and determine how much space we need to
|
|
|
|
|
store strings in. Also, count the number of language directories
|
|
|
|
|
and files. The numbers returned are overestimates as they does not
|
|
|
|
|
consider repeated files. */
|
|
|
|
|
static size_t
|
|
|
|
|
measure_input_list (FILE *list)
|
|
|
|
|
{
|
|
|
|
|
size_t n = 0;
|
|
|
|
|
int c;
|
|
|
|
|
bool atbol = true;
|
|
|
|
|
num_lang_dirs = 0;
|
|
|
|
|
num_gt_files = 0;
|
|
|
|
|
while ((c = getc (list)) != EOF)
|
|
|
|
|
{
|
|
|
|
|
n++;
|
|
|
|
|
if (atbol)
|
|
|
|
|
{
|
|
|
|
|
if (c == '[')
|
|
|
|
|
num_lang_dirs++;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Add space for a lang_bitmap before the input file name. */
|
|
|
|
|
n += sizeof (lang_bitmap);
|
|
|
|
|
num_gt_files++;
|
|
|
|
|
}
|
|
|
|
|
atbol = false;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (c == '\n')
|
|
|
|
|
atbol = true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
rewind (list);
|
|
|
|
|
return n;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Read one input line from LIST to HEREP (which is updated). A
|
|
|
|
|
pointer to the string is returned via LINEP. If it was a language
|
|
|
|
|
subdirectory in square brackets, strip off the square brackets and
|
|
|
|
|
return true. Otherwise, leave space before the string for a
|
|
|
|
|
lang_bitmap, and return false. At EOF, returns false, does not
|
|
|
|
|
touch *HEREP, and sets *LINEP to NULL. POS is used for
|
|
|
|
|
diagnostics. */
|
|
|
|
|
static bool
|
|
|
|
|
read_input_line (FILE *list, char **herep, char **linep,
|
|
|
|
|
struct fileloc *pos)
|
|
|
|
|
{
|
|
|
|
|
char *here = *herep;
|
|
|
|
|
char *line;
|
|
|
|
|
int c = getc (list);
|
|
|
|
|
|
|
|
|
|
if (c == EOF)
|
|
|
|
|
{
|
|
|
|
|
*linep = 0;
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
else if (c == '[')
|
|
|
|
|
{
|
|
|
|
|
/* No space for a lang_bitmap is necessary. Discard the '['. */
|
|
|
|
|
c = getc (list);
|
|
|
|
|
line = here;
|
|
|
|
|
while (c != ']' && c != '\n' && c != EOF)
|
|
|
|
|
{
|
|
|
|
|
*here++ = c;
|
|
|
|
|
c = getc (list);
|
|
|
|
|
}
|
|
|
|
|
*here++ = '\0';
|
|
|
|
|
|
|
|
|
|
if (c == ']')
|
|
|
|
|
{
|
|
|
|
|
c = getc (list); /* eat what should be a newline */
|
|
|
|
|
if (c != '\n' && c != EOF)
|
|
|
|
|
error_at_line (pos, "junk on line after language tag [%s]", line);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
error_at_line (pos, "missing close bracket for language tag [%s", line);
|
|
|
|
|
|
|
|
|
|
*herep = here;
|
|
|
|
|
*linep = line;
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Leave space for a lang_bitmap. */
|
|
|
|
|
memset (here, 0, sizeof (lang_bitmap));
|
|
|
|
|
here += sizeof (lang_bitmap);
|
|
|
|
|
line = here;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
*here++ = c;
|
|
|
|
|
c = getc (list);
|
|
|
|
|
}
|
|
|
|
|
while (c != EOF && c != '\n');
|
|
|
|
|
*here++ = '\0';
|
|
|
|
|
*herep = here;
|
|
|
|
|
*linep = line;
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Read the list of input files from LIST and compute all of the
|
|
|
|
|
relevant tables. There is one file per line of the list. At
|
|
|
|
|
first, all the files on the list are language-generic, but
|
|
|
|
|
eventually a line will appear which is the name of a language
|
|
|
|
|
subdirectory in square brackets, like this: [cp]. All subsequent
|
|
|
|
|
files are specific to that language, until another language
|
|
|
|
|
subdirectory tag appears. Files can appear more than once, if
|
|
|
|
|
they apply to more than one language. */
|
|
|
|
|
static void
|
|
|
|
|
read_input_list (const char *listname)
|
|
|
|
|
{
|
|
|
|
|
FILE *list = fopen (listname, "r");
|
|
|
|
|
if (!list)
|
|
|
|
|
fatal ("cannot open %s: %s", listname, strerror (errno));
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
struct fileloc epos;
|
|
|
|
|
size_t bufsz = measure_input_list (list);
|
|
|
|
|
char *buf = XNEWVEC (char, bufsz);
|
|
|
|
|
char *here = buf;
|
|
|
|
|
char *committed = buf;
|
|
|
|
|
char *limit = buf + bufsz;
|
|
|
|
|
char *line;
|
|
|
|
|
bool is_language;
|
|
|
|
|
size_t langno = 0;
|
|
|
|
|
size_t nfiles = 0;
|
|
|
|
|
lang_bitmap curlangs = (1 << num_lang_dirs) - 1;
|
|
|
|
|
|
|
|
|
|
epos.file = listname;
|
|
|
|
|
epos.line = 0;
|
|
|
|
|
|
|
|
|
|
lang_dir_names = XNEWVEC (const char *, num_lang_dirs);
|
|
|
|
|
gt_files = XNEWVEC (const char *, num_gt_files);
|
|
|
|
|
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
next_line:
|
|
|
|
|
epos.line++;
|
|
|
|
|
committed = here;
|
|
|
|
|
is_language = read_input_line (list, &here, &line, &epos);
|
|
|
|
|
gcc_assert (here <= limit);
|
|
|
|
|
if (line == 0)
|
|
|
|
|
break;
|
|
|
|
|
else if (is_language)
|
|
|
|
|
{
|
|
|
|
|
size_t i;
|
|
|
|
|
gcc_assert (langno <= num_lang_dirs);
|
|
|
|
|
for (i = 0; i < langno; i++)
|
|
|
|
|
if (strcmp (lang_dir_names[i], line) == 0)
|
|
|
|
|
{
|
|
|
|
|
error_at_line (&epos, "duplicate language tag [%s]", line);
|
|
|
|
|
curlangs = 1 << i;
|
|
|
|
|
here = committed;
|
|
|
|
|
goto next_line;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
curlangs = 1 << langno;
|
|
|
|
|
lang_dir_names[langno++] = line;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
size_t i;
|
|
|
|
|
gcc_assert (nfiles <= num_gt_files);
|
|
|
|
|
for (i = 0; i < nfiles; i++)
|
|
|
|
|
if (strcmp (gt_files[i], line) == 0)
|
|
|
|
|
{
|
|
|
|
|
/* Throw away the string we just read, and add the
|
|
|
|
|
current language to the existing string's bitmap. */
|
|
|
|
|
lang_bitmap bmap = get_lang_bitmap (gt_files[i]);
|
|
|
|
|
if (bmap & curlangs)
|
|
|
|
|
error_at_line (&epos, "file %s specified more than once "
|
|
|
|
|
"for language %s", line, langno == 0
|
|
|
|
|
? "(all)"
|
|
|
|
|
: lang_dir_names[langno - 1]);
|
|
|
|
|
|
|
|
|
|
bmap |= curlangs;
|
|
|
|
|
set_lang_bitmap ((char *)gt_files[i], bmap);
|
|
|
|
|
here = committed;
|
|
|
|
|
goto next_line;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
set_lang_bitmap (line, curlangs);
|
|
|
|
|
gt_files[nfiles++] = line;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
/* Update the global counts now that we know accurately how many
|
|
|
|
|
things there are. (We do not bother resizing the arrays down.) */
|
|
|
|
|
num_lang_dirs = langno;
|
|
|
|
|
num_gt_files = nfiles;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Sanity check: any file that resides in a language subdirectory
|
|
|
|
|
(e.g. 'cp') ought to belong to the corresponding language.
|
|
|
|
|
??? Still true if for instance ObjC++ is enabled and C++ isn't?
|
|
|
|
|
(Can you even do that? Should you be allowed to?) */
|
|
|
|
|
{
|
|
|
|
|
size_t f;
|
|
|
|
|
for (f = 0; f < num_gt_files; f++)
|
|
|
|
|
{
|
|
|
|
|
lang_bitmap bitmap = get_lang_bitmap (gt_files[f]);
|
|
|
|
|
const char *basename = get_file_basename (gt_files[f]);
|
|
|
|
|
const char *slashpos = strchr (basename, '/');
|
|
|
|
|
|
|
|
|
|
if (slashpos)
|
|
|
|
|
{
|
|
|
|
|
size_t l;
|
|
|
|
|
for (l = 0; l < num_lang_dirs; l++)
|
|
|
|
|
if ((size_t)(slashpos - basename) == strlen (lang_dir_names [l])
|
|
|
|
|
&& memcmp (basename, lang_dir_names[l],
|
|
|
|
|
strlen (lang_dir_names[l])) == 0)
|
|
|
|
|
{
|
|
|
|
|
if (!(bitmap & (1 << l)))
|
|
|
|
|
error ("%s is in language directory '%s' but is not "
|
|
|
|
|
"tagged for that language",
|
|
|
|
|
basename, lang_dir_names[l]);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (ferror (list))
|
|
|
|
|
fatal ("error reading %s: %s", listname, strerror (errno));
|
|
|
|
|
|
|
|
|
|
fclose (list);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* The one and only TYPE_STRING. */
|
|
|
|
|
|
2007-03-26 22:55:10 +02:00
|
|
|
|
static struct type string_type = {
|
|
|
|
|
TYPE_STRING, 0, 0, GC_USED, {0}
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* The two and only TYPE_SCALARs. Their u.scalar_is_char flags are
|
|
|
|
|
set to appropriate values at the beginning of main. */
|
|
|
|
|
|
|
|
|
|
static struct type scalar_nonchar = {
|
|
|
|
|
TYPE_SCALAR, 0, 0, GC_USED, {0}
|
|
|
|
|
};
|
|
|
|
|
static struct type scalar_char = {
|
|
|
|
|
TYPE_SCALAR, 0, 0, GC_USED, {0}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
};
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Lists of various things. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
static pair_p typedefs;
|
|
|
|
|
static type_p structures;
|
|
|
|
|
static type_p param_structs;
|
|
|
|
|
static pair_p variables;
|
|
|
|
|
|
2003-06-01 17:59:10 +02:00
|
|
|
|
static type_p find_param_structure
|
|
|
|
|
(type_p t, type_p param[NUM_PARAM]);
|
|
|
|
|
static type_p adjust_field_tree_exp (type_p t, options_p opt);
|
|
|
|
|
static type_p adjust_field_rtx_def (type_p t, options_p opt);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Define S as a typedef to T at POS. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
do_typedef (const char *s, type_p t, struct fileloc *pos)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
pair_p p;
|
|
|
|
|
|
2007-03-26 23:18:43 +02:00
|
|
|
|
/* temporary kludge - gengtype doesn't handle conditionals or macros.
|
|
|
|
|
Ignore any attempt to typedef CUMULATIVE_ARGS, location_t,
|
|
|
|
|
expanded_location, or source_locus, unless it is coming from
|
|
|
|
|
this file (main() sets them up with safe dummy definitions). */
|
|
|
|
|
if ((!strcmp (s, "CUMULATIVE_ARGS")
|
|
|
|
|
|| !strcmp (s, "location_t")
|
|
|
|
|
|| !strcmp (s, "source_locus")
|
|
|
|
|
|| !strcmp (s, "source_location")
|
|
|
|
|
|| !strcmp (s, "expanded_location"))
|
|
|
|
|
&& pos->file != this_file)
|
|
|
|
|
return;
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (p = typedefs; p != NULL; p = p->next)
|
|
|
|
|
if (strcmp (p->name, s) == 0)
|
|
|
|
|
{
|
|
|
|
|
if (p->type != t)
|
|
|
|
|
{
|
|
|
|
|
error_at_line (pos, "type `%s' previously defined", s);
|
|
|
|
|
error_at_line (&p->line, "previously defined here");
|
|
|
|
|
}
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
2004-07-25 22:43:23 +02:00
|
|
|
|
p = XNEW (struct pair);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
p->next = typedefs;
|
|
|
|
|
p->name = s;
|
|
|
|
|
p->type = t;
|
|
|
|
|
p->line = *pos;
|
|
|
|
|
typedefs = p;
|
|
|
|
|
}
|
|
|
|
|
|
2007-03-26 22:55:10 +02:00
|
|
|
|
/* Define S as a typename of a scalar. Cannot be used to define
|
|
|
|
|
typedefs of 'char'. Note: is also used for pointer-to-function
|
|
|
|
|
typedefs (which are therefore not treated as pointers). */
|
2002-09-16 20:33:23 +02:00
|
|
|
|
|
2007-03-26 22:55:10 +02:00
|
|
|
|
void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
do_scalar_typedef (const char *s, struct fileloc *pos)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
{
|
2007-03-26 22:55:10 +02:00
|
|
|
|
do_typedef (s, &scalar_nonchar, pos);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-09-12 19:31:41 +02:00
|
|
|
|
/* Return the type previously defined for S. Use POS to report errors. */
|
2002-06-07 04:15:39 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
type_p
|
2003-06-01 17:59:10 +02:00
|
|
|
|
resolve_typedef (const char *s, struct fileloc *pos)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
pair_p p;
|
|
|
|
|
for (p = typedefs; p != NULL; p = p->next)
|
|
|
|
|
if (strcmp (p->name, s) == 0)
|
|
|
|
|
return p->type;
|
|
|
|
|
error_at_line (pos, "unidentified type `%s'", s);
|
2007-03-26 22:55:10 +02:00
|
|
|
|
return &scalar_nonchar; /* treat as "int" */
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2006-01-23 08:50:42 +01:00
|
|
|
|
/* Create and return a new structure with tag NAME (or a union iff
|
|
|
|
|
ISUNION is nonzero), at POS with fields FIELDS and options O. */
|
2002-06-07 04:15:39 +02:00
|
|
|
|
|
2006-01-23 08:50:42 +01:00
|
|
|
|
type_p
|
2003-06-01 17:59:10 +02:00
|
|
|
|
new_structure (const char *name, int isunion, struct fileloc *pos,
|
|
|
|
|
pair_p fields, options_p o)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
type_p si;
|
|
|
|
|
type_p s = NULL;
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
lang_bitmap bitmap = get_lang_bitmap (pos->file);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2007-03-26 23:18:43 +02:00
|
|
|
|
/* temporary kludge - gengtype doesn't handle conditionals or
|
|
|
|
|
macros. Ignore any attempt to define struct location_s, unless
|
|
|
|
|
it is coming from this file (main() sets it up safely). */
|
|
|
|
|
if (!strcmp (name, "location_s") && !isunion
|
|
|
|
|
&& pos->file != this_file)
|
|
|
|
|
return find_structure (name, 0);
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (si = structures; si != NULL; si = si->next)
|
2003-06-01 17:59:10 +02:00
|
|
|
|
if (strcmp (name, si->u.s.tag) == 0
|
2002-06-04 09:11:05 +02:00
|
|
|
|
&& UNION_P (si) == isunion)
|
|
|
|
|
{
|
|
|
|
|
type_p ls = NULL;
|
|
|
|
|
if (si->kind == TYPE_LANG_STRUCT)
|
|
|
|
|
{
|
|
|
|
|
ls = si;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (si = ls->u.s.lang_struct; si != NULL; si = si->next)
|
|
|
|
|
if (si->u.s.bitmap == bitmap)
|
|
|
|
|
s = si;
|
|
|
|
|
}
|
|
|
|
|
else if (si->u.s.line.file != NULL && si->u.s.bitmap != bitmap)
|
|
|
|
|
{
|
|
|
|
|
ls = si;
|
2004-07-25 22:43:23 +02:00
|
|
|
|
si = XCNEW (struct type);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
memcpy (si, ls, sizeof (struct type));
|
|
|
|
|
ls->kind = TYPE_LANG_STRUCT;
|
|
|
|
|
ls->u.s.lang_struct = si;
|
|
|
|
|
ls->u.s.fields = NULL;
|
|
|
|
|
si->next = NULL;
|
|
|
|
|
si->pointer_to = NULL;
|
|
|
|
|
si->u.s.lang_struct = ls;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
s = si;
|
|
|
|
|
|
|
|
|
|
if (ls != NULL && s == NULL)
|
|
|
|
|
{
|
2004-07-25 22:43:23 +02:00
|
|
|
|
s = XCNEW (struct type);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
s->next = ls->u.s.lang_struct;
|
|
|
|
|
ls->u.s.lang_struct = s;
|
|
|
|
|
s->u.s.lang_struct = ls;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
if (s == NULL)
|
|
|
|
|
{
|
2004-07-25 22:43:23 +02:00
|
|
|
|
s = XCNEW (struct type);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
s->next = structures;
|
|
|
|
|
structures = s;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (s->u.s.line.file != NULL
|
|
|
|
|
|| (s->u.s.lang_struct && (s->u.s.lang_struct->u.s.bitmap & bitmap)))
|
|
|
|
|
{
|
2007-03-26 23:18:43 +02:00
|
|
|
|
error_at_line (pos, "duplicate definition of '%s %s'",
|
|
|
|
|
isunion ? "union" : "struct", s->u.s.tag);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
error_at_line (&s->u.s.line, "previous definition here");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
s->kind = isunion ? TYPE_UNION : TYPE_STRUCT;
|
|
|
|
|
s->u.s.tag = name;
|
|
|
|
|
s->u.s.line = *pos;
|
|
|
|
|
s->u.s.fields = fields;
|
|
|
|
|
s->u.s.opt = o;
|
|
|
|
|
s->u.s.bitmap = bitmap;
|
|
|
|
|
if (s->u.s.lang_struct)
|
|
|
|
|
s->u.s.lang_struct->u.s.bitmap |= bitmap;
|
2006-01-23 08:50:42 +01:00
|
|
|
|
|
2007-03-26 23:18:43 +02:00
|
|
|
|
/* Reset location_s's location to input.h so that we know where to
|
|
|
|
|
write out its mark routine. */
|
|
|
|
|
if (!strcmp (name, "location_s") && !isunion
|
|
|
|
|
&& pos->file == this_file)
|
|
|
|
|
{
|
|
|
|
|
size_t n;
|
|
|
|
|
for (n = 0; n < num_gt_files; n++)
|
|
|
|
|
if (!strcmp (gt_files[n] + strlen (gt_files[n]) - strlen ("input.h"),
|
|
|
|
|
"input.h"))
|
|
|
|
|
{
|
|
|
|
|
s->u.s.line.file = gt_files[n];
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return s;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Return the previously-defined structure with tag NAME (or a union
|
|
|
|
|
iff ISUNION is nonzero), or a new empty structure or union if none
|
|
|
|
|
was defined previously. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
type_p
|
2003-06-01 17:59:10 +02:00
|
|
|
|
find_structure (const char *name, int isunion)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
type_p s;
|
|
|
|
|
|
|
|
|
|
for (s = structures; s != NULL; s = s->next)
|
2003-06-01 17:59:10 +02:00
|
|
|
|
if (strcmp (name, s->u.s.tag) == 0
|
2002-06-04 09:11:05 +02:00
|
|
|
|
&& UNION_P (s) == isunion)
|
|
|
|
|
return s;
|
|
|
|
|
|
2004-07-25 22:43:23 +02:00
|
|
|
|
s = XCNEW (struct type);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
s->next = structures;
|
|
|
|
|
structures = s;
|
|
|
|
|
s->kind = isunion ? TYPE_UNION : TYPE_STRUCT;
|
|
|
|
|
s->u.s.tag = name;
|
|
|
|
|
structures = s;
|
|
|
|
|
return s;
|
|
|
|
|
}
|
|
|
|
|
|
2002-12-19 06:18:13 +01:00
|
|
|
|
/* Return the previously-defined parameterized structure for structure
|
|
|
|
|
T and parameters PARAM, or a new parameterized empty structure or
|
2002-09-29 15:16:44 +02:00
|
|
|
|
union if none was defined previously. */
|
2002-09-16 20:33:23 +02:00
|
|
|
|
|
|
|
|
|
static type_p
|
2003-06-01 17:59:10 +02:00
|
|
|
|
find_param_structure (type_p t, type_p param[NUM_PARAM])
|
2002-09-16 20:33:23 +02:00
|
|
|
|
{
|
|
|
|
|
type_p res;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
for (res = param_structs; res; res = res->next)
|
|
|
|
|
if (res->u.param_struct.stru == t
|
2003-06-01 17:59:10 +02:00
|
|
|
|
&& memcmp (res->u.param_struct.param, param,
|
2002-09-16 20:33:23 +02:00
|
|
|
|
sizeof (type_p) * NUM_PARAM) == 0)
|
|
|
|
|
break;
|
|
|
|
|
if (res == NULL)
|
|
|
|
|
{
|
2004-07-25 22:43:23 +02:00
|
|
|
|
res = XCNEW (struct type);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
res->kind = TYPE_PARAM_STRUCT;
|
|
|
|
|
res->next = param_structs;
|
|
|
|
|
param_structs = res;
|
|
|
|
|
res->u.param_struct.stru = t;
|
|
|
|
|
memcpy (res->u.param_struct.param, param, sizeof (type_p) * NUM_PARAM);
|
|
|
|
|
}
|
|
|
|
|
return res;
|
|
|
|
|
}
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Return a scalar type with name NAME. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
type_p
|
2007-03-26 22:55:10 +02:00
|
|
|
|
create_scalar_type (const char *name)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2007-03-26 22:55:10 +02:00
|
|
|
|
if (!strcmp (name, "char") || !strcmp (name, "unsigned char"))
|
|
|
|
|
return &scalar_char;
|
|
|
|
|
else
|
|
|
|
|
return &scalar_nonchar;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Return a pointer to T. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
type_p
|
2003-06-01 17:59:10 +02:00
|
|
|
|
create_pointer (type_p t)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
if (! t->pointer_to)
|
|
|
|
|
{
|
2004-07-25 22:43:23 +02:00
|
|
|
|
type_p r = XCNEW (struct type);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
r->kind = TYPE_POINTER;
|
|
|
|
|
r->u.p = t;
|
|
|
|
|
t->pointer_to = r;
|
|
|
|
|
}
|
|
|
|
|
return t->pointer_to;
|
|
|
|
|
}
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Return an array of length LEN. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
type_p
|
2003-06-01 17:59:10 +02:00
|
|
|
|
create_array (type_p t, const char *len)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
type_p v;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2004-07-25 22:43:23 +02:00
|
|
|
|
v = XCNEW (struct type);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
v->kind = TYPE_ARRAY;
|
|
|
|
|
v->u.a.p = t;
|
|
|
|
|
v->u.a.len = len;
|
|
|
|
|
return v;
|
|
|
|
|
}
|
|
|
|
|
|
2006-01-23 08:50:42 +01:00
|
|
|
|
/* Return an options structure with name NAME and info INFO. NEXT is the
|
|
|
|
|
next option in the chain. */
|
|
|
|
|
|
gengtype.c (create_option): New function.
* gengtype.c (create_option): New function.
* gengtype.h: Prototype it.
* gengtype-yacc.y (stringseq): New rule.
(option): Use create_option. Add new bare ID production. Use
stringseq, not STRING directly.
* alias.c, bitmap.c, c-decl.c, cgraph.h, cpplib.h, cselib.h
* dwarf2out.c, emit-rtl.c, function.h, lists.c, tree.h
* varray.h, config/alpha/alpha.c, cp/name-lookup.c, cp/parser.c
* f/com.c, java/builtins.c, java/expr.c, java/jcf.h, java/parse.h:
Use new shorter form of GTY markers.
* doc/gty.texi: Rewrite.
From-SVN: r80091
2004-03-30 21:19:06 +02:00
|
|
|
|
options_p
|
2006-01-23 08:50:42 +01:00
|
|
|
|
create_option (options_p next, const char *name, const void *info)
|
gengtype.c (create_option): New function.
* gengtype.c (create_option): New function.
* gengtype.h: Prototype it.
* gengtype-yacc.y (stringseq): New rule.
(option): Use create_option. Add new bare ID production. Use
stringseq, not STRING directly.
* alias.c, bitmap.c, c-decl.c, cgraph.h, cpplib.h, cselib.h
* dwarf2out.c, emit-rtl.c, function.h, lists.c, tree.h
* varray.h, config/alpha/alpha.c, cp/name-lookup.c, cp/parser.c
* f/com.c, java/builtins.c, java/expr.c, java/jcf.h, java/parse.h:
Use new shorter form of GTY markers.
* doc/gty.texi: Rewrite.
From-SVN: r80091
2004-03-30 21:19:06 +02:00
|
|
|
|
{
|
2004-07-25 22:43:23 +02:00
|
|
|
|
options_p o = XNEW (struct options);
|
2006-01-23 08:50:42 +01:00
|
|
|
|
o->next = next;
|
gengtype.c (create_option): New function.
* gengtype.c (create_option): New function.
* gengtype.h: Prototype it.
* gengtype-yacc.y (stringseq): New rule.
(option): Use create_option. Add new bare ID production. Use
stringseq, not STRING directly.
* alias.c, bitmap.c, c-decl.c, cgraph.h, cpplib.h, cselib.h
* dwarf2out.c, emit-rtl.c, function.h, lists.c, tree.h
* varray.h, config/alpha/alpha.c, cp/name-lookup.c, cp/parser.c
* f/com.c, java/builtins.c, java/expr.c, java/jcf.h, java/parse.h:
Use new shorter form of GTY markers.
* doc/gty.texi: Rewrite.
From-SVN: r80091
2004-03-30 21:19:06 +02:00
|
|
|
|
o->name = name;
|
2004-08-02 14:48:49 +02:00
|
|
|
|
o->info = (const char*) info;
|
gengtype.c (create_option): New function.
* gengtype.c (create_option): New function.
* gengtype.h: Prototype it.
* gengtype-yacc.y (stringseq): New rule.
(option): Use create_option. Add new bare ID production. Use
stringseq, not STRING directly.
* alias.c, bitmap.c, c-decl.c, cgraph.h, cpplib.h, cselib.h
* dwarf2out.c, emit-rtl.c, function.h, lists.c, tree.h
* varray.h, config/alpha/alpha.c, cp/name-lookup.c, cp/parser.c
* f/com.c, java/builtins.c, java/expr.c, java/jcf.h, java/parse.h:
Use new shorter form of GTY markers.
* doc/gty.texi: Rewrite.
From-SVN: r80091
2004-03-30 21:19:06 +02:00
|
|
|
|
return o;
|
|
|
|
|
}
|
|
|
|
|
|
2007-03-26 23:00:20 +02:00
|
|
|
|
/* Return an options structure for a "nested_ptr" option. */
|
|
|
|
|
options_p
|
2007-03-26 23:04:59 +02:00
|
|
|
|
create_nested_ptr_option (options_p next, type_p t,
|
|
|
|
|
const char *to, const char *from)
|
2007-03-26 23:00:20 +02:00
|
|
|
|
{
|
|
|
|
|
struct nested_ptr_data *d = XNEW (struct nested_ptr_data);
|
|
|
|
|
|
|
|
|
|
d->type = adjust_field_type (t, 0);
|
|
|
|
|
d->convert_to = to;
|
|
|
|
|
d->convert_from = from;
|
2007-03-26 23:04:59 +02:00
|
|
|
|
return create_option (next, "nested_ptr", d);
|
2007-03-26 23:00:20 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
/* Add a variable named S of type T with options O defined at POS,
|
|
|
|
|
to `variables'. */
|
|
|
|
|
|
|
|
|
|
void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
note_variable (const char *s, type_p t, options_p o, struct fileloc *pos)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
{
|
|
|
|
|
pair_p n;
|
2004-07-25 22:43:23 +02:00
|
|
|
|
n = XNEW (struct pair);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
n->name = s;
|
|
|
|
|
n->type = t;
|
|
|
|
|
n->line = *pos;
|
|
|
|
|
n->opt = o;
|
|
|
|
|
n->next = variables;
|
|
|
|
|
variables = n;
|
|
|
|
|
}
|
|
|
|
|
|
2007-03-26 23:04:59 +02:00
|
|
|
|
/* Most-general structure field creator. */
|
2006-01-23 08:50:42 +01:00
|
|
|
|
static pair_p
|
2007-03-26 23:04:59 +02:00
|
|
|
|
create_field_all (pair_p next, type_p type, const char *name, options_p opt,
|
|
|
|
|
const char *file, int line)
|
2006-01-23 08:50:42 +01:00
|
|
|
|
{
|
|
|
|
|
pair_p field;
|
|
|
|
|
|
|
|
|
|
field = XNEW (struct pair);
|
|
|
|
|
field->next = next;
|
|
|
|
|
field->type = type;
|
|
|
|
|
field->name = name;
|
2007-03-26 23:04:59 +02:00
|
|
|
|
field->opt = opt;
|
|
|
|
|
field->line.file = file;
|
|
|
|
|
field->line.line = line;
|
2006-01-23 08:50:42 +01:00
|
|
|
|
return field;
|
|
|
|
|
}
|
|
|
|
|
|
2007-03-26 23:04:59 +02:00
|
|
|
|
/* Create a field that came from the source code we are scanning,
|
|
|
|
|
i.e. we have a 'struct fileloc', and possibly options; also,
|
|
|
|
|
adjust_field_type should be called. */
|
|
|
|
|
pair_p
|
|
|
|
|
create_field_at (pair_p next, type_p type, const char *name, options_p opt,
|
|
|
|
|
struct fileloc *pos)
|
|
|
|
|
{
|
|
|
|
|
return create_field_all (next, adjust_field_type (type, opt),
|
|
|
|
|
name, opt, pos->file, pos->line);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Create a fake field with the given type and name. NEXT is the next
|
|
|
|
|
field in the chain. */
|
|
|
|
|
#define create_field(next,type,name) \
|
2007-03-26 23:18:43 +02:00
|
|
|
|
create_field_all(next,type,name, 0, this_file, __LINE__)
|
2007-03-26 23:04:59 +02:00
|
|
|
|
|
re PR target/9703 ([arm] Accessing data through constant pool more times could be solved in less instructions)
* cselib.c (cselib_init): Change RTX_SIZE to RTX_CODE_SIZE.
* emit-rtl.c (copy_rtx_if_shared_1): Use shallow_copy_rtx.
(copy_insn_1): Likewise. Don't copy each field individually.
Reindent.
* read-rtl.c (apply_macro_to_rtx): Use RTX_CODE_SIZE instead
of RTX_SIZE.
* reload1.c (eliminate_regs): Use shallow_copy_rtx.
* rtl.c (rtx_size): Rename variable to...
(rtx_code_size): ...this.
(rtx_size): New function.
(rtx_alloc_stat): Use RTX_CODE_SIZE instead of RTX_SIZE.
(copy_rtx): Use shallow_copy_rtx. Don't copy each field individually.
Reindent.
(shallow_copy_rtx_stat): Use rtx_size instead of RTX_SIZE.
* rtl.h (rtx_code_size): New variable.
(rtx_size): Change from a variable to a function.
(RTX_SIZE): Rename to...
(RTX_CODE_SIZE): ...this.
PR target/9703
PR tree-optimization/17106
* doc/tm.texi (TARGET_USE_BLOCKS_FOR_CONSTANT_P): Document.
(Anchored Addresses): New section.
* doc/invoke.texi (-fsection-anchors): Document.
* doc/rtl.texi (SYMBOL_REF_IN_BLOCK_P, SYMBOL_FLAG_IN_BLOCK): Likewise.
(SYMBOL_REF_ANCHOR_P, SYMBOL_FLAG_ANCHOR): Likewise.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): Likewise.
* hooks.c (hook_bool_mode_rtx_false): New function.
* hooks.h (hook_bool_mode_rtx_false): Declare.
* gengtype.c (create_optional_field): New function.
(adjust_field_rtx_def): Add the "block_sym" field for SYMBOL_REFs when
SYMBOL_REF_IN_BLOCK_P is true.
* target.h (output_anchor, use_blocks_for_constant_p): New hooks.
(min_anchor_offset, max_anchor_offset): Likewise.
(use_anchors_for_symbol_p): New hook.
* toplev.c (compile_file): Call output_object_blocks.
(target_supports_section_anchors_p): New function.
(process_options): Check that -fsection-anchors is only used on
targets that support it and when -funit-at-a-time is in effect.
* tree-ssa-loop-ivopts.c (prepare_decl_rtl): Only create DECL_RTL
if the decl doesn't have one.
* dwarf2out.c: Remove instantiations of VEC(rtx,gc).
* expr.c (emit_move_multi_word, emit_move_insn): Pass the result
of force_const_mem through use_anchored_address.
(expand_expr_constant): New function.
(expand_expr_addr_expr_1): Call it. Use the same modifier when
calling expand_expr for INDIRECT_REF.
(expand_expr_real_1): Pass DECL_RTL through use_anchored_address
for all modifiers except EXPAND_INITIALIZER. Use expand_expr_constant.
* expr.h (use_anchored_address): Declare.
* loop-unroll.c: Don't declare rtx vectors here.
* explow.c: Include output.h.
(validize_mem): Call use_anchored_address.
(use_anchored_address): New function.
* common.opt (-fsection-anchors): New switch.
* varasm.c (object_block_htab, anchor_labelno): New variables.
(hash_section, object_block_entry_eq, object_block_entry_hash)
(use_object_blocks_p, get_block_for_section, create_block_symbol)
(use_blocks_for_decl_p, change_symbol_section): New functions.
(get_variable_section): New function, split out from assemble_variable.
(make_decl_rtl): Create a block symbol if use_object_blocks_p and
use_blocks_for_decl_p say so. Use change_symbol_section if the
symbol has already been created.
(assemble_variable_contents): New function, split out from...
(assemble_variable): ...here. Don't output any code for
block symbols; just pass them to place_block_symbol.
Use get_variable_section and assemble_variable_contents.
(get_constant_alignment, get_constant_section, get_constant_size): New
functions, split from output_constant_def_contents.
(build_constant_desc): Create a block symbol if use_object_blocks_p
says so. Or into SYMBOL_REF_FLAGS.
(assemble_constant_contents): New function, split from...
(output_constant_def_contents): ...here. Don't output any code
for block symbols; just pass them to place_section_symbol.
Use get_constant_section and get_constant_alignment.
(force_const_mem): Create a block symbol if use_object_blocks_p and
use_blocks_for_constant_p say so. Or into SYMBOL_REF_FLAGS.
(output_constant_pool_1): Add an explicit alignment argument.
Don't switch sections here.
(output_constant_pool): Adjust call to output_constant_pool_1.
Switch sections here instead. Don't output anything for block symbols;
just pass them to place_block_symbol.
(init_varasm_once): Initialize object_block_htab.
(default_encode_section_info): Keep the old SYMBOL_FLAG_IN_BLOCK.
(default_asm_output_anchor, default_use_aenchors_for_symbol_p)
(place_block_symbol, get_section_anchor, output_object_block)
(output_object_block_htab, output_object_blocks): New functions.
* target-def.h (TARGET_ASM_OUTPUT_ANCHOR): New macro.
(TARGET_ASM_OUT): Include it.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): New macro.
(TARGET_MIN_ANCHOR_OFFSET, TARGET_MAX_ANCHOR_OFFSET): New macros.
(TARGET_USE_ANCHORS_FOR_SYMBOL_P): New macro.
(TARGET_INITIALIZER): Include them.
* rtl.c (rtl_check_failed_block_symbol): New function.
* rtl.h: Include vec.h. Declare heap and gc rtx vectors.
(block_symbol, object_block): New structures.
(rtx_def): Add a block_symbol field to the union.
(BLOCK_SYMBOL_CHECK): New macro.
(rtl_check_failed_block_symbol): Declare.
(SYMBOL_FLAG_IN_BLOCK, SYMBOL_FLAG_ANCHOR): New SYMBOL_REF flags.
(SYMBOL_REF_IN_BLOCK_P, SYMBOL_REF_ANCHOR_P): New predicates.
(SYMBOL_FLAG_MACH_DEP_SHIFT): Bump by 2.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): New accessors.
* output.h (output_section_symbols): Declare.
(object_block): Name structure.
(place_section_symbol, get_section_anchor, default_asm_output_anchor)
(default_use_anchors_for_symbol_p): Declare.
* Makefile.in (RTL_BASE_H): Add vec.h.
(explow.o): Depend on output.h.
* config/rs6000/rs6000.c (TARGET_MIN_ANCHOR_OFFSET): Override default.
(TARGET_MAX_ANCHOR_OFFSET): Likewise.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): Likewise.
(rs6000_use_blocks_for_constant_p): New function.
From-SVN: r111254
2006-02-18 23:06:53 +01:00
|
|
|
|
/* Like create_field, but the field is only valid when condition COND
|
|
|
|
|
is true. */
|
|
|
|
|
|
|
|
|
|
static pair_p
|
2007-03-26 23:04:59 +02:00
|
|
|
|
create_optional_field_ (pair_p next, type_p type, const char *name,
|
|
|
|
|
const char *cond, int line)
|
re PR target/9703 ([arm] Accessing data through constant pool more times could be solved in less instructions)
* cselib.c (cselib_init): Change RTX_SIZE to RTX_CODE_SIZE.
* emit-rtl.c (copy_rtx_if_shared_1): Use shallow_copy_rtx.
(copy_insn_1): Likewise. Don't copy each field individually.
Reindent.
* read-rtl.c (apply_macro_to_rtx): Use RTX_CODE_SIZE instead
of RTX_SIZE.
* reload1.c (eliminate_regs): Use shallow_copy_rtx.
* rtl.c (rtx_size): Rename variable to...
(rtx_code_size): ...this.
(rtx_size): New function.
(rtx_alloc_stat): Use RTX_CODE_SIZE instead of RTX_SIZE.
(copy_rtx): Use shallow_copy_rtx. Don't copy each field individually.
Reindent.
(shallow_copy_rtx_stat): Use rtx_size instead of RTX_SIZE.
* rtl.h (rtx_code_size): New variable.
(rtx_size): Change from a variable to a function.
(RTX_SIZE): Rename to...
(RTX_CODE_SIZE): ...this.
PR target/9703
PR tree-optimization/17106
* doc/tm.texi (TARGET_USE_BLOCKS_FOR_CONSTANT_P): Document.
(Anchored Addresses): New section.
* doc/invoke.texi (-fsection-anchors): Document.
* doc/rtl.texi (SYMBOL_REF_IN_BLOCK_P, SYMBOL_FLAG_IN_BLOCK): Likewise.
(SYMBOL_REF_ANCHOR_P, SYMBOL_FLAG_ANCHOR): Likewise.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): Likewise.
* hooks.c (hook_bool_mode_rtx_false): New function.
* hooks.h (hook_bool_mode_rtx_false): Declare.
* gengtype.c (create_optional_field): New function.
(adjust_field_rtx_def): Add the "block_sym" field for SYMBOL_REFs when
SYMBOL_REF_IN_BLOCK_P is true.
* target.h (output_anchor, use_blocks_for_constant_p): New hooks.
(min_anchor_offset, max_anchor_offset): Likewise.
(use_anchors_for_symbol_p): New hook.
* toplev.c (compile_file): Call output_object_blocks.
(target_supports_section_anchors_p): New function.
(process_options): Check that -fsection-anchors is only used on
targets that support it and when -funit-at-a-time is in effect.
* tree-ssa-loop-ivopts.c (prepare_decl_rtl): Only create DECL_RTL
if the decl doesn't have one.
* dwarf2out.c: Remove instantiations of VEC(rtx,gc).
* expr.c (emit_move_multi_word, emit_move_insn): Pass the result
of force_const_mem through use_anchored_address.
(expand_expr_constant): New function.
(expand_expr_addr_expr_1): Call it. Use the same modifier when
calling expand_expr for INDIRECT_REF.
(expand_expr_real_1): Pass DECL_RTL through use_anchored_address
for all modifiers except EXPAND_INITIALIZER. Use expand_expr_constant.
* expr.h (use_anchored_address): Declare.
* loop-unroll.c: Don't declare rtx vectors here.
* explow.c: Include output.h.
(validize_mem): Call use_anchored_address.
(use_anchored_address): New function.
* common.opt (-fsection-anchors): New switch.
* varasm.c (object_block_htab, anchor_labelno): New variables.
(hash_section, object_block_entry_eq, object_block_entry_hash)
(use_object_blocks_p, get_block_for_section, create_block_symbol)
(use_blocks_for_decl_p, change_symbol_section): New functions.
(get_variable_section): New function, split out from assemble_variable.
(make_decl_rtl): Create a block symbol if use_object_blocks_p and
use_blocks_for_decl_p say so. Use change_symbol_section if the
symbol has already been created.
(assemble_variable_contents): New function, split out from...
(assemble_variable): ...here. Don't output any code for
block symbols; just pass them to place_block_symbol.
Use get_variable_section and assemble_variable_contents.
(get_constant_alignment, get_constant_section, get_constant_size): New
functions, split from output_constant_def_contents.
(build_constant_desc): Create a block symbol if use_object_blocks_p
says so. Or into SYMBOL_REF_FLAGS.
(assemble_constant_contents): New function, split from...
(output_constant_def_contents): ...here. Don't output any code
for block symbols; just pass them to place_section_symbol.
Use get_constant_section and get_constant_alignment.
(force_const_mem): Create a block symbol if use_object_blocks_p and
use_blocks_for_constant_p say so. Or into SYMBOL_REF_FLAGS.
(output_constant_pool_1): Add an explicit alignment argument.
Don't switch sections here.
(output_constant_pool): Adjust call to output_constant_pool_1.
Switch sections here instead. Don't output anything for block symbols;
just pass them to place_block_symbol.
(init_varasm_once): Initialize object_block_htab.
(default_encode_section_info): Keep the old SYMBOL_FLAG_IN_BLOCK.
(default_asm_output_anchor, default_use_aenchors_for_symbol_p)
(place_block_symbol, get_section_anchor, output_object_block)
(output_object_block_htab, output_object_blocks): New functions.
* target-def.h (TARGET_ASM_OUTPUT_ANCHOR): New macro.
(TARGET_ASM_OUT): Include it.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): New macro.
(TARGET_MIN_ANCHOR_OFFSET, TARGET_MAX_ANCHOR_OFFSET): New macros.
(TARGET_USE_ANCHORS_FOR_SYMBOL_P): New macro.
(TARGET_INITIALIZER): Include them.
* rtl.c (rtl_check_failed_block_symbol): New function.
* rtl.h: Include vec.h. Declare heap and gc rtx vectors.
(block_symbol, object_block): New structures.
(rtx_def): Add a block_symbol field to the union.
(BLOCK_SYMBOL_CHECK): New macro.
(rtl_check_failed_block_symbol): Declare.
(SYMBOL_FLAG_IN_BLOCK, SYMBOL_FLAG_ANCHOR): New SYMBOL_REF flags.
(SYMBOL_REF_IN_BLOCK_P, SYMBOL_REF_ANCHOR_P): New predicates.
(SYMBOL_FLAG_MACH_DEP_SHIFT): Bump by 2.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): New accessors.
* output.h (output_section_symbols): Declare.
(object_block): Name structure.
(place_section_symbol, get_section_anchor, default_asm_output_anchor)
(default_use_anchors_for_symbol_p): Declare.
* Makefile.in (RTL_BASE_H): Add vec.h.
(explow.o): Depend on output.h.
* config/rs6000/rs6000.c (TARGET_MIN_ANCHOR_OFFSET): Override default.
(TARGET_MAX_ANCHOR_OFFSET): Likewise.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): Likewise.
(rs6000_use_blocks_for_constant_p): New function.
From-SVN: r111254
2006-02-18 23:06:53 +01:00
|
|
|
|
{
|
|
|
|
|
static int id = 1;
|
2007-03-26 23:04:59 +02:00
|
|
|
|
pair_p union_fields;
|
re PR target/9703 ([arm] Accessing data through constant pool more times could be solved in less instructions)
* cselib.c (cselib_init): Change RTX_SIZE to RTX_CODE_SIZE.
* emit-rtl.c (copy_rtx_if_shared_1): Use shallow_copy_rtx.
(copy_insn_1): Likewise. Don't copy each field individually.
Reindent.
* read-rtl.c (apply_macro_to_rtx): Use RTX_CODE_SIZE instead
of RTX_SIZE.
* reload1.c (eliminate_regs): Use shallow_copy_rtx.
* rtl.c (rtx_size): Rename variable to...
(rtx_code_size): ...this.
(rtx_size): New function.
(rtx_alloc_stat): Use RTX_CODE_SIZE instead of RTX_SIZE.
(copy_rtx): Use shallow_copy_rtx. Don't copy each field individually.
Reindent.
(shallow_copy_rtx_stat): Use rtx_size instead of RTX_SIZE.
* rtl.h (rtx_code_size): New variable.
(rtx_size): Change from a variable to a function.
(RTX_SIZE): Rename to...
(RTX_CODE_SIZE): ...this.
PR target/9703
PR tree-optimization/17106
* doc/tm.texi (TARGET_USE_BLOCKS_FOR_CONSTANT_P): Document.
(Anchored Addresses): New section.
* doc/invoke.texi (-fsection-anchors): Document.
* doc/rtl.texi (SYMBOL_REF_IN_BLOCK_P, SYMBOL_FLAG_IN_BLOCK): Likewise.
(SYMBOL_REF_ANCHOR_P, SYMBOL_FLAG_ANCHOR): Likewise.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): Likewise.
* hooks.c (hook_bool_mode_rtx_false): New function.
* hooks.h (hook_bool_mode_rtx_false): Declare.
* gengtype.c (create_optional_field): New function.
(adjust_field_rtx_def): Add the "block_sym" field for SYMBOL_REFs when
SYMBOL_REF_IN_BLOCK_P is true.
* target.h (output_anchor, use_blocks_for_constant_p): New hooks.
(min_anchor_offset, max_anchor_offset): Likewise.
(use_anchors_for_symbol_p): New hook.
* toplev.c (compile_file): Call output_object_blocks.
(target_supports_section_anchors_p): New function.
(process_options): Check that -fsection-anchors is only used on
targets that support it and when -funit-at-a-time is in effect.
* tree-ssa-loop-ivopts.c (prepare_decl_rtl): Only create DECL_RTL
if the decl doesn't have one.
* dwarf2out.c: Remove instantiations of VEC(rtx,gc).
* expr.c (emit_move_multi_word, emit_move_insn): Pass the result
of force_const_mem through use_anchored_address.
(expand_expr_constant): New function.
(expand_expr_addr_expr_1): Call it. Use the same modifier when
calling expand_expr for INDIRECT_REF.
(expand_expr_real_1): Pass DECL_RTL through use_anchored_address
for all modifiers except EXPAND_INITIALIZER. Use expand_expr_constant.
* expr.h (use_anchored_address): Declare.
* loop-unroll.c: Don't declare rtx vectors here.
* explow.c: Include output.h.
(validize_mem): Call use_anchored_address.
(use_anchored_address): New function.
* common.opt (-fsection-anchors): New switch.
* varasm.c (object_block_htab, anchor_labelno): New variables.
(hash_section, object_block_entry_eq, object_block_entry_hash)
(use_object_blocks_p, get_block_for_section, create_block_symbol)
(use_blocks_for_decl_p, change_symbol_section): New functions.
(get_variable_section): New function, split out from assemble_variable.
(make_decl_rtl): Create a block symbol if use_object_blocks_p and
use_blocks_for_decl_p say so. Use change_symbol_section if the
symbol has already been created.
(assemble_variable_contents): New function, split out from...
(assemble_variable): ...here. Don't output any code for
block symbols; just pass them to place_block_symbol.
Use get_variable_section and assemble_variable_contents.
(get_constant_alignment, get_constant_section, get_constant_size): New
functions, split from output_constant_def_contents.
(build_constant_desc): Create a block symbol if use_object_blocks_p
says so. Or into SYMBOL_REF_FLAGS.
(assemble_constant_contents): New function, split from...
(output_constant_def_contents): ...here. Don't output any code
for block symbols; just pass them to place_section_symbol.
Use get_constant_section and get_constant_alignment.
(force_const_mem): Create a block symbol if use_object_blocks_p and
use_blocks_for_constant_p say so. Or into SYMBOL_REF_FLAGS.
(output_constant_pool_1): Add an explicit alignment argument.
Don't switch sections here.
(output_constant_pool): Adjust call to output_constant_pool_1.
Switch sections here instead. Don't output anything for block symbols;
just pass them to place_block_symbol.
(init_varasm_once): Initialize object_block_htab.
(default_encode_section_info): Keep the old SYMBOL_FLAG_IN_BLOCK.
(default_asm_output_anchor, default_use_aenchors_for_symbol_p)
(place_block_symbol, get_section_anchor, output_object_block)
(output_object_block_htab, output_object_blocks): New functions.
* target-def.h (TARGET_ASM_OUTPUT_ANCHOR): New macro.
(TARGET_ASM_OUT): Include it.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): New macro.
(TARGET_MIN_ANCHOR_OFFSET, TARGET_MAX_ANCHOR_OFFSET): New macros.
(TARGET_USE_ANCHORS_FOR_SYMBOL_P): New macro.
(TARGET_INITIALIZER): Include them.
* rtl.c (rtl_check_failed_block_symbol): New function.
* rtl.h: Include vec.h. Declare heap and gc rtx vectors.
(block_symbol, object_block): New structures.
(rtx_def): Add a block_symbol field to the union.
(BLOCK_SYMBOL_CHECK): New macro.
(rtl_check_failed_block_symbol): Declare.
(SYMBOL_FLAG_IN_BLOCK, SYMBOL_FLAG_ANCHOR): New SYMBOL_REF flags.
(SYMBOL_REF_IN_BLOCK_P, SYMBOL_REF_ANCHOR_P): New predicates.
(SYMBOL_FLAG_MACH_DEP_SHIFT): Bump by 2.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): New accessors.
* output.h (output_section_symbols): Declare.
(object_block): Name structure.
(place_section_symbol, get_section_anchor, default_asm_output_anchor)
(default_use_anchors_for_symbol_p): Declare.
* Makefile.in (RTL_BASE_H): Add vec.h.
(explow.o): Depend on output.h.
* config/rs6000/rs6000.c (TARGET_MIN_ANCHOR_OFFSET): Override default.
(TARGET_MAX_ANCHOR_OFFSET): Likewise.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): Likewise.
(rs6000_use_blocks_for_constant_p): New function.
From-SVN: r111254
2006-02-18 23:06:53 +01:00
|
|
|
|
type_p union_type;
|
|
|
|
|
|
|
|
|
|
/* Create a fake union type with a single nameless field of type TYPE.
|
|
|
|
|
The field has a tag of "1". This allows us to make the presence
|
|
|
|
|
of a field of type TYPE depend on some boolean "desc" being true. */
|
|
|
|
|
union_fields = create_field (NULL, type, "");
|
|
|
|
|
union_fields->opt = create_option (union_fields->opt, "dot", "");
|
|
|
|
|
union_fields->opt = create_option (union_fields->opt, "tag", "1");
|
|
|
|
|
union_type = new_structure (xasprintf ("%s_%d", "fake_union", id++), 1,
|
|
|
|
|
&lexer_line, union_fields, NULL);
|
|
|
|
|
|
|
|
|
|
/* Create the field and give it the new fake union type. Add a "desc"
|
|
|
|
|
tag that specifies the condition under which the field is valid. */
|
2007-03-26 23:04:59 +02:00
|
|
|
|
return create_field_all (next, union_type, name,
|
|
|
|
|
create_option (0, "desc", cond),
|
2007-03-26 23:18:43 +02:00
|
|
|
|
this_file, line);
|
re PR target/9703 ([arm] Accessing data through constant pool more times could be solved in less instructions)
* cselib.c (cselib_init): Change RTX_SIZE to RTX_CODE_SIZE.
* emit-rtl.c (copy_rtx_if_shared_1): Use shallow_copy_rtx.
(copy_insn_1): Likewise. Don't copy each field individually.
Reindent.
* read-rtl.c (apply_macro_to_rtx): Use RTX_CODE_SIZE instead
of RTX_SIZE.
* reload1.c (eliminate_regs): Use shallow_copy_rtx.
* rtl.c (rtx_size): Rename variable to...
(rtx_code_size): ...this.
(rtx_size): New function.
(rtx_alloc_stat): Use RTX_CODE_SIZE instead of RTX_SIZE.
(copy_rtx): Use shallow_copy_rtx. Don't copy each field individually.
Reindent.
(shallow_copy_rtx_stat): Use rtx_size instead of RTX_SIZE.
* rtl.h (rtx_code_size): New variable.
(rtx_size): Change from a variable to a function.
(RTX_SIZE): Rename to...
(RTX_CODE_SIZE): ...this.
PR target/9703
PR tree-optimization/17106
* doc/tm.texi (TARGET_USE_BLOCKS_FOR_CONSTANT_P): Document.
(Anchored Addresses): New section.
* doc/invoke.texi (-fsection-anchors): Document.
* doc/rtl.texi (SYMBOL_REF_IN_BLOCK_P, SYMBOL_FLAG_IN_BLOCK): Likewise.
(SYMBOL_REF_ANCHOR_P, SYMBOL_FLAG_ANCHOR): Likewise.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): Likewise.
* hooks.c (hook_bool_mode_rtx_false): New function.
* hooks.h (hook_bool_mode_rtx_false): Declare.
* gengtype.c (create_optional_field): New function.
(adjust_field_rtx_def): Add the "block_sym" field for SYMBOL_REFs when
SYMBOL_REF_IN_BLOCK_P is true.
* target.h (output_anchor, use_blocks_for_constant_p): New hooks.
(min_anchor_offset, max_anchor_offset): Likewise.
(use_anchors_for_symbol_p): New hook.
* toplev.c (compile_file): Call output_object_blocks.
(target_supports_section_anchors_p): New function.
(process_options): Check that -fsection-anchors is only used on
targets that support it and when -funit-at-a-time is in effect.
* tree-ssa-loop-ivopts.c (prepare_decl_rtl): Only create DECL_RTL
if the decl doesn't have one.
* dwarf2out.c: Remove instantiations of VEC(rtx,gc).
* expr.c (emit_move_multi_word, emit_move_insn): Pass the result
of force_const_mem through use_anchored_address.
(expand_expr_constant): New function.
(expand_expr_addr_expr_1): Call it. Use the same modifier when
calling expand_expr for INDIRECT_REF.
(expand_expr_real_1): Pass DECL_RTL through use_anchored_address
for all modifiers except EXPAND_INITIALIZER. Use expand_expr_constant.
* expr.h (use_anchored_address): Declare.
* loop-unroll.c: Don't declare rtx vectors here.
* explow.c: Include output.h.
(validize_mem): Call use_anchored_address.
(use_anchored_address): New function.
* common.opt (-fsection-anchors): New switch.
* varasm.c (object_block_htab, anchor_labelno): New variables.
(hash_section, object_block_entry_eq, object_block_entry_hash)
(use_object_blocks_p, get_block_for_section, create_block_symbol)
(use_blocks_for_decl_p, change_symbol_section): New functions.
(get_variable_section): New function, split out from assemble_variable.
(make_decl_rtl): Create a block symbol if use_object_blocks_p and
use_blocks_for_decl_p say so. Use change_symbol_section if the
symbol has already been created.
(assemble_variable_contents): New function, split out from...
(assemble_variable): ...here. Don't output any code for
block symbols; just pass them to place_block_symbol.
Use get_variable_section and assemble_variable_contents.
(get_constant_alignment, get_constant_section, get_constant_size): New
functions, split from output_constant_def_contents.
(build_constant_desc): Create a block symbol if use_object_blocks_p
says so. Or into SYMBOL_REF_FLAGS.
(assemble_constant_contents): New function, split from...
(output_constant_def_contents): ...here. Don't output any code
for block symbols; just pass them to place_section_symbol.
Use get_constant_section and get_constant_alignment.
(force_const_mem): Create a block symbol if use_object_blocks_p and
use_blocks_for_constant_p say so. Or into SYMBOL_REF_FLAGS.
(output_constant_pool_1): Add an explicit alignment argument.
Don't switch sections here.
(output_constant_pool): Adjust call to output_constant_pool_1.
Switch sections here instead. Don't output anything for block symbols;
just pass them to place_block_symbol.
(init_varasm_once): Initialize object_block_htab.
(default_encode_section_info): Keep the old SYMBOL_FLAG_IN_BLOCK.
(default_asm_output_anchor, default_use_aenchors_for_symbol_p)
(place_block_symbol, get_section_anchor, output_object_block)
(output_object_block_htab, output_object_blocks): New functions.
* target-def.h (TARGET_ASM_OUTPUT_ANCHOR): New macro.
(TARGET_ASM_OUT): Include it.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): New macro.
(TARGET_MIN_ANCHOR_OFFSET, TARGET_MAX_ANCHOR_OFFSET): New macros.
(TARGET_USE_ANCHORS_FOR_SYMBOL_P): New macro.
(TARGET_INITIALIZER): Include them.
* rtl.c (rtl_check_failed_block_symbol): New function.
* rtl.h: Include vec.h. Declare heap and gc rtx vectors.
(block_symbol, object_block): New structures.
(rtx_def): Add a block_symbol field to the union.
(BLOCK_SYMBOL_CHECK): New macro.
(rtl_check_failed_block_symbol): Declare.
(SYMBOL_FLAG_IN_BLOCK, SYMBOL_FLAG_ANCHOR): New SYMBOL_REF flags.
(SYMBOL_REF_IN_BLOCK_P, SYMBOL_REF_ANCHOR_P): New predicates.
(SYMBOL_FLAG_MACH_DEP_SHIFT): Bump by 2.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): New accessors.
* output.h (output_section_symbols): Declare.
(object_block): Name structure.
(place_section_symbol, get_section_anchor, default_asm_output_anchor)
(default_use_anchors_for_symbol_p): Declare.
* Makefile.in (RTL_BASE_H): Add vec.h.
(explow.o): Depend on output.h.
* config/rs6000/rs6000.c (TARGET_MIN_ANCHOR_OFFSET): Override default.
(TARGET_MAX_ANCHOR_OFFSET): Likewise.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): Likewise.
(rs6000_use_blocks_for_constant_p): New function.
From-SVN: r111254
2006-02-18 23:06:53 +01:00
|
|
|
|
}
|
2007-03-26 23:04:59 +02:00
|
|
|
|
#define create_optional_field(next,type,name,cond) \
|
|
|
|
|
create_optional_field_(next,type,name,cond,__LINE__)
|
re PR target/9703 ([arm] Accessing data through constant pool more times could be solved in less instructions)
* cselib.c (cselib_init): Change RTX_SIZE to RTX_CODE_SIZE.
* emit-rtl.c (copy_rtx_if_shared_1): Use shallow_copy_rtx.
(copy_insn_1): Likewise. Don't copy each field individually.
Reindent.
* read-rtl.c (apply_macro_to_rtx): Use RTX_CODE_SIZE instead
of RTX_SIZE.
* reload1.c (eliminate_regs): Use shallow_copy_rtx.
* rtl.c (rtx_size): Rename variable to...
(rtx_code_size): ...this.
(rtx_size): New function.
(rtx_alloc_stat): Use RTX_CODE_SIZE instead of RTX_SIZE.
(copy_rtx): Use shallow_copy_rtx. Don't copy each field individually.
Reindent.
(shallow_copy_rtx_stat): Use rtx_size instead of RTX_SIZE.
* rtl.h (rtx_code_size): New variable.
(rtx_size): Change from a variable to a function.
(RTX_SIZE): Rename to...
(RTX_CODE_SIZE): ...this.
PR target/9703
PR tree-optimization/17106
* doc/tm.texi (TARGET_USE_BLOCKS_FOR_CONSTANT_P): Document.
(Anchored Addresses): New section.
* doc/invoke.texi (-fsection-anchors): Document.
* doc/rtl.texi (SYMBOL_REF_IN_BLOCK_P, SYMBOL_FLAG_IN_BLOCK): Likewise.
(SYMBOL_REF_ANCHOR_P, SYMBOL_FLAG_ANCHOR): Likewise.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): Likewise.
* hooks.c (hook_bool_mode_rtx_false): New function.
* hooks.h (hook_bool_mode_rtx_false): Declare.
* gengtype.c (create_optional_field): New function.
(adjust_field_rtx_def): Add the "block_sym" field for SYMBOL_REFs when
SYMBOL_REF_IN_BLOCK_P is true.
* target.h (output_anchor, use_blocks_for_constant_p): New hooks.
(min_anchor_offset, max_anchor_offset): Likewise.
(use_anchors_for_symbol_p): New hook.
* toplev.c (compile_file): Call output_object_blocks.
(target_supports_section_anchors_p): New function.
(process_options): Check that -fsection-anchors is only used on
targets that support it and when -funit-at-a-time is in effect.
* tree-ssa-loop-ivopts.c (prepare_decl_rtl): Only create DECL_RTL
if the decl doesn't have one.
* dwarf2out.c: Remove instantiations of VEC(rtx,gc).
* expr.c (emit_move_multi_word, emit_move_insn): Pass the result
of force_const_mem through use_anchored_address.
(expand_expr_constant): New function.
(expand_expr_addr_expr_1): Call it. Use the same modifier when
calling expand_expr for INDIRECT_REF.
(expand_expr_real_1): Pass DECL_RTL through use_anchored_address
for all modifiers except EXPAND_INITIALIZER. Use expand_expr_constant.
* expr.h (use_anchored_address): Declare.
* loop-unroll.c: Don't declare rtx vectors here.
* explow.c: Include output.h.
(validize_mem): Call use_anchored_address.
(use_anchored_address): New function.
* common.opt (-fsection-anchors): New switch.
* varasm.c (object_block_htab, anchor_labelno): New variables.
(hash_section, object_block_entry_eq, object_block_entry_hash)
(use_object_blocks_p, get_block_for_section, create_block_symbol)
(use_blocks_for_decl_p, change_symbol_section): New functions.
(get_variable_section): New function, split out from assemble_variable.
(make_decl_rtl): Create a block symbol if use_object_blocks_p and
use_blocks_for_decl_p say so. Use change_symbol_section if the
symbol has already been created.
(assemble_variable_contents): New function, split out from...
(assemble_variable): ...here. Don't output any code for
block symbols; just pass them to place_block_symbol.
Use get_variable_section and assemble_variable_contents.
(get_constant_alignment, get_constant_section, get_constant_size): New
functions, split from output_constant_def_contents.
(build_constant_desc): Create a block symbol if use_object_blocks_p
says so. Or into SYMBOL_REF_FLAGS.
(assemble_constant_contents): New function, split from...
(output_constant_def_contents): ...here. Don't output any code
for block symbols; just pass them to place_section_symbol.
Use get_constant_section and get_constant_alignment.
(force_const_mem): Create a block symbol if use_object_blocks_p and
use_blocks_for_constant_p say so. Or into SYMBOL_REF_FLAGS.
(output_constant_pool_1): Add an explicit alignment argument.
Don't switch sections here.
(output_constant_pool): Adjust call to output_constant_pool_1.
Switch sections here instead. Don't output anything for block symbols;
just pass them to place_block_symbol.
(init_varasm_once): Initialize object_block_htab.
(default_encode_section_info): Keep the old SYMBOL_FLAG_IN_BLOCK.
(default_asm_output_anchor, default_use_aenchors_for_symbol_p)
(place_block_symbol, get_section_anchor, output_object_block)
(output_object_block_htab, output_object_blocks): New functions.
* target-def.h (TARGET_ASM_OUTPUT_ANCHOR): New macro.
(TARGET_ASM_OUT): Include it.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): New macro.
(TARGET_MIN_ANCHOR_OFFSET, TARGET_MAX_ANCHOR_OFFSET): New macros.
(TARGET_USE_ANCHORS_FOR_SYMBOL_P): New macro.
(TARGET_INITIALIZER): Include them.
* rtl.c (rtl_check_failed_block_symbol): New function.
* rtl.h: Include vec.h. Declare heap and gc rtx vectors.
(block_symbol, object_block): New structures.
(rtx_def): Add a block_symbol field to the union.
(BLOCK_SYMBOL_CHECK): New macro.
(rtl_check_failed_block_symbol): Declare.
(SYMBOL_FLAG_IN_BLOCK, SYMBOL_FLAG_ANCHOR): New SYMBOL_REF flags.
(SYMBOL_REF_IN_BLOCK_P, SYMBOL_REF_ANCHOR_P): New predicates.
(SYMBOL_FLAG_MACH_DEP_SHIFT): Bump by 2.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): New accessors.
* output.h (output_section_symbols): Declare.
(object_block): Name structure.
(place_section_symbol, get_section_anchor, default_asm_output_anchor)
(default_use_anchors_for_symbol_p): Declare.
* Makefile.in (RTL_BASE_H): Add vec.h.
(explow.o): Depend on output.h.
* config/rs6000/rs6000.c (TARGET_MIN_ANCHOR_OFFSET): Override default.
(TARGET_MAX_ANCHOR_OFFSET): Likewise.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): Likewise.
(rs6000_use_blocks_for_constant_p): New function.
From-SVN: r111254
2006-02-18 23:06:53 +01:00
|
|
|
|
|
2007-03-26 23:18:43 +02:00
|
|
|
|
/* Reverse a linked list of 'struct pair's in place. */
|
|
|
|
|
pair_p
|
|
|
|
|
nreverse_pairs (pair_p list)
|
|
|
|
|
{
|
|
|
|
|
pair_p prev = 0, p, next;
|
|
|
|
|
for (p = list; p; p = next)
|
|
|
|
|
{
|
|
|
|
|
next = p->next;
|
|
|
|
|
p->next = prev;
|
|
|
|
|
prev = p;
|
|
|
|
|
}
|
|
|
|
|
return prev;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2004-08-24 19:00:54 +02:00
|
|
|
|
/* We don't care how long a CONST_DOUBLE is. */
|
2002-09-16 20:33:23 +02:00
|
|
|
|
#define CONST_DOUBLE_FORMAT "ww"
|
2004-08-24 19:00:54 +02:00
|
|
|
|
/* We don't want to see codes that are only for generator files. */
|
|
|
|
|
#undef GENERATOR_FILE
|
|
|
|
|
|
|
|
|
|
enum rtx_code {
|
|
|
|
|
#define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS) ENUM ,
|
|
|
|
|
#include "rtl.def"
|
|
|
|
|
#undef DEF_RTL_EXPR
|
|
|
|
|
NUM_RTX_CODE
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static const char * const rtx_name[NUM_RTX_CODE] = {
|
|
|
|
|
#define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS) NAME ,
|
|
|
|
|
#include "rtl.def"
|
|
|
|
|
#undef DEF_RTL_EXPR
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static const char * const rtx_format[NUM_RTX_CODE] = {
|
2002-09-16 20:33:23 +02:00
|
|
|
|
#define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS) FORMAT ,
|
|
|
|
|
#include "rtl.def"
|
|
|
|
|
#undef DEF_RTL_EXPR
|
|
|
|
|
};
|
|
|
|
|
|
2003-03-18 21:21:18 +01:00
|
|
|
|
static int rtx_next_new[NUM_RTX_CODE];
|
2002-09-16 20:33:23 +02:00
|
|
|
|
|
2004-08-24 19:00:54 +02:00
|
|
|
|
/* We also need codes and names for insn notes (not register notes).
|
|
|
|
|
Note that we do *not* bias the note values here. */
|
|
|
|
|
enum insn_note {
|
|
|
|
|
#define DEF_INSN_NOTE(NAME) NAME,
|
|
|
|
|
#include "insn-notes.def"
|
|
|
|
|
#undef DEF_INSN_NOTE
|
|
|
|
|
|
|
|
|
|
NOTE_INSN_MAX
|
|
|
|
|
};
|
|
|
|
|
|
2005-02-23 23:16:07 +01:00
|
|
|
|
/* We must allocate one more entry here, as we use NOTE_INSN_MAX as the
|
|
|
|
|
default field for line number notes. */
|
|
|
|
|
static const char *const note_insn_name[NOTE_INSN_MAX+1] = {
|
2004-08-24 19:00:54 +02:00
|
|
|
|
#define DEF_INSN_NOTE(NAME) #NAME,
|
|
|
|
|
#include "insn-notes.def"
|
|
|
|
|
#undef DEF_INSN_NOTE
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
#undef CONST_DOUBLE_FORMAT
|
|
|
|
|
#define GENERATOR_FILE
|
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
/* Generate the contents of the rtx_next array. This really doesn't belong
|
|
|
|
|
in gengtype at all, but it's needed for adjust_field_rtx_def. */
|
|
|
|
|
|
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
gen_rtx_next (void)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
for (i = 0; i < NUM_RTX_CODE; i++)
|
|
|
|
|
{
|
|
|
|
|
int k;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-03-18 21:21:18 +01:00
|
|
|
|
rtx_next_new[i] = -1;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
if (strncmp (rtx_format[i], "iuu", 3) == 0)
|
2003-03-18 21:21:18 +01:00
|
|
|
|
rtx_next_new[i] = 2;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (i == COND_EXEC || i == SET || i == EXPR_LIST || i == INSN_LIST)
|
2003-03-18 21:21:18 +01:00
|
|
|
|
rtx_next_new[i] = 1;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
else
|
2002-09-16 20:33:23 +02:00
|
|
|
|
for (k = strlen (rtx_format[i]) - 1; k >= 0; k--)
|
|
|
|
|
if (rtx_format[i][k] == 'e' || rtx_format[i][k] == 'u')
|
2003-03-18 21:21:18 +01:00
|
|
|
|
rtx_next_new[i] = k;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Write out the contents of the rtx_next array. */
|
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
write_rtx_next (void)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
{
|
|
|
|
|
outf_p f = get_output_file_with_visibility (NULL);
|
|
|
|
|
int i;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
oprintf (f, "\n/* Used to implement the RTX_NEXT macro. */\n");
|
|
|
|
|
oprintf (f, "const unsigned char rtx_next[NUM_RTX_CODE] = {\n");
|
|
|
|
|
for (i = 0; i < NUM_RTX_CODE; i++)
|
2003-03-18 21:21:18 +01:00
|
|
|
|
if (rtx_next_new[i] == -1)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
oprintf (f, " 0,\n");
|
|
|
|
|
else
|
2003-06-01 17:59:10 +02:00
|
|
|
|
oprintf (f,
|
2003-10-18 20:45:16 +02:00
|
|
|
|
" RTX_HDR_SIZE + %d * sizeof (rtunion),\n",
|
2003-03-18 21:21:18 +01:00
|
|
|
|
rtx_next_new[i]);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
oprintf (f, "};\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Handle `special("rtx_def")'. This is a special case for field
|
|
|
|
|
`fld' of struct rtx_def, which is an array of unions whose values
|
|
|
|
|
are based in a complex way on the type of RTL. */
|
|
|
|
|
|
|
|
|
|
static type_p
|
2004-07-25 02:13:01 +02:00
|
|
|
|
adjust_field_rtx_def (type_p t, options_p ARG_UNUSED (opt))
|
2002-09-16 20:33:23 +02:00
|
|
|
|
{
|
|
|
|
|
pair_p flds = NULL;
|
|
|
|
|
options_p nodot;
|
|
|
|
|
int i;
|
|
|
|
|
type_p rtx_tp, rtvec_tp, tree_tp, mem_attrs_tp, note_union_tp, scalar_tp;
|
2006-01-25 10:10:56 +01:00
|
|
|
|
type_p bitmap_tp, basic_block_tp, reg_attrs_tp, constant_tp, symbol_union_tp;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
|
2003-10-18 20:45:16 +02:00
|
|
|
|
if (t->kind != TYPE_UNION)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
{
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (&lexer_line,
|
2003-10-18 20:45:16 +02:00
|
|
|
|
"special `rtx_def' must be applied to a union");
|
2002-09-16 20:33:23 +02:00
|
|
|
|
return &string_type;
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2006-01-23 08:50:42 +01:00
|
|
|
|
nodot = create_option (NULL, "dot", "");
|
2002-09-16 20:33:23 +02:00
|
|
|
|
|
|
|
|
|
rtx_tp = create_pointer (find_structure ("rtx_def", 0));
|
|
|
|
|
rtvec_tp = create_pointer (find_structure ("rtvec_def", 0));
|
|
|
|
|
tree_tp = create_pointer (find_structure ("tree_node", 1));
|
|
|
|
|
mem_attrs_tp = create_pointer (find_structure ("mem_attrs", 0));
|
emit-rtl.c (reg_attrs_htab): New static variable.
* emit-rtl.c (reg_attrs_htab): New static variable.
(reg_attrs_htab_hash, reg_attrs_htab_eq, get_reg_attrs): New static
functions.
(reg_rtx): Do not maintain regno_decl.
(gen_rtx_REG_offset, set_reg_attrs_from_mem, set_delc_rtx,
set_mem_attrs_from_reg): New global function.
(init_emit): Do not initialize regno_decl.
(init_emit_once): initialize reg_attrs_htab.
* final.c (alter_subreg): Do not replace REG by SUBREG.
(gen_mem_expr_from_op): Improve output.
(output_asm_operands): Likewise.
* function.c (assign_params): Do not set REGNO_DECL.
* function.h (struct function): Kill regno_decl.
(REGNO_DECL): Kill.
* gengtype.c (adjust_field_rtx_def): Handle new field of reg.
* print_rtl.c (print_rtx): Output REG information.
* regclass.c (reg_scan_mark_refs): Update attrs.
* reload1.c (alter_reg): Likewise.
* simplify_rtx.c (simplify_subreg): Likewise.
* stmt.c (expand_decl): Likewise.
* rtl.def (REG): Add new field.
* rtl.h (struct reg_attrs): New.
(rtunion_def): At rtreg.
(X0MEMATTR): Add checking.
(X0REGATTR, REG_ATTRS, REG_EXPR, REG_OFFSET): New macro.
(set_reg_attrs_from_mem, set_mem_attrs_from_reg, gen_rtx_REG_offset):
Declare.
* tree.h (SET_DECL_RTL): Call set_decl_rtl.
From-SVN: r61741
2003-01-24 23:45:58 +01:00
|
|
|
|
reg_attrs_tp = create_pointer (find_structure ("reg_attrs", 0));
|
2002-09-16 20:33:23 +02:00
|
|
|
|
bitmap_tp = create_pointer (find_structure ("bitmap_element_def", 0));
|
|
|
|
|
basic_block_tp = create_pointer (find_structure ("basic_block_def", 0));
|
2006-01-25 10:10:56 +01:00
|
|
|
|
constant_tp = create_pointer (find_structure ("constant_descriptor_rtx", 0));
|
2007-03-26 22:55:10 +02:00
|
|
|
|
scalar_tp = &scalar_nonchar; /* rtunion int */
|
2002-09-16 20:33:23 +02:00
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
pair_p note_flds = NULL;
|
|
|
|
|
int c;
|
2003-03-18 21:21:18 +01:00
|
|
|
|
|
2004-08-24 19:00:54 +02:00
|
|
|
|
for (c = 0; c <= NOTE_INSN_MAX; c++)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
{
|
2003-03-18 21:21:18 +01:00
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case NOTE_INSN_MAX:
|
2006-01-23 08:50:42 +01:00
|
|
|
|
note_flds = create_field (note_flds, &string_type, "rt_str");
|
2003-03-18 21:21:18 +01:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case NOTE_INSN_BLOCK_BEG:
|
|
|
|
|
case NOTE_INSN_BLOCK_END:
|
2006-01-23 08:50:42 +01:00
|
|
|
|
note_flds = create_field (note_flds, tree_tp, "rt_tree");
|
2003-03-18 21:21:18 +01:00
|
|
|
|
break;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2004-02-06 21:03:45 +01:00
|
|
|
|
case NOTE_INSN_VAR_LOCATION:
|
2006-01-23 08:50:42 +01:00
|
|
|
|
note_flds = create_field (note_flds, rtx_tp, "rt_rtx");
|
2003-03-18 21:21:18 +01:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
2006-01-23 08:50:42 +01:00
|
|
|
|
note_flds = create_field (note_flds, scalar_tp, "rt_int");
|
2003-03-18 21:21:18 +01:00
|
|
|
|
break;
|
|
|
|
|
}
|
2006-01-23 08:50:42 +01:00
|
|
|
|
/* NOTE_INSN_MAX is used as the default field for line
|
|
|
|
|
number notes. */
|
|
|
|
|
if (c == NOTE_INSN_MAX)
|
|
|
|
|
note_flds->opt = create_option (nodot, "default", "");
|
|
|
|
|
else
|
|
|
|
|
note_flds->opt = create_option (nodot, "tag", note_insn_name[c]);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
2006-01-23 08:50:42 +01:00
|
|
|
|
note_union_tp = new_structure ("rtx_def_note_subunion", 1,
|
|
|
|
|
&lexer_line, note_flds, NULL);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
2006-01-25 10:10:56 +01:00
|
|
|
|
/* Create a type to represent the various forms of SYMBOL_REF_DATA. */
|
|
|
|
|
{
|
|
|
|
|
pair_p sym_flds;
|
|
|
|
|
|
|
|
|
|
sym_flds = create_field (NULL, tree_tp, "rt_tree");
|
|
|
|
|
sym_flds->opt = create_option (nodot, "default", "");
|
|
|
|
|
|
|
|
|
|
sym_flds = create_field (sym_flds, constant_tp, "rt_constant");
|
|
|
|
|
sym_flds->opt = create_option (nodot, "tag", "1");
|
|
|
|
|
|
|
|
|
|
symbol_union_tp = new_structure ("rtx_def_symbol_subunion", 1,
|
|
|
|
|
&lexer_line, sym_flds, NULL);
|
|
|
|
|
}
|
2002-09-16 20:33:23 +02:00
|
|
|
|
for (i = 0; i < NUM_RTX_CODE; i++)
|
|
|
|
|
{
|
|
|
|
|
pair_p subfields = NULL;
|
|
|
|
|
size_t aindex, nmindex;
|
|
|
|
|
const char *sname;
|
2006-01-23 08:50:42 +01:00
|
|
|
|
type_p substruct;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
char *ftag;
|
|
|
|
|
|
|
|
|
|
for (aindex = 0; aindex < strlen (rtx_format[i]); aindex++)
|
|
|
|
|
{
|
|
|
|
|
type_p t;
|
|
|
|
|
const char *subname;
|
|
|
|
|
|
|
|
|
|
switch (rtx_format[i][aindex])
|
|
|
|
|
{
|
|
|
|
|
case '*':
|
|
|
|
|
case 'i':
|
|
|
|
|
case 'n':
|
|
|
|
|
case 'w':
|
|
|
|
|
t = scalar_tp;
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
subname = "rt_int";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '0':
|
|
|
|
|
if (i == MEM && aindex == 1)
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
t = mem_attrs_tp, subname = "rt_mem";
|
2007-06-11 20:02:15 +02:00
|
|
|
|
else if (i == JUMP_INSN && aindex == 8)
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
t = rtx_tp, subname = "rt_rtx";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (i == CODE_LABEL && aindex == 4)
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
t = scalar_tp, subname = "rt_int";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (i == CODE_LABEL && aindex == 5)
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
t = rtx_tp, subname = "rt_rtx";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (i == LABEL_REF
|
|
|
|
|
&& (aindex == 1 || aindex == 2))
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
t = rtx_tp, subname = "rt_rtx";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (i == NOTE && aindex == 4)
|
|
|
|
|
t = note_union_tp, subname = "";
|
2007-05-21 08:19:50 +02:00
|
|
|
|
else if (i == NOTE && aindex == 5)
|
|
|
|
|
t = scalar_tp, subname = "rt_int";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (i == NOTE && aindex >= 7)
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
t = scalar_tp, subname = "rt_int";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (i == ADDR_DIFF_VEC && aindex == 4)
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
t = scalar_tp, subname = "rt_int";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (i == VALUE && aindex == 0)
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
t = scalar_tp, subname = "rt_int";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (i == REG && aindex == 1)
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
t = scalar_tp, subname = "rt_int";
|
emit-rtl.c (reg_attrs_htab): New static variable.
* emit-rtl.c (reg_attrs_htab): New static variable.
(reg_attrs_htab_hash, reg_attrs_htab_eq, get_reg_attrs): New static
functions.
(reg_rtx): Do not maintain regno_decl.
(gen_rtx_REG_offset, set_reg_attrs_from_mem, set_delc_rtx,
set_mem_attrs_from_reg): New global function.
(init_emit): Do not initialize regno_decl.
(init_emit_once): initialize reg_attrs_htab.
* final.c (alter_subreg): Do not replace REG by SUBREG.
(gen_mem_expr_from_op): Improve output.
(output_asm_operands): Likewise.
* function.c (assign_params): Do not set REGNO_DECL.
* function.h (struct function): Kill regno_decl.
(REGNO_DECL): Kill.
* gengtype.c (adjust_field_rtx_def): Handle new field of reg.
* print_rtl.c (print_rtx): Output REG information.
* regclass.c (reg_scan_mark_refs): Update attrs.
* reload1.c (alter_reg): Likewise.
* simplify_rtx.c (simplify_subreg): Likewise.
* stmt.c (expand_decl): Likewise.
* rtl.def (REG): Add new field.
* rtl.h (struct reg_attrs): New.
(rtunion_def): At rtreg.
(X0MEMATTR): Add checking.
(X0REGATTR, REG_ATTRS, REG_EXPR, REG_OFFSET): New macro.
(set_reg_attrs_from_mem, set_mem_attrs_from_reg, gen_rtx_REG_offset):
Declare.
* tree.h (SET_DECL_RTL): Call set_decl_rtl.
From-SVN: r61741
2003-01-24 23:45:58 +01:00
|
|
|
|
else if (i == REG && aindex == 2)
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
t = reg_attrs_tp, subname = "rt_reg";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (i == SCRATCH && aindex == 0)
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
t = scalar_tp, subname = "rt_int";
|
2003-04-11 23:15:36 +02:00
|
|
|
|
else if (i == SYMBOL_REF && aindex == 1)
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
t = scalar_tp, subname = "rt_int";
|
2003-04-11 23:15:36 +02:00
|
|
|
|
else if (i == SYMBOL_REF && aindex == 2)
|
2006-01-25 10:10:56 +01:00
|
|
|
|
t = symbol_union_tp, subname = "";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (i == BARRIER && aindex >= 3)
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
t = scalar_tp, subname = "rt_int";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (&lexer_line,
|
2002-10-04 08:08:19 +02:00
|
|
|
|
"rtx type `%s' has `0' in position %lu, can't handle",
|
|
|
|
|
rtx_name[i], (unsigned long) aindex);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
t = &string_type;
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
subname = "rt_int";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
|
|
|
|
break;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
case 's':
|
|
|
|
|
case 'S':
|
|
|
|
|
case 'T':
|
|
|
|
|
t = &string_type;
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
subname = "rt_str";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'e':
|
|
|
|
|
case 'u':
|
|
|
|
|
t = rtx_tp;
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
subname = "rt_rtx";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'E':
|
|
|
|
|
case 'V':
|
|
|
|
|
t = rtvec_tp;
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
subname = "rt_rtvec";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 't':
|
|
|
|
|
t = tree_tp;
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
subname = "rt_tree";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'b':
|
|
|
|
|
t = bitmap_tp;
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
subname = "rt_bit";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'B':
|
|
|
|
|
t = basic_block_tp;
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
subname = "rt_bb";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (&lexer_line,
|
2002-10-04 08:08:19 +02:00
|
|
|
|
"rtx type `%s' has `%c' in position %lu, can't handle",
|
2002-09-16 20:33:23 +02:00
|
|
|
|
rtx_name[i], rtx_format[i][aindex],
|
2002-10-04 08:08:19 +02:00
|
|
|
|
(unsigned long)aindex);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
t = &string_type;
|
rtl.h (union rtunion_def): Have all members start with the prefix "rt_".
* rtl.h (union rtunion_def): Have all members start with the
prefix "rt_".
(XINT, XSTR, XEXP, XVEC, XMODE, XBITMAP, XTREE, XBBDEF, XTMPL,
X0INT, X0UINT, X0STR, X0EXP, X0VEC, X0MODE, X0BITMAP, X0TREE,
X0MEMATTR, X0BBDEF, X0REGATTR, XCINT, XCUINT, XCSTR, XCEXP,
XCVEC, XCMODE, XCBITMAP, XCTREE, XCBBDEF, XC2EXP): Adjust
members
access.
* gengtype.c (adjust_field_rtx_def): Likewise.
* rtlanal.c (loc_mentioned_in_p): Likewise.
From-SVN: r85434
2004-08-02 12:29:26 +02:00
|
|
|
|
subname = "rt_int";
|
2002-09-16 20:33:23 +02:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
2006-01-23 08:50:42 +01:00
|
|
|
|
subfields = create_field (subfields, t,
|
|
|
|
|
xasprintf (".fld[%lu].%s",
|
|
|
|
|
(unsigned long) aindex,
|
|
|
|
|
subname));
|
|
|
|
|
subfields->opt = nodot;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
if (t == note_union_tp)
|
2006-01-23 08:50:42 +01:00
|
|
|
|
subfields->opt = create_option (subfields->opt, "desc",
|
2007-05-21 08:19:50 +02:00
|
|
|
|
"NOTE_KIND (&%0)");
|
2006-01-25 10:10:56 +01:00
|
|
|
|
if (t == symbol_union_tp)
|
|
|
|
|
subfields->opt = create_option (subfields->opt, "desc",
|
|
|
|
|
"CONSTANT_POOL_ADDRESS_P (&%0)");
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
|
|
|
|
|
re PR target/9703 ([arm] Accessing data through constant pool more times could be solved in less instructions)
* cselib.c (cselib_init): Change RTX_SIZE to RTX_CODE_SIZE.
* emit-rtl.c (copy_rtx_if_shared_1): Use shallow_copy_rtx.
(copy_insn_1): Likewise. Don't copy each field individually.
Reindent.
* read-rtl.c (apply_macro_to_rtx): Use RTX_CODE_SIZE instead
of RTX_SIZE.
* reload1.c (eliminate_regs): Use shallow_copy_rtx.
* rtl.c (rtx_size): Rename variable to...
(rtx_code_size): ...this.
(rtx_size): New function.
(rtx_alloc_stat): Use RTX_CODE_SIZE instead of RTX_SIZE.
(copy_rtx): Use shallow_copy_rtx. Don't copy each field individually.
Reindent.
(shallow_copy_rtx_stat): Use rtx_size instead of RTX_SIZE.
* rtl.h (rtx_code_size): New variable.
(rtx_size): Change from a variable to a function.
(RTX_SIZE): Rename to...
(RTX_CODE_SIZE): ...this.
PR target/9703
PR tree-optimization/17106
* doc/tm.texi (TARGET_USE_BLOCKS_FOR_CONSTANT_P): Document.
(Anchored Addresses): New section.
* doc/invoke.texi (-fsection-anchors): Document.
* doc/rtl.texi (SYMBOL_REF_IN_BLOCK_P, SYMBOL_FLAG_IN_BLOCK): Likewise.
(SYMBOL_REF_ANCHOR_P, SYMBOL_FLAG_ANCHOR): Likewise.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): Likewise.
* hooks.c (hook_bool_mode_rtx_false): New function.
* hooks.h (hook_bool_mode_rtx_false): Declare.
* gengtype.c (create_optional_field): New function.
(adjust_field_rtx_def): Add the "block_sym" field for SYMBOL_REFs when
SYMBOL_REF_IN_BLOCK_P is true.
* target.h (output_anchor, use_blocks_for_constant_p): New hooks.
(min_anchor_offset, max_anchor_offset): Likewise.
(use_anchors_for_symbol_p): New hook.
* toplev.c (compile_file): Call output_object_blocks.
(target_supports_section_anchors_p): New function.
(process_options): Check that -fsection-anchors is only used on
targets that support it and when -funit-at-a-time is in effect.
* tree-ssa-loop-ivopts.c (prepare_decl_rtl): Only create DECL_RTL
if the decl doesn't have one.
* dwarf2out.c: Remove instantiations of VEC(rtx,gc).
* expr.c (emit_move_multi_word, emit_move_insn): Pass the result
of force_const_mem through use_anchored_address.
(expand_expr_constant): New function.
(expand_expr_addr_expr_1): Call it. Use the same modifier when
calling expand_expr for INDIRECT_REF.
(expand_expr_real_1): Pass DECL_RTL through use_anchored_address
for all modifiers except EXPAND_INITIALIZER. Use expand_expr_constant.
* expr.h (use_anchored_address): Declare.
* loop-unroll.c: Don't declare rtx vectors here.
* explow.c: Include output.h.
(validize_mem): Call use_anchored_address.
(use_anchored_address): New function.
* common.opt (-fsection-anchors): New switch.
* varasm.c (object_block_htab, anchor_labelno): New variables.
(hash_section, object_block_entry_eq, object_block_entry_hash)
(use_object_blocks_p, get_block_for_section, create_block_symbol)
(use_blocks_for_decl_p, change_symbol_section): New functions.
(get_variable_section): New function, split out from assemble_variable.
(make_decl_rtl): Create a block symbol if use_object_blocks_p and
use_blocks_for_decl_p say so. Use change_symbol_section if the
symbol has already been created.
(assemble_variable_contents): New function, split out from...
(assemble_variable): ...here. Don't output any code for
block symbols; just pass them to place_block_symbol.
Use get_variable_section and assemble_variable_contents.
(get_constant_alignment, get_constant_section, get_constant_size): New
functions, split from output_constant_def_contents.
(build_constant_desc): Create a block symbol if use_object_blocks_p
says so. Or into SYMBOL_REF_FLAGS.
(assemble_constant_contents): New function, split from...
(output_constant_def_contents): ...here. Don't output any code
for block symbols; just pass them to place_section_symbol.
Use get_constant_section and get_constant_alignment.
(force_const_mem): Create a block symbol if use_object_blocks_p and
use_blocks_for_constant_p say so. Or into SYMBOL_REF_FLAGS.
(output_constant_pool_1): Add an explicit alignment argument.
Don't switch sections here.
(output_constant_pool): Adjust call to output_constant_pool_1.
Switch sections here instead. Don't output anything for block symbols;
just pass them to place_block_symbol.
(init_varasm_once): Initialize object_block_htab.
(default_encode_section_info): Keep the old SYMBOL_FLAG_IN_BLOCK.
(default_asm_output_anchor, default_use_aenchors_for_symbol_p)
(place_block_symbol, get_section_anchor, output_object_block)
(output_object_block_htab, output_object_blocks): New functions.
* target-def.h (TARGET_ASM_OUTPUT_ANCHOR): New macro.
(TARGET_ASM_OUT): Include it.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): New macro.
(TARGET_MIN_ANCHOR_OFFSET, TARGET_MAX_ANCHOR_OFFSET): New macros.
(TARGET_USE_ANCHORS_FOR_SYMBOL_P): New macro.
(TARGET_INITIALIZER): Include them.
* rtl.c (rtl_check_failed_block_symbol): New function.
* rtl.h: Include vec.h. Declare heap and gc rtx vectors.
(block_symbol, object_block): New structures.
(rtx_def): Add a block_symbol field to the union.
(BLOCK_SYMBOL_CHECK): New macro.
(rtl_check_failed_block_symbol): Declare.
(SYMBOL_FLAG_IN_BLOCK, SYMBOL_FLAG_ANCHOR): New SYMBOL_REF flags.
(SYMBOL_REF_IN_BLOCK_P, SYMBOL_REF_ANCHOR_P): New predicates.
(SYMBOL_FLAG_MACH_DEP_SHIFT): Bump by 2.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): New accessors.
* output.h (output_section_symbols): Declare.
(object_block): Name structure.
(place_section_symbol, get_section_anchor, default_asm_output_anchor)
(default_use_anchors_for_symbol_p): Declare.
* Makefile.in (RTL_BASE_H): Add vec.h.
(explow.o): Depend on output.h.
* config/rs6000/rs6000.c (TARGET_MIN_ANCHOR_OFFSET): Override default.
(TARGET_MAX_ANCHOR_OFFSET): Likewise.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): Likewise.
(rs6000_use_blocks_for_constant_p): New function.
From-SVN: r111254
2006-02-18 23:06:53 +01:00
|
|
|
|
if (i == SYMBOL_REF)
|
|
|
|
|
{
|
2006-03-03 10:11:58 +01:00
|
|
|
|
/* Add the "block_sym" field if SYMBOL_REF_HAS_BLOCK_INFO_P holds. */
|
re PR target/9703 ([arm] Accessing data through constant pool more times could be solved in less instructions)
* cselib.c (cselib_init): Change RTX_SIZE to RTX_CODE_SIZE.
* emit-rtl.c (copy_rtx_if_shared_1): Use shallow_copy_rtx.
(copy_insn_1): Likewise. Don't copy each field individually.
Reindent.
* read-rtl.c (apply_macro_to_rtx): Use RTX_CODE_SIZE instead
of RTX_SIZE.
* reload1.c (eliminate_regs): Use shallow_copy_rtx.
* rtl.c (rtx_size): Rename variable to...
(rtx_code_size): ...this.
(rtx_size): New function.
(rtx_alloc_stat): Use RTX_CODE_SIZE instead of RTX_SIZE.
(copy_rtx): Use shallow_copy_rtx. Don't copy each field individually.
Reindent.
(shallow_copy_rtx_stat): Use rtx_size instead of RTX_SIZE.
* rtl.h (rtx_code_size): New variable.
(rtx_size): Change from a variable to a function.
(RTX_SIZE): Rename to...
(RTX_CODE_SIZE): ...this.
PR target/9703
PR tree-optimization/17106
* doc/tm.texi (TARGET_USE_BLOCKS_FOR_CONSTANT_P): Document.
(Anchored Addresses): New section.
* doc/invoke.texi (-fsection-anchors): Document.
* doc/rtl.texi (SYMBOL_REF_IN_BLOCK_P, SYMBOL_FLAG_IN_BLOCK): Likewise.
(SYMBOL_REF_ANCHOR_P, SYMBOL_FLAG_ANCHOR): Likewise.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): Likewise.
* hooks.c (hook_bool_mode_rtx_false): New function.
* hooks.h (hook_bool_mode_rtx_false): Declare.
* gengtype.c (create_optional_field): New function.
(adjust_field_rtx_def): Add the "block_sym" field for SYMBOL_REFs when
SYMBOL_REF_IN_BLOCK_P is true.
* target.h (output_anchor, use_blocks_for_constant_p): New hooks.
(min_anchor_offset, max_anchor_offset): Likewise.
(use_anchors_for_symbol_p): New hook.
* toplev.c (compile_file): Call output_object_blocks.
(target_supports_section_anchors_p): New function.
(process_options): Check that -fsection-anchors is only used on
targets that support it and when -funit-at-a-time is in effect.
* tree-ssa-loop-ivopts.c (prepare_decl_rtl): Only create DECL_RTL
if the decl doesn't have one.
* dwarf2out.c: Remove instantiations of VEC(rtx,gc).
* expr.c (emit_move_multi_word, emit_move_insn): Pass the result
of force_const_mem through use_anchored_address.
(expand_expr_constant): New function.
(expand_expr_addr_expr_1): Call it. Use the same modifier when
calling expand_expr for INDIRECT_REF.
(expand_expr_real_1): Pass DECL_RTL through use_anchored_address
for all modifiers except EXPAND_INITIALIZER. Use expand_expr_constant.
* expr.h (use_anchored_address): Declare.
* loop-unroll.c: Don't declare rtx vectors here.
* explow.c: Include output.h.
(validize_mem): Call use_anchored_address.
(use_anchored_address): New function.
* common.opt (-fsection-anchors): New switch.
* varasm.c (object_block_htab, anchor_labelno): New variables.
(hash_section, object_block_entry_eq, object_block_entry_hash)
(use_object_blocks_p, get_block_for_section, create_block_symbol)
(use_blocks_for_decl_p, change_symbol_section): New functions.
(get_variable_section): New function, split out from assemble_variable.
(make_decl_rtl): Create a block symbol if use_object_blocks_p and
use_blocks_for_decl_p say so. Use change_symbol_section if the
symbol has already been created.
(assemble_variable_contents): New function, split out from...
(assemble_variable): ...here. Don't output any code for
block symbols; just pass them to place_block_symbol.
Use get_variable_section and assemble_variable_contents.
(get_constant_alignment, get_constant_section, get_constant_size): New
functions, split from output_constant_def_contents.
(build_constant_desc): Create a block symbol if use_object_blocks_p
says so. Or into SYMBOL_REF_FLAGS.
(assemble_constant_contents): New function, split from...
(output_constant_def_contents): ...here. Don't output any code
for block symbols; just pass them to place_section_symbol.
Use get_constant_section and get_constant_alignment.
(force_const_mem): Create a block symbol if use_object_blocks_p and
use_blocks_for_constant_p say so. Or into SYMBOL_REF_FLAGS.
(output_constant_pool_1): Add an explicit alignment argument.
Don't switch sections here.
(output_constant_pool): Adjust call to output_constant_pool_1.
Switch sections here instead. Don't output anything for block symbols;
just pass them to place_block_symbol.
(init_varasm_once): Initialize object_block_htab.
(default_encode_section_info): Keep the old SYMBOL_FLAG_IN_BLOCK.
(default_asm_output_anchor, default_use_aenchors_for_symbol_p)
(place_block_symbol, get_section_anchor, output_object_block)
(output_object_block_htab, output_object_blocks): New functions.
* target-def.h (TARGET_ASM_OUTPUT_ANCHOR): New macro.
(TARGET_ASM_OUT): Include it.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): New macro.
(TARGET_MIN_ANCHOR_OFFSET, TARGET_MAX_ANCHOR_OFFSET): New macros.
(TARGET_USE_ANCHORS_FOR_SYMBOL_P): New macro.
(TARGET_INITIALIZER): Include them.
* rtl.c (rtl_check_failed_block_symbol): New function.
* rtl.h: Include vec.h. Declare heap and gc rtx vectors.
(block_symbol, object_block): New structures.
(rtx_def): Add a block_symbol field to the union.
(BLOCK_SYMBOL_CHECK): New macro.
(rtl_check_failed_block_symbol): Declare.
(SYMBOL_FLAG_IN_BLOCK, SYMBOL_FLAG_ANCHOR): New SYMBOL_REF flags.
(SYMBOL_REF_IN_BLOCK_P, SYMBOL_REF_ANCHOR_P): New predicates.
(SYMBOL_FLAG_MACH_DEP_SHIFT): Bump by 2.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): New accessors.
* output.h (output_section_symbols): Declare.
(object_block): Name structure.
(place_section_symbol, get_section_anchor, default_asm_output_anchor)
(default_use_anchors_for_symbol_p): Declare.
* Makefile.in (RTL_BASE_H): Add vec.h.
(explow.o): Depend on output.h.
* config/rs6000/rs6000.c (TARGET_MIN_ANCHOR_OFFSET): Override default.
(TARGET_MAX_ANCHOR_OFFSET): Likewise.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): Likewise.
(rs6000_use_blocks_for_constant_p): New function.
From-SVN: r111254
2006-02-18 23:06:53 +01:00
|
|
|
|
type_p field_tp = find_structure ("block_symbol", 0);
|
2006-03-03 10:11:58 +01:00
|
|
|
|
subfields
|
|
|
|
|
= create_optional_field (subfields, field_tp, "block_sym",
|
|
|
|
|
"SYMBOL_REF_HAS_BLOCK_INFO_P (&%0)");
|
re PR target/9703 ([arm] Accessing data through constant pool more times could be solved in less instructions)
* cselib.c (cselib_init): Change RTX_SIZE to RTX_CODE_SIZE.
* emit-rtl.c (copy_rtx_if_shared_1): Use shallow_copy_rtx.
(copy_insn_1): Likewise. Don't copy each field individually.
Reindent.
* read-rtl.c (apply_macro_to_rtx): Use RTX_CODE_SIZE instead
of RTX_SIZE.
* reload1.c (eliminate_regs): Use shallow_copy_rtx.
* rtl.c (rtx_size): Rename variable to...
(rtx_code_size): ...this.
(rtx_size): New function.
(rtx_alloc_stat): Use RTX_CODE_SIZE instead of RTX_SIZE.
(copy_rtx): Use shallow_copy_rtx. Don't copy each field individually.
Reindent.
(shallow_copy_rtx_stat): Use rtx_size instead of RTX_SIZE.
* rtl.h (rtx_code_size): New variable.
(rtx_size): Change from a variable to a function.
(RTX_SIZE): Rename to...
(RTX_CODE_SIZE): ...this.
PR target/9703
PR tree-optimization/17106
* doc/tm.texi (TARGET_USE_BLOCKS_FOR_CONSTANT_P): Document.
(Anchored Addresses): New section.
* doc/invoke.texi (-fsection-anchors): Document.
* doc/rtl.texi (SYMBOL_REF_IN_BLOCK_P, SYMBOL_FLAG_IN_BLOCK): Likewise.
(SYMBOL_REF_ANCHOR_P, SYMBOL_FLAG_ANCHOR): Likewise.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): Likewise.
* hooks.c (hook_bool_mode_rtx_false): New function.
* hooks.h (hook_bool_mode_rtx_false): Declare.
* gengtype.c (create_optional_field): New function.
(adjust_field_rtx_def): Add the "block_sym" field for SYMBOL_REFs when
SYMBOL_REF_IN_BLOCK_P is true.
* target.h (output_anchor, use_blocks_for_constant_p): New hooks.
(min_anchor_offset, max_anchor_offset): Likewise.
(use_anchors_for_symbol_p): New hook.
* toplev.c (compile_file): Call output_object_blocks.
(target_supports_section_anchors_p): New function.
(process_options): Check that -fsection-anchors is only used on
targets that support it and when -funit-at-a-time is in effect.
* tree-ssa-loop-ivopts.c (prepare_decl_rtl): Only create DECL_RTL
if the decl doesn't have one.
* dwarf2out.c: Remove instantiations of VEC(rtx,gc).
* expr.c (emit_move_multi_word, emit_move_insn): Pass the result
of force_const_mem through use_anchored_address.
(expand_expr_constant): New function.
(expand_expr_addr_expr_1): Call it. Use the same modifier when
calling expand_expr for INDIRECT_REF.
(expand_expr_real_1): Pass DECL_RTL through use_anchored_address
for all modifiers except EXPAND_INITIALIZER. Use expand_expr_constant.
* expr.h (use_anchored_address): Declare.
* loop-unroll.c: Don't declare rtx vectors here.
* explow.c: Include output.h.
(validize_mem): Call use_anchored_address.
(use_anchored_address): New function.
* common.opt (-fsection-anchors): New switch.
* varasm.c (object_block_htab, anchor_labelno): New variables.
(hash_section, object_block_entry_eq, object_block_entry_hash)
(use_object_blocks_p, get_block_for_section, create_block_symbol)
(use_blocks_for_decl_p, change_symbol_section): New functions.
(get_variable_section): New function, split out from assemble_variable.
(make_decl_rtl): Create a block symbol if use_object_blocks_p and
use_blocks_for_decl_p say so. Use change_symbol_section if the
symbol has already been created.
(assemble_variable_contents): New function, split out from...
(assemble_variable): ...here. Don't output any code for
block symbols; just pass them to place_block_symbol.
Use get_variable_section and assemble_variable_contents.
(get_constant_alignment, get_constant_section, get_constant_size): New
functions, split from output_constant_def_contents.
(build_constant_desc): Create a block symbol if use_object_blocks_p
says so. Or into SYMBOL_REF_FLAGS.
(assemble_constant_contents): New function, split from...
(output_constant_def_contents): ...here. Don't output any code
for block symbols; just pass them to place_section_symbol.
Use get_constant_section and get_constant_alignment.
(force_const_mem): Create a block symbol if use_object_blocks_p and
use_blocks_for_constant_p say so. Or into SYMBOL_REF_FLAGS.
(output_constant_pool_1): Add an explicit alignment argument.
Don't switch sections here.
(output_constant_pool): Adjust call to output_constant_pool_1.
Switch sections here instead. Don't output anything for block symbols;
just pass them to place_block_symbol.
(init_varasm_once): Initialize object_block_htab.
(default_encode_section_info): Keep the old SYMBOL_FLAG_IN_BLOCK.
(default_asm_output_anchor, default_use_aenchors_for_symbol_p)
(place_block_symbol, get_section_anchor, output_object_block)
(output_object_block_htab, output_object_blocks): New functions.
* target-def.h (TARGET_ASM_OUTPUT_ANCHOR): New macro.
(TARGET_ASM_OUT): Include it.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): New macro.
(TARGET_MIN_ANCHOR_OFFSET, TARGET_MAX_ANCHOR_OFFSET): New macros.
(TARGET_USE_ANCHORS_FOR_SYMBOL_P): New macro.
(TARGET_INITIALIZER): Include them.
* rtl.c (rtl_check_failed_block_symbol): New function.
* rtl.h: Include vec.h. Declare heap and gc rtx vectors.
(block_symbol, object_block): New structures.
(rtx_def): Add a block_symbol field to the union.
(BLOCK_SYMBOL_CHECK): New macro.
(rtl_check_failed_block_symbol): Declare.
(SYMBOL_FLAG_IN_BLOCK, SYMBOL_FLAG_ANCHOR): New SYMBOL_REF flags.
(SYMBOL_REF_IN_BLOCK_P, SYMBOL_REF_ANCHOR_P): New predicates.
(SYMBOL_FLAG_MACH_DEP_SHIFT): Bump by 2.
(SYMBOL_REF_BLOCK, SYMBOL_REF_BLOCK_OFFSET): New accessors.
* output.h (output_section_symbols): Declare.
(object_block): Name structure.
(place_section_symbol, get_section_anchor, default_asm_output_anchor)
(default_use_anchors_for_symbol_p): Declare.
* Makefile.in (RTL_BASE_H): Add vec.h.
(explow.o): Depend on output.h.
* config/rs6000/rs6000.c (TARGET_MIN_ANCHOR_OFFSET): Override default.
(TARGET_MAX_ANCHOR_OFFSET): Likewise.
(TARGET_USE_BLOCKS_FOR_CONSTANT_P): Likewise.
(rs6000_use_blocks_for_constant_p): New function.
From-SVN: r111254
2006-02-18 23:06:53 +01:00
|
|
|
|
}
|
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
sname = xasprintf ("rtx_def_%s", rtx_name[i]);
|
2006-01-23 08:50:42 +01:00
|
|
|
|
substruct = new_structure (sname, 0, &lexer_line, subfields, NULL);
|
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
ftag = xstrdup (rtx_name[i]);
|
|
|
|
|
for (nmindex = 0; nmindex < strlen (ftag); nmindex++)
|
|
|
|
|
ftag[nmindex] = TOUPPER (ftag[nmindex]);
|
2006-01-23 08:50:42 +01:00
|
|
|
|
|
|
|
|
|
flds = create_field (flds, substruct, "");
|
|
|
|
|
flds->opt = create_option (nodot, "tag", ftag);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
|
|
|
|
|
2006-01-23 08:50:42 +01:00
|
|
|
|
return new_structure ("rtx_def_subunion", 1, &lexer_line, flds, nodot);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Handle `special("tree_exp")'. This is a special case for
|
|
|
|
|
field `operands' of struct tree_exp, which although it claims to contain
|
2003-06-01 17:59:10 +02:00
|
|
|
|
pointers to trees, actually sometimes contains pointers to RTL too.
|
2002-09-16 20:33:23 +02:00
|
|
|
|
Passed T, the old type of the field, and OPT its options. Returns
|
|
|
|
|
a new type for the field. */
|
|
|
|
|
|
|
|
|
|
static type_p
|
2003-06-01 17:59:10 +02:00
|
|
|
|
adjust_field_tree_exp (type_p t, options_p opt ATTRIBUTE_UNUSED)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
{
|
|
|
|
|
pair_p flds;
|
|
|
|
|
options_p nodot;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
if (t->kind != TYPE_ARRAY)
|
|
|
|
|
{
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (&lexer_line,
|
2002-09-16 20:33:23 +02:00
|
|
|
|
"special `tree_exp' must be applied to an array");
|
|
|
|
|
return &string_type;
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2006-01-23 08:50:42 +01:00
|
|
|
|
nodot = create_option (NULL, "dot", "");
|
|
|
|
|
|
|
|
|
|
flds = create_field (NULL, t, "");
|
|
|
|
|
flds->opt = create_option (nodot, "length",
|
tree.h (enum tree_code_class): Add tcc_vl_exp.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* tree.h (enum tree_code_class): Add tcc_vl_exp.
(VL_EXP_CLASS_P): New.
(TREE_OPERAND_CHECK): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(TREE_OPERAND_CHECK_CODE): Likewise.
(GIMPLE_STMT_OPERAND_CHECK): Likewise.
(TREE_RTL_OPERAND_CHECK): Likewise.
(tree_operand_check_failed): Make second parameter the whole tree
instead of its code. Fixed callers.
(VL_EXP_CHECK): New.
(TREE_OPERAND_LENGTH): New.
(VL_EXP_OPERAND_LENGTH): New.
(CALL_EXPR_FN): New.
(CALL_EXPR_STATIC_CHAIN): New.
(CALL_EXPR_ARGS): New.
(CALL_EXPR_ARG): New.
(call_expr_nargs): New.
(CALL_EXPR_ARGP): New.
(build_nt_call_list): Declare.
(build_vl_exp_stat): Declare.
(build_vl_exp): New.
(build_call_list): Declare.
(build_call_nary): Declare.
(build_call_valist): Declare.
(build_call_array): Declare.
(call_expr_arg): Declare.
(call_expr_argp): Declare.
(call_expr_arglist): Declare.
(fold_build_call_list): Declare.
(fold_build_call_list_initializer): Declare.
(fold_call_expr): Declare to replace fold_builtin.
(fold_builtin_fputs): Update to agree with modified definition.
(fold_builtin_strcpy): Likewise.
(fold_builtin_strncpy): Likewise.
(fold_builtin_memory_chk): Likewise.
(fold_builtin_stxcpy_chk): Likewise.
(fold_builtin_strncpy_chk): Likewise.
(fold_builtin_next_arg): Likewise.
(fold_build_call_expr): Declare.
(fold_builtin_call_list): Declare.
(fold_builtin_call_valist): Declare.
(build_call_expr): Declare.
(validate_arglist): Update to agree with modified definition.
(tree_operand_length): New.
(call_expr_arg_iterator): New.
(init_call_expr_arg_iterator): New.
(next_call_expr_arg): New.
(first_call_expr_arg): New.
(more_call_expr_args_p): New.
(FOR_EACH_CALL_EXPR_ARG): New.
* tree.c (tree_code_class_string): Add entries for tcc_vl_exp
and tcc_gimple_stmt.
(tree_code_size): Update documentation. Use sizeof (tree) rather
than sizeof (char *).
(tree_size): Likewise. Add case for tcc_vl_exp.
(tree_node_structure): Add case for tcc_vl_exp.
(contains_placeholder_p): Likewise.
(substitute_in_expr): Likewise.
(substitute_placeholder_in_expr): Likewise.
(stabilize_reference_1): Likewise.
(build3_stat): Remove logic for CALL_EXPRs. Replace with assertion
to diagnose breakage of this interface for constructing CALL_EXPRs.
(build_nt): Add similar assertion here.
(build_nt_call_list): New.
(simple_cst_equal) <CALL_EXPR>: Rewrite to use new accessors.
(iterative_hash_expr): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(get_callee_fndecl): Use new CALL_EXPR accessors.
(tree_operand_check_failed): Change parameters to pass entire node
instead of its code, so that we can call TREE_OPERAND_LENGTH on it.
(process_call_operands): New.
(build_vl_exp_stat): New.
(build_call_list): New.
(build_call_nary): New.
(build_call_valist): New.
(build_call_array): New.
(walk_tree): Use TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(call_expr_arglist): New.
* tree.def (CALL_EXPR): Change representation of CALL_EXPRs to use
tcc_vl_exp instead of a fixed-size tcc_expression.
* doc/c-tree.texi (CALL_EXPR): Document new representation and
accessors for CALL_EXPRs.
(AGGR_INIT_EXPR): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* builtins.c (c_strlen): Return NULL_TREE instead of 0.
(expand_builtin_nonlocal_goto): Change parameter to be entire
CALL_EXPR instead of an arglist. Use new CALL_EXPR accessors.
(expand_builtin_prefetch): Likewise.
(expand_builtin_classify_type): Likewise.
(mathfn_built_in): Return NULL_TREE instead of 0.
(expand_errno_check): Use new CALL_EXPR accessors.
(expand_builtin_mathfn): Use new CALL_EXPR accessors and constructors.
Return NULL_RTX instead of 0.
(expand_builtin_mathfn_2): Likewise.
(expand_builtin_mathfn_3): Likewise.
(expand_builtin_interclass_mathfn): Likewise.
(expand_builtin_sincos): Likewise.
(expand_builtin_cexpi): Likewise.
(expand_builtin_int_roundingfn): Likewise.
(expand_builtin_int_roundingfn_2): Likewise.
(expand_builtin_pow): Likewise.
(expand_builtin_powi): Likewise.
(expand_builtin_strlen): Pass entire CALL_EXPR as parameter instead
of arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_RTX instead of 0.
(expand_builtin_strstr): Likewise.
(expand_builtin_strchr): Likewise.
(expand_builtin_strrchr): Likewise.
(expand_builtin_strpbrk): Likewise.
(expand_builtin_memcpy): Likewise.
(expand_builtin_mempcpy): Likewise.
(expand_builtin_mempcpy_args): New.
(expand_builtin_memmove): Similarly to expand_builtin_mempcpy.
(expand_builtin_memmove_args): New.
(expand_builtin_bcopy): Similarly to expand_builtin_mempcpy.
(expand_movstr): Likewise.
(expand_builtin_strcpy): Likewise.
(expand_builtin_strcpy_args): New.
(expand_builtin_stpcpy): Similarly to expand_builtin_strcpy.
(expand_builtin_strncpy): Likewise.
(expand_builtin_memset): Likewise.
(expand_builtin_memset_args): New.
(expand_builtin_bzero): Similarly to expand_builtin_memset.
(expand_builtin_memcmp): Likewise.
(expand_builtin_strcmp): Likewise.
(expand_builtin_strncmp): Likewise.
(expand_builtin_strcat): Likewise.
(expand_builtin_strncat): Likewise.
(expand_builtin_strspn): Likewise.
(expand_builtin_strcspn): Likewise.
(expand_builtin_args_info): Likewise.
(expand_builtin_va_start): Likewise.
(gimplify_va_arg_expr): Likewise.
(expand_builtin_va_end): Likewise.
(expand_builtin_va_copy): Likewise.
(expand_builtin_frame_address): Likewise.
(expand_builtin_alloca): Likewise.
(expand_builtin_bswap): Likewise.
(expand_builtin_unop): Likewise.
(expand_builtin_fputs): Likewise.
(expand_builtin_expect): Likewise.
(expand_builtin_fabs): Likewise.
(expand_builtin_copysign): Likewise.
(expand_builtin_printf): Likewise.
(expand_builtin_fprintf): Likewise.
(expand_builtin_sprintf): Likewise.
(expand_builtin_init_trampoline): Likewise.
(expand_builtin_signbit): Likewise.
(expand_builtin_fork_or_exec): Likewise.
(expand_builtin_sync_operation): Likewise.
(expand_builtin_compare_and_swap): Likewise.
(expand_builtin_lock_test_and_set): Likewise.
(expand_builtin_lock_release): Likewise.
(expand_builtin): Likewise.
(builtin_mathfn_code): Likewise.
(fold_builtin_constant_p): Pass call arguments individually instead
of as an arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_TREE instead of 0.
(fold_builtin_expect): Likewise.
(fold_builtin_classify_type): Likewise.
(fold_builtin_strlen): Likewise.
(fold_builtin_nan): Likewise.
(integer_valued_real_p): Likewise.
(fold_trunc_transparent_mathfn): Likewise.
(fold_fixed_mathfn): Likewise.
(fold_builtin_cabs): Likewise.
(fold_builtin_sqrt): Likewise.
(fold_builtin_cbrt): Likewise.
(fold_builtin_cos): Likewise.
(fold_builtin_cosh): Likewise.
(fold_builtin_tan): Likewise.
(fold_builtin_sincos): Likewise.
(fold_builtin_cexp): Likewise.
(fold_builtin_trunc): Likewise.
(fold_builtin_floor): Likewise.
(fold_builtin_ceil): Likewise.
(fold_builtin_round): Likewise.
(fold_builtin_int_roundingfn): Likewise.
(fold_builtin_bitop): Likewise.
(fold_builtin_bswap): Likewise.
(fold_builtin_logarithm): Likewise.
(fold_builtin_hypot): Likewise.
(fold_builtin_pow): Likewise.
(fold_builtin_powi): Likewise.
(fold_builtin_exponent): Likewise.
(fold_builtin_memset): Likewise.
(fold_builtin_bzero): Likewise.
(fold_builtin_memory_op): Likewise.
(fold_builtin_bcopy): Deleted; call site changed to invoke
fold_builtin_memory_op directly.
(fold_builtin_strcpy): Similarly as for fold_builtin_memory_op.
(fold_builtin_strncpy): Likewise.
(fold_builtin_memcmp): Likewise.
(fold_builtin_strcmp): Likewise.
(fold_builtin_strncmp): Likewise.
(fold_builtin_signbit): Likewise.
(fold_builtin_copysign): Likewise.
(fold_builtin_isascii): Likewise.
(fold_builtin_toascii): Likewise.
(fold_builtin_isdigit): Likewise.
(fold_builtin_fabs): Likewise.
(fold_builtin_abs): Likewise.
(fold_builtin_fmin_fmax): Likewise.
(fold_builtin_carg): Likewise.
(fold_builtin_classify): Likewise.
(fold_builtin_unordered_cmp): Likewise.
(fold_builtin_0, fold_builtin_2, fold_builtin_3, fold_builtin_4):
New functions split out from fold_builtin_1.
(fold_builtin_n): New.
(fold_builtin_varargs): New.
(fold_builtin): Deleted. Most callers changed to use fold_call_expr
instead.
(fold_call_expr): New.
(build_function_call_expr): Rewrite to use new helper function.
(fold_builtin_call_list): New.
(build_call_expr): New.
(fold_builtin_call_valist): New.
(rewrite_call_expr): New.
(validate_arg): New.
(validate_arglist): Change parameter to be entire CALL_EXPR instead
of an arglist. Change return type to bool. Use new CALL_EXPR
accessors.
(fold_builtin_strstr): Pass call arguments individually instead
of as an arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_TREE instead of 0.
(fold_builtin_strchr): Likewise.
(fold_builtin_strrchr): Likewise.
(fold_builtin_strpbrk): Likewise.
(fold_builtin_strcat): Likewise.
(fold_builtin_strncat): Likewise.
(fold_builtin_strspn): Likewise.
(fold_builtin_strcspn): Likewise.
(fold_builtin_fputs): Likewise.
(fold_builtin_next_arg): Likewise.
(fold_builtin_sprintf): Likewise.
(expand_builtin_object_size): Use new CALL_EXPR accessors. Use
NULL_RTX instead of 0.
(expand_builtin_memory_chk): Likewise.
(maybe_emit_chk_warning): Likewise.
(maybe_emit_sprintf_chk_warning): Likewise.
(fold_builtin_object_size): Pass call arguments individually instead
of as an arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_TREE instead of 0.
(fold_builtin_memory_chk): Likewise.
(fold_builtin_stxcpy_chk): Likewise.
(fold_builtin_strncpy_chk): Likewise.
(fold_builtin_strcat_chk): Likewise.
(fold_builtin_strcat_chk): Likewise.
(fold_builtin_strncat_chk): Likewise.
(fold_builtin_sprintf_chk): Likewise.
(fold_builtin_snprintf_chk): Likewise.
(fold_builtin_printf): Likewise.
(fold_builtin_vprintf): Likewise.
* fold-const.c (negate_expr_p): Use new CALL_EXPR accessors and
constructors.
(operand_equal_p): Add separate tcc_vl_exp/CALL_EXPR case.
(make_range): Use TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(extract_muldiv_1): Add VL_EXP_CLASS_P case.
(fold_mathfn_compare): Use new CALL_EXPR accessors and constructors.
(fold_unary): Likewise.
(fold_binary): Likewise.
(fold_ternary): Remove CALL_EXPR case, since they are no longer
ternary expressions.
(fold): Add logic for tcc_vl_exp.
(fold_checksum_tree): Make it know about tcc_vl_exp. Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(fold_build3_stat): Add assertion to flag broken interface for
constructing CALL_EXPRs.
(fold_build_call_list): New.
(fold_build_call_list_initializer): New.
(tree_expr_nonnegative_p): Use new CALL_EXPR accessors and
constructors.
(fold_strip_sign_ops): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* tree-dump.c (dequeue_and_dump) <CALL_EXPR>: Use new CALL_EXPR
accessors and dump arguments explicitly.
* tree-pretty-print.c (do_niy): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(dump_generic_node): Use new CALL_EXPR accessors and walk arguments
explicitly.
(print_call_name): Use new CALL_EXPR accessors.
* print-tree.c (print_node): Add case tcc_vl_exp. Print
CALL_EXPR arguments explicitly instead of as a list. Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
* tree-vrp.c (stmt_interesting_for_vrp): Use new CALL_EXPR accessors.
(vrp_visit_stmt): Likewise.
* tree-ssa-loop-im.c (outermost_invariant_loop_expr): Make it
know about tcc_vl_exp. Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(force_move_till_expr): Likewise.
* targhooks.c (default_external_stack_protect_fail): Use
build_call_expr instead of build_function_call_expr.
(default_hidden_stack_protect_fail): Likewise.
* tree-complex.c (expand_complex_libcall): Use build_call_expr to
build the call.
* cgraphbuild.c (build_cgraph_edges): Use new CALL_EXPR accessors
and walk arguments explicitly.
* tree-ssa-loop-niter.c (simplify_replace_tree): Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(expand_simple_operations): Likewise.
(infer_loop_bounds_from_array): Use new CALL_EXPR accessors.
* gengtype.c (adjust_field_tree_exp): Use TREE_OPERAND_LENGTH instead
of TREE_CODE_LENGTH.
(walk_type): Tweak walking of arrays not to blow up on CALL_EXPRs.
* optabs.c (expand_widen_pattern-expr): Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
* value_prof.c (tree_ic): Use new CALL_EXPR accessors.
(tree_ic_transform): Likewise.
(interesting_stringop_to_profile_p): Pass entire CALL_EXPR as
parameter instead of arglist. Fix callers.
(tree_stringop_fixed_value): Use new CALL_EXPR accessors.
(tree_stringops_transform): Likewise.
(tree_indirect_call_to_profile): Likewise.
(tree_stringops_values_to_profile): Likewise.
* tree-tailcall.c (find_tail_calls): Use new CALL_EXPR iterator.
(eliminate_tail_call): Likewise.
* ipa-cp.c (ipcp_update_callgraph): Use new CALL_EXPR accessors.
* tree-scalar-evolution.c (chrec_contains_symbols_defined_in_loop):
Use TREE_OPERAND_LENGTH and generalize to handle any number of
operands.
(instantiate_parameters_1): Can't handle tcc_vl_exp here.
* omp-low.c (build_omp_barrier): Use build_call_expr.
(lower_rec_input_clauses): Likewise.
(lower_reduction_clauses): Likewise.
(expand_parallel_call): Likewise.
(maybe_catch_exception): Likewise.
(expand_omp_for_generic): Likewise.
(expand_omp_for_static_nochunk): Likewise.
(expand_omp_sections): Likewise.
(lower_omp_single_simple): Likewise.
(lower_omp_single_copy): Likewise.
(lower_omp_master): Likewise.
(lower_omp_ordered): Likewise.
(lower_omp_critical): Likewise.
* ipa-reference.c (check-call): Use new CALL_EXPR iterator.
(scan_for_static_refs): Create tcc_vl_exp case for CALL_EXPR.
* tree-gimple.c (is_gimple_call_addr): Fix doc.
(recalculate_side_effects): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH. Add tcc_vl_exp case.
* tree-chrec.c (chrec_contains_symbols): Use TREE_OPERAND_LENGTH
and generalize to handle any number of operands.
(chrec_contains_undetermined): Likewise.
(tree_contains_chrecs): Likewise.
(evolution_function_is_invariant_rec_p): Use TREE_OPERAND_LENGTH.
* cgraphunit.c (update_call_expr): Use new CALL_EXPR accessors.
* tree-ssa-ccp.c (ccp_fold): Use new CALL_EXPR accessors. Use
fold_call_expr instead of fold_builtin.
(ccp_fold_builtin): Likewise. Update calls into builtins.c to
match declarations there.
(fold_stmt): Use new CALL_EXPR constructor and accessors. Doc
updates.
* tree-ssa-loop-ivopts.c (expr_invariant_in_loop_p): Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
* ipa-pure-const.c (check_call): Use new CALL_EXPR accessors.
(scan_function): Add case tcc_vl_exp for CALL_EXPR.
* tree-stdarg.c (execute_optimize_stdarg): Use new CALL_EXPR
accessors.
* tree-ssa-math-opts.c (execute_cse_sincos_1): Use build_call_expr.
(execute_cse_sincos): Use new CALL_EXPR accessors.
* tree-ssa-alias.c (find_used_portions): Use new CALL_EXPR iterator.
* gimple-low.c (lower_function_body): Use build_call_expr.
(lower_builtin_setjmp): Likewise.
* expr.c (emit_block_move_via_libcall): Use build_call_expr.
(set_storage_via_libcall): Likewise.
(safe_from_p): Add tcc_vl_exp case. Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
(expand_expr_real_1): Use new CALL_EXPR accessors.
* tree-browser.c (store_child_info): Use TREE_OPERAND_LENGTH and
generalize to handle any number of operands.
(TB_parent_eq): Likewise.
* predict.c (expr_expected_value): Use new CALL_EXPR accessors.
(strip_builtin_expect): Likewise.
* function.c (gimplify_parameters): Use build_call_expr.
* tree-vectorizer.c (vect_is_simple_reduction): Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
* ipa-type-escape.c (check_call): Use new CALL_EXPR iterators.
(scan_for_refs): Add case tcc_vl_exp for CALL_EXPR.
* tree-data-ref.c (get_references_in_stmt): Use new CALL_EXPR
iterators.
* gimplify.c (build_stack_save_restore): Use build_call_expr.
(gimplify_decl_expr): Likewise.
(gimplify_call_expr): Use fold_call_expr instead of fold_builtin.
Use new CALL_EXPR iterators.
(gimplify_modify_expr_to_memcpy): Use build_call_expr.
(gimplify_modify_expr_to_memset): Likewise.
(gimplify_variable_sized_compare): Likewise.
(gimplify_omp_atomic_fetch_op): Likewise.
(gimplify_omp_atomic_pipeline): Likewise.
(gimplify_omp_atomic_mutex): Likewise.
(gimplify_function_tree): Likewise.
* calls.c (alloca_call_p): Use new CALL_EXPR accessors.
(call_expr_flags): Likewise.
(expand_call): Likewise.
* except.c (expand_builtin_eh_return_data_regno): Pass entire
CALL_EXPR as parameter instead of arglist. Use new CALL_EXPR
accessors.
* coverage.c (create_coverage): Use build_call_expr.
* tree-ssa-pre.c (expression_node_pool, list_node_pool): Delete.
(temp_call_expr_obstack): New.
(pool_copy_list): Delete.
(temp_copy_call_expr): New.
(phi_translate): Add case tcc_vl_exp for CALL_EXPR. Use new
CALL_EXPR accessors. Get rid of special goo for copying argument
lists and use temp_copy_call_expr instead.
(valid_in_sets): Add case tcc_vl_exp for CALL_EXPR. Use new
CALL_EXPR accessors.
(create_expression_by_pieces): Likewise. Use build_call_array
to construct the result instead of fold_build3.
(create_value_expr_from): Add tcc_vl_exp. Delete special goo for
dealing with argument lists.
(init_pre): Remove references to expression_node_pool and
list_node_pool. Init temp_call_expr_obstack instead.
(fini_pre): Remove references to expression_node_pool and
list_node_pool.
* tree-sra.c (sra_walk_call_expr): Use new CALL_EXPR accessors
and walk arguments explicitly instead of as a list.
* tree-mudflap.c (mf_build_check_statement_for): Use build_call_expr.
(mx_register_decls): Likewise.
(mudflap_register_call): Likewise.
(mudflap_finish_file): Likewise.
* ipa-prop.c (ipa_callsite_compute_count): Use new CALL_EXPR accessors.
(ipa_callsite_compute_param): Likewise.
* tree-vect-patterns.c (vect_recog_pow_pattern): Use new CALL_EXPR
accessors and constructor.
* tree-nested.c (convert_nl_goto_reference): Use new CALL_EXPR
accessors and constructor.
(convert_tramp_reference): Likewise.
(convert_call_expr): Likewise.
(finalize_nesting_tree_1): Likewise.
* tree-ssa.c (tree_ssa_useless_type_conversion): Use new CALL_EXPR
accessors.
* tree-ssa-loop-prefetch.c (issue_prefetch_ref): Use build_call_expr.
* tree-inline.c (initialize_inlined_parameters): Pass entire
CALL_EXPR as parameter instead of arglist. Use new CALL_EXPR
accessors.
(estimate_num_insns_1): Use new CALL_EXPR accessors.
(expand_call_inline): Tidy up call to initialize_inlined_parameters.
* tree-vect-transform.c (vect_create_epilog_for_reduction): Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(vectorizable_reduction): Likewise.
(vectorizable_call): Use new CALL_EXPR iterators.
(vectorizable_conversion): Use build_call_expr.
(vectorizable_operation): Use TREE_OPERAND_LENGTH.
(vect_gen_widened_results_half): Use build_call_expr.
(vect_setup_realignment): Likewise.
(vectorizable_live_operation): Use TREE_OPERAND_LENGTH.
* tree-object-size.c (alloc_object_size): Use new CALL_EXPR accessors.
(pass_through_call): Likewise.
(compute_object_sizes): Likewise. Use fold_call_expr instead of
fold_builtin.
* tree-profile.c (tree_gen_interval_profiler): Use build_call_expr.
(tree_gen_pow2_profiler): Likewise.
(tree_gen_one_value_profiler): Likewise.
(tree_gen_ic_func_profiler): Likewise.
(tree_gen_average_profiler): Likewise.
(tree_gen_ior_profiler): Likewise.
* tree-ssa-structalias.c (get_constraint_for): Add case tcc_vl_exp.
(find_func_aliases): Use new CALL_EXPR accessors. Add case
tcc_vl_exp. Use TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
* tree-ssa-reassoc.c (get_rank): Use TREE_OPERAND_LENGTH instead
of TREE_CODE_LENGTH.
* stmt.c (warn_if_unused_value): Use TREE_OPERAND_LENGTH instead
of TREE_CODE_LENGTH.
* convert.c (convert_to_real): Use new CALL_EXPR accessors and
constructor.
(convert_to_integer): Likewise.
* tree-ssa-operands.c (get_call_expr_operands): Use new CALL_EXPR
accessors.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* config/alpha/alpha.c (alpha_expand_builtin): Use new CALL_EXPR
accessors.
* config/frv/frv.c (frv_expand_builtin): Likewise.
* config/s390/s390.c (s390_expand_builtin): Likewise.
* config/sparc/sparc.c (sparc_gimplify_va_arg): Use build_call_expr.
(sparc_expand_builtin): Use new CALL_EXPR accessors.
* config/i386/i386.c (ix86_function_ok_for_sibcall): Likewise.
(ix86_expand_binop_builtin): Pass entire CALL_EXPR as parameter
instead of arglist. Use new CALL_EXPR accessors on it. Fix callers.
(ix86_expand_store_builtin): Likewise.
(ix86_expand_unop_builtin): Likewise.
(ix86_expand_unop1_builtin): Likewise.
(ix86_expand_sse_compare): Likewise.
(ix86_expand_sse_comi): Likewise.
(ix86_expand_vec_init_builtin): Likewise.
(ix86_expand_vec_ext_builtin): Likewise.
(ix86_expand_vec_set_builtin): Likewise.
(ix86_expand_builtin): Use new CALL_EXPR accessors.
* config/sh/sh.c (sh_expand_builtin): Use new CALL_EXPR accessors.
* config/c4x/c4x.c (c4x_expand_builtin): Likewise.
* config/iq2000/iq2000.c (expand_one_builtin): Pass entire CALL_EXPR
instead of arglist. Use new CALL_EXPR accessors. Fix callers.
(iq2000_expand_builtin): Use new CALL_EXPR accessors.
* config/rs6000/rs6000-c.c (altivec_build_resolved_builtin): Use
build_call_expr.
* config/rs6000/rs6000.c (rs6000_gimplify_va_arg): Likewise.
(rs6000_expand_unop_builtin): Pass entire CALL_EXPR instead of
arglist. Use new CALL_EXPR accessors. Fix callers.
(altivec_expand_abs_builtin): Likewise.
(rs6000_expand_binop_builtin): Likewise.
(altivec_expand_predicate_builtin): Likewise.
(altivec_expand_lv_builtin): Likewise.
(spe_expand_stv_builtin): Likewise.
(altivec_expand_stv_builtin): Likewise.
(rs6000_expand_ternop_builtin): Likewise.
(altivec_expand_ld_builtin): Use new CALL_EXPR accessors.
(altivec_expand_st_builtin): Likewise.
(altivec_expand_dst_builtin): Likewise.
(altivec_expand_vec_init_builtin): Pass entire CALL_EXPR instead of
arglist. Use new CALL_EXPR accessors. Fix callers.
(altivec_expand_vec_set_builtin): Likewise.
(altivec_expand_vec_ext_builtin): Likewise.
(altivec_expand_builtin): Use new CALL_EXPR accessors.
(spe_expand_builtin): Likewise.
(spe_expand_predicate_builtin): Pass entire CALL_EXPR instead of
arglist. Use new CALL_EXPR accessors. Fix callers.
(spe_expand_evsel_builtin): Likewise.
(rs6000_expand_builtin): Use new CALL_EXPR accessors. VCFUX and
FCFSX cases must construct whole new CALL_EXPR, not just arglist.
* config/arm/arm.c (arm_expand_binop_builtin): Pass entire CALL_EXPR
instead of arglist. Use new CALL_EXPR accessors. Fix callers.
(arm_expand_unop_builtin): Likewise.
(arm_expand_builtin): Use new CALL_EXPR accessors.
* config/mips/mips.c (mips_expand_builtin): Use new CALL_EXPR
accessors.
* config/bfin/bfin.c (bfin_expand_binop_builtin): Pass entire CALL_EXPR
instead of arglist. Use new CALL_EXPR accessors. Fix callers.
(bfin_expand_unop_builtin): Likewise.
(bfin_expand_builtin): Use new CALL_EXPR accessors.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* c-semantics.c (build_stmt): Add internal diagnostic check.
* c-pretty-print.c (pp_c_postfix_expression): Use new CALL_EXPR
accessors. Print arguments explicitly instead of as a list.
* c-typeck.c (build_function_call): Use new CALL_EXPR constructors.
* c-omp.c (c_finish_omp_barrier): Use build_call_expr.
(c_finish_omp_flish): Likewise.
* c-common.c (verify_tree): Use new CALL_EXPR accessors. Traverse
arguments explicitly instead of as a list. Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
(check_function_arguments_recurse): Use new CALL_EXPR accessors.
(c_warn_unused_result): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* cp-tree.def (AGGR_INIT_EXPR): Adjust documentation.
Change class to tcc_vl_exp.
* call.c (build_call): Use build_call_list instead
of build3.
(build_over_call): Likewise.
(build_new_method_call): Use build_min_non_dep_call_list
instead of build_min_non_dep.
* error.c (dump_call_expr_args): New function.
(dump_aggr_init_expr_args): New function.
(dump_expr) <AGGR_INIT_EXPR, CALL_EXPR, INDIRECT_REF>: Use them.
Update to use new CALL_EXPR and AGGR_INIT_EXPR accessor macros.
* cvt.c (convert_to_void): Use build_call_array instead
of build3; use new AGGR_INIT_EXPR accessor macros.
* mangle.c (write_expression): Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
* dump.c (cp_dump_tree) <AGGR_INIT_EXPR>: Update to use new
AGGR_INIT_EXPR accessor macros.
* cp-gimplify.c (cp_gimplify_init_expr): Use
AGGR_INIT_EXPR_SLOT to set the slot operand.
* cp-tree.h (AGGR_INIT_EXPR_FN): New macro.
(AGGR_INIT_EXPR_SLOT): New macro.
(AGGR_INIT_EXPR_ARG): New macro.
(aggr_init_expr_nargs): New macro.
(AGGR_INIT_EXPR_ARGP): New macro.
(aggr_init_expr_arg_iterator): New.
(init_aggr_init_expr_arg_iterator): New.
(next_aggr_init_expr_arg): New.
(first_aggr_init_expr_arg): New.
(more_aggr_init_expr_args_p): New.
(FOR_EACH_AGGR_INIT_EXPR_ARG): New.
(stabilize_aggr_init): New declaration.
(build_min_non_dep_call_list): Likewise.
* tree.c (process_aggr_init_operands): New function.
(build_aggr_init_array) New function.
(build_cplus_new): Update to use new CALL_EXPR and
AGGR_INIT_EXPR accessor macros. Replace use of build3 with
build_aggr_init_array.
(build_min_non_dep_call_list) New function.
(build_min_nt): Assert input code parameter is not a variable
length expression class.
(build_min, build_min_non_dep): Likewise.
(cp_tree_equal) <CALL_EXPR>: Iterate through the arguments
to check for equality instead of recursing. Handle tcc_vl_exp
tree code classes.
(stabilize_call): Update to only handle CALL_EXPRs, not
AGGR_INIT_EXPRs; use new CALL_EXPR accessor macros.
(stabilize_aggr_init): New function.
(stabilize_init): Use it.
* cxx-pretty-print.c (pp_cxx_postfix_expression)
<AGGR_INIT_EXPR, CALL_EXPR>: Update to use new CALL_EXPR and
AGGR_INIT_EXPR accessor macros and argument iterators.
* pt.c (tsubst_copy) <CALL_EXPR>: Replace build_nt with
build_vl_exp. Iterate through the operands, recursively
processing each one.
(tsubst_copy_and_build) <CALL_EXPR>: Update to use new
CALL_EXPR accessor macros.
(value_dependent_expression_p) <default>: Handle tcc_vl_exp
tree code classes. Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
* semantics.c (finish_call_expr): Use build_nt_call_list
instead of build_nt.
(simplify_aggr_init_expr): Update to use new AGGR_INIT_EXPR
accessor macros. Use build_call_array to construct the
CALL_EXPR node instead of build3
* decl2.c (build_offset_ref_call_from_tree): Use
build_nt_call_list and build_min_non_dep_call_list instead
of build_min_nt and build_min_non_dep.
* parser.c (cp_parser_postfix_expression) <CPP_OPEN_PAREN>:
Use build_nt_call_list instead of build_min_nt.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* java-tree.h (BUILD_MONITOR_ENTER): Use build_call_nary instead
of build3.
(BUILD_MONITOR_EXIT): Likewise.
* java-gimplify.c (java_gimplify_component_ref): Use build_call_expr.
(java_gimplify_modify_expr): Likewise.
* class.c (cache_this_class_ref): Use build_call_expr.
(build_static_field_ref): Likewise.
(emit_indirect_register_classes): Likewise.
(emit_register_classes): Likewise.
* resource.c (write_resource_constructor): Use build_call_expr.
* builtins.c (builtin_creator_function): Change interpretation of
the second parameter to be the whole CALL_EXPR instead of the arglist.
(max_builtin): Tweak parameter list. Use new CALL_EXPR accessors.
(min_builtin): Likewise.
(abs_builtin): Likewise.
(java_build_function_call_expr): Likewise.
(convert_real): Likewise.
(UNMARSHAL3): Likewise.
(UNMARSHAL4): Likewise.
(UNMARSHAL5): Likewise.
(build_arglist_for_builtin): Delete. Fix callers to use
build_call_expr instead.
(putObject_builtin): Tweak parameter list. Use new CALL_EXPR
accessors.
(compareAndSwapInt_builtin): Likewise.
(compareAndSwapLong_builtin): Likewise.
(compareAndSwapObject_builtin): Likewise.
(putVolatile_builtin): Likewise.
(getVolatile_builtin): Likewise.
(VMSupportsCS8_builtin): Likewise.
(check_for_builtin): Pass entire CALL_EXPR to builtin expander
instead of arglist.
* expr.c (build_java_athrow): Use build_call_nary instead of build3.
(build_java_throw_out_of_bounds_exception): Likewise.
(java_check_reference): Likewise.
(build_java_arraystore_check): Likewise.
(build_newarray): Likewise.
(build_anewarray): Likewise.
(expand_java_multinewarray): Use build_call_list instead of build3.
(build_java_monitor): Use build_call_nary instead of build3.
(java_create_object): Likewise.
(expand_java_NEW): Likewise.
(build_instanceof): Likewise.
(expand_java_CHECKCAST): Likewise.
(build_java_soft_divmod): Likewise.
(build_java_binop): Likewise.
(build_field_ref): Likewise.
(build_class_init): Likewise.
(rewrite_arglist_getcaller): Use build_call_expr.
(build_invokeinterface): Use build_call_nary instead of build3.
(expand_invoke): Use build_call_list instead of build3.
(build_jni_stub): Use build_call_nary, build_call_list, or
build_call_expr instead of build3.
(expand_java_field_op): Use build_call_expr instead of build3.
(force_evaluation_order): Use new CALL_EXPR accessors.
* lang.c (java_get_callee_fndecl): Use new CALL_EXPR accessors.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* objc-act.c (receiver_is_class_object): Use new CALL_EXPR accessors.
(objc_get_callee_fndecl): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* trans-expr.c (gfc_conv_power_op): Use build_call_expr.
(gfc_conv_string_tmp): Likewise.
(gfc_conv_concat_op): Likewise.
(gfc_build_compare_string): Likewise.
(gfc_conv_function_call): Use build_call_list instead of build3.
* trans-array.c (gfc_trans_allocate_array_storage): Use
build_call_expr.
(gfc_grow_array): Likewise.
(gfc_trans_array_ctor_element): Likewise.
(gfc_trans_array_constructor_value): Likewise.
(gfc_array_allocate): Likewise.
(gfc_array_deallocate): Likewise.
(gfc_trans_auto_array_allocation): Likewise.
(gfc_trans_dummy_array_bias): Likewise.
(gfc_conv_array_parameter): Likewise.
(gfc_trans_dealloc_allocated): Likewise.
(gfc_duplicate_allocatable): Likewise.
* trans-openmp.c (gfc_trans_omp_barrier): Use build_call_expr.
(gfc_trans_omp_flush): Likewise.
* trans-stmt.c (gfc_conv_elementel_dependencies): Use build_call_expr.
(gfc_trans_pause): Likewise.
(gfc_trans_stop): Likewise.
(gfc_trans_character_select): Likewise.
(gfc_do_allocate): Likewise.
(gfc_trans_assign_need_temp): Likewise.
(gfc_trans_pointer_assign_need_temp): Likewise.
(gfc_trans_forall_1): Likewise.
(gfc_trans_where_2): Likewise.
(gfc_trans_allocate): Likewise.
(gfc_trans_deallocate): Likewise.
* trans.c (gfc_trans_runtime_check): Use build_call_expr.
* trans-io.c (gfc_trans_open): Use build_call_expr.
(gfc_trans_close): Likewise.
(build_filepos): Likewise.
(gfc_trans_inquire): Likewise.
(NML_FIRST_ARG): Delete.
(NML_ADD_ARG): Delete.
(transfer_namelist_element): Use build_call_expr.
(build_dt): Likewise.
(gfc_trans_dt_end): Likewise.
(transfer_expr): Likewise.
(transfer_array-desc): Likewise.
* trans-decl.c (gfc_generate_function_code): Use build_call_expr.
(gfc_generate_constructors): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_ctime): Use build_call_expr.
(gfc_conv_intrinsic_fdate): Likewise.
(gfc_conv_intrinsic_ttynam): Likewise.
(gfc_conv_intrinsic_array_transfer): Likewise.
(gfc_conv_associated): Likewise.
(gfc_conv_intrinsic_si_kind): Likewise.
(gfc_conv_intrinsic_trim): Likewise.
(gfc_conv_intrinsic_repeat: Likewise.
(gfc_conv_intrinsic_iargc): Likewise.
Co-Authored-By: Brooks Moses <brooks.moses@codesourcery.com>
Co-Authored-By: Lee Millward <lee.millward@codesourcery.com>
From-SVN: r122018
2007-02-16 00:50:49 +01:00
|
|
|
|
"TREE_OPERAND_LENGTH ((tree) &%0)");
|
2006-01-23 08:50:42 +01:00
|
|
|
|
flds->opt = create_option (flds->opt, "default", "");
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2006-01-23 08:50:42 +01:00
|
|
|
|
return new_structure ("tree_exp_subunion", 1, &lexer_line, flds, nodot);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Perform any special processing on a type T, about to become the type
|
|
|
|
|
of a field. Return the appropriate type for the field.
|
|
|
|
|
At present:
|
|
|
|
|
- Converts pointer-to-char, with no length parameter, to TYPE_STRING;
|
|
|
|
|
- Similarly for arrays of pointer-to-char;
|
|
|
|
|
- Converts structures for which a parameter is provided to
|
2002-09-16 20:33:23 +02:00
|
|
|
|
TYPE_PARAM_STRUCT;
|
|
|
|
|
- Handles "special" options.
|
2003-06-01 17:59:10 +02:00
|
|
|
|
*/
|
2002-06-07 04:15:39 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
type_p
|
2003-06-01 17:59:10 +02:00
|
|
|
|
adjust_field_type (type_p t, options_p opt)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
int length_p = 0;
|
|
|
|
|
const int pointer_p = t->kind == TYPE_POINTER;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
type_p params[NUM_PARAM];
|
|
|
|
|
int params_p = 0;
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < NUM_PARAM; i++)
|
|
|
|
|
params[i] = NULL;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (; opt; opt = opt->next)
|
|
|
|
|
if (strcmp (opt->name, "length") == 0)
|
|
|
|
|
length_p = 1;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (strcmp (opt->name, "param_is") == 0
|
|
|
|
|
|| (strncmp (opt->name, "param", 5) == 0
|
|
|
|
|
&& ISDIGIT (opt->name[5])
|
|
|
|
|
&& strcmp (opt->name + 6, "_is") == 0))
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2002-09-16 20:33:23 +02:00
|
|
|
|
int num = ISDIGIT (opt->name[5]) ? opt->name[5] - '0' : 0;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
if (! UNION_OR_STRUCT_P (t)
|
|
|
|
|
&& (t->kind != TYPE_POINTER || ! UNION_OR_STRUCT_P (t->u.p)))
|
|
|
|
|
{
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (&lexer_line,
|
2002-09-16 20:33:23 +02:00
|
|
|
|
"option `%s' may only be applied to structures or structure pointers",
|
|
|
|
|
opt->name);
|
|
|
|
|
return t;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
params_p = 1;
|
|
|
|
|
if (params[num] != NULL)
|
|
|
|
|
error_at_line (&lexer_line, "duplicate `%s' option", opt->name);
|
|
|
|
|
if (! ISDIGIT (opt->name[5]))
|
|
|
|
|
params[num] = create_pointer ((type_p) opt->info);
|
|
|
|
|
else
|
|
|
|
|
params[num] = (type_p) opt->info;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (strcmp (opt->name, "special") == 0)
|
|
|
|
|
{
|
2004-08-02 14:48:49 +02:00
|
|
|
|
const char *special_name = opt->info;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
if (strcmp (special_name, "tree_exp") == 0)
|
|
|
|
|
t = adjust_field_tree_exp (t, opt);
|
|
|
|
|
else if (strcmp (special_name, "rtx_def") == 0)
|
|
|
|
|
t = adjust_field_rtx_def (t, opt);
|
|
|
|
|
else
|
|
|
|
|
error_at_line (&lexer_line, "unknown special `%s'", special_name);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (params_p)
|
|
|
|
|
{
|
|
|
|
|
type_p realt;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
if (pointer_p)
|
|
|
|
|
t = t->u.p;
|
|
|
|
|
realt = find_param_structure (t, params);
|
|
|
|
|
t = pointer_p ? create_pointer (realt) : realt;
|
|
|
|
|
}
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
if (! length_p
|
|
|
|
|
&& pointer_p
|
|
|
|
|
&& t->u.p->kind == TYPE_SCALAR
|
2007-03-26 22:55:10 +02:00
|
|
|
|
&& t->u.p->u.scalar_is_char)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
return &string_type;
|
|
|
|
|
if (t->kind == TYPE_ARRAY && t->u.a.p->kind == TYPE_POINTER
|
|
|
|
|
&& t->u.a.p->u.p->kind == TYPE_SCALAR
|
2007-03-26 22:55:10 +02:00
|
|
|
|
&& t->u.a.p->u.p->u.scalar_is_char)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
return create_array (&string_type, t->u.a.len);
|
|
|
|
|
|
|
|
|
|
return t;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2003-06-01 17:59:10 +02:00
|
|
|
|
static void set_gc_used_type (type_p, enum gc_used_enum, type_p *);
|
|
|
|
|
static void set_gc_used (pair_p);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Handle OPT for set_gc_used_type. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
process_gc_options (options_p opt, enum gc_used_enum level, int *maybe_undef,
|
2006-11-21 01:16:45 +01:00
|
|
|
|
int *pass_param, int *length, int *skip, type_p *nested_ptr)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
options_p o;
|
|
|
|
|
for (o = opt; o; o = o->next)
|
|
|
|
|
if (strcmp (o->name, "ptr_alias") == 0 && level == GC_POINTED_TO)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
set_gc_used_type ((type_p) o->info, GC_POINTED_TO, NULL);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
else if (strcmp (o->name, "maybe_undef") == 0)
|
|
|
|
|
*maybe_undef = 1;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (strcmp (o->name, "use_params") == 0)
|
|
|
|
|
*pass_param = 1;
|
|
|
|
|
else if (strcmp (o->name, "length") == 0)
|
|
|
|
|
*length = 1;
|
2006-11-21 01:16:45 +01:00
|
|
|
|
else if (strcmp (o->name, "skip") == 0)
|
|
|
|
|
*skip = 1;
|
2004-06-09 22:10:13 +02:00
|
|
|
|
else if (strcmp (o->name, "nested_ptr") == 0)
|
|
|
|
|
*nested_ptr = ((const struct nested_ptr_data *) o->info)->type;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Set the gc_used field of T to LEVEL, and handle the types it references. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
set_gc_used_type (type_p t, enum gc_used_enum level, type_p param[NUM_PARAM])
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
if (t->gc_used >= level)
|
|
|
|
|
return;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
t->gc_used = level;
|
|
|
|
|
|
|
|
|
|
switch (t->kind)
|
|
|
|
|
{
|
|
|
|
|
case TYPE_STRUCT:
|
|
|
|
|
case TYPE_UNION:
|
|
|
|
|
{
|
|
|
|
|
pair_p f;
|
|
|
|
|
int dummy;
|
2004-06-09 22:10:13 +02:00
|
|
|
|
type_p dummy2;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2006-11-21 01:16:45 +01:00
|
|
|
|
process_gc_options (t->u.s.opt, level, &dummy, &dummy, &dummy, &dummy,
|
2004-06-09 22:10:13 +02:00
|
|
|
|
&dummy2);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
|
|
|
|
for (f = t->u.s.fields; f; f = f->next)
|
|
|
|
|
{
|
|
|
|
|
int maybe_undef = 0;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
int pass_param = 0;
|
|
|
|
|
int length = 0;
|
2006-11-21 01:16:45 +01:00
|
|
|
|
int skip = 0;
|
2004-06-09 22:10:13 +02:00
|
|
|
|
type_p nested_ptr = NULL;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
process_gc_options (f->opt, level, &maybe_undef, &pass_param,
|
2006-11-21 01:16:45 +01:00
|
|
|
|
&length, &skip, &nested_ptr);
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2004-06-09 22:10:13 +02:00
|
|
|
|
if (nested_ptr && f->type->kind == TYPE_POINTER)
|
|
|
|
|
set_gc_used_type (nested_ptr, GC_POINTED_TO,
|
|
|
|
|
pass_param ? param : NULL);
|
|
|
|
|
else if (length && f->type->kind == TYPE_POINTER)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
set_gc_used_type (f->type->u.p, GC_USED, NULL);
|
|
|
|
|
else if (maybe_undef && f->type->kind == TYPE_POINTER)
|
|
|
|
|
set_gc_used_type (f->type->u.p, GC_MAYBE_POINTED_TO, NULL);
|
|
|
|
|
else if (pass_param && f->type->kind == TYPE_POINTER && param)
|
|
|
|
|
set_gc_used_type (find_param_structure (f->type->u.p, param),
|
|
|
|
|
GC_POINTED_TO, NULL);
|
2006-11-21 01:16:45 +01:00
|
|
|
|
else if (skip)
|
|
|
|
|
; /* target type is not used through this field */
|
2002-06-04 09:11:05 +02:00
|
|
|
|
else
|
2002-09-16 20:33:23 +02:00
|
|
|
|
set_gc_used_type (f->type, GC_USED, pass_param ? param : NULL);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
case TYPE_POINTER:
|
2002-09-16 20:33:23 +02:00
|
|
|
|
set_gc_used_type (t->u.p, GC_POINTED_TO, NULL);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TYPE_ARRAY:
|
2002-09-16 20:33:23 +02:00
|
|
|
|
set_gc_used_type (t->u.a.p, GC_USED, param);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
break;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
case TYPE_LANG_STRUCT:
|
|
|
|
|
for (t = t->u.s.lang_struct; t; t = t->next)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
set_gc_used_type (t, level, param);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TYPE_PARAM_STRUCT:
|
2002-09-16 20:33:23 +02:00
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
for (i = 0; i < NUM_PARAM; i++)
|
|
|
|
|
if (t->u.param_struct.param[i] != 0)
|
|
|
|
|
set_gc_used_type (t->u.param_struct.param[i], GC_USED, NULL);
|
|
|
|
|
}
|
|
|
|
|
if (t->u.param_struct.stru->gc_used == GC_POINTED_TO)
|
|
|
|
|
level = GC_POINTED_TO;
|
|
|
|
|
else
|
|
|
|
|
level = GC_USED;
|
|
|
|
|
t->u.param_struct.stru->gc_used = GC_UNUSED;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
set_gc_used_type (t->u.param_struct.stru, level,
|
2002-09-16 20:33:23 +02:00
|
|
|
|
t->u.param_struct.param);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
/* Set the gc_used fields of all the types pointed to by VARIABLES. */
|
2002-06-07 04:15:39 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
set_gc_used (pair_p variables)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
pair_p p;
|
|
|
|
|
for (p = variables; p; p = p->next)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
set_gc_used_type (p->type, GC_USED, NULL);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* File mapping routines. For each input file, there is one output .c file
|
|
|
|
|
(but some output files have many input files), and there is one .h file
|
|
|
|
|
for the whole build. */
|
|
|
|
|
|
2007-03-26 23:04:59 +02:00
|
|
|
|
/* Output file handling. */
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
/* Create and return an outf_p for a new file for NAME, to be called
|
|
|
|
|
ONAME. */
|
2002-06-07 04:15:39 +02:00
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
static outf_p
|
2003-06-01 17:59:10 +02:00
|
|
|
|
create_file (const char *name, const char *oname)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
static const char *const hdr[] = {
|
2004-06-09 22:10:13 +02:00
|
|
|
|
" Copyright (C) 2004 Free Software Foundation, Inc.\n",
|
2002-06-04 09:11:05 +02:00
|
|
|
|
"\n",
|
|
|
|
|
"This file is part of GCC.\n",
|
|
|
|
|
"\n",
|
|
|
|
|
"GCC is free software; you can redistribute it and/or modify it under\n",
|
|
|
|
|
"the terms of the GNU General Public License as published by the Free\n",
|
|
|
|
|
"Software Foundation; either version 2, or (at your option) any later\n",
|
|
|
|
|
"version.\n",
|
|
|
|
|
"\n",
|
|
|
|
|
"GCC is distributed in the hope that it will be useful, but WITHOUT ANY\n",
|
|
|
|
|
"WARRANTY; without even the implied warranty of MERCHANTABILITY or\n",
|
|
|
|
|
"FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License\n",
|
|
|
|
|
"for more details.\n",
|
|
|
|
|
"\n",
|
|
|
|
|
"You should have received a copy of the GNU General Public License\n",
|
|
|
|
|
"along with GCC; see the file COPYING. If not, write to the Free\n",
|
2005-06-25 02:55:40 +02:00
|
|
|
|
"Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA\n",
|
|
|
|
|
"02110-1301, USA. */\n",
|
2002-06-04 09:11:05 +02:00
|
|
|
|
"\n",
|
|
|
|
|
"/* This file is machine generated. Do not edit. */\n"
|
|
|
|
|
};
|
2002-06-13 00:57:45 +02:00
|
|
|
|
outf_p f;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
size_t i;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2004-07-25 22:43:23 +02:00
|
|
|
|
f = XCNEW (struct outf);
|
2002-06-13 00:57:45 +02:00
|
|
|
|
f->next = output_files;
|
|
|
|
|
f->name = oname;
|
|
|
|
|
output_files = f;
|
|
|
|
|
|
|
|
|
|
oprintf (f, "/* Type information for %s.\n", name);
|
2002-06-20 19:38:23 +02:00
|
|
|
|
for (i = 0; i < ARRAY_SIZE (hdr); i++)
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, "%s", hdr[i]);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
return f;
|
|
|
|
|
}
|
|
|
|
|
|
2007-03-29 16:59:52 +02:00
|
|
|
|
/* Print, like fprintf, to O.
|
|
|
|
|
N.B. You might think this could be implemented more efficiently
|
|
|
|
|
with vsnprintf(). Unfortunately, there are C libraries that
|
|
|
|
|
provide that function but without the C99 semantics for its return
|
|
|
|
|
value, making it impossible to know how much space is required. */
|
2003-06-01 17:59:10 +02:00
|
|
|
|
void
|
builtins.c (validate_arglist): Eliminate libiberty VA_ macros, always use stdarg.
gcc:
* builtins.c (validate_arglist): Eliminate libiberty VA_ macros,
always use stdarg.
* c-errors.c (pedwarn_c99): Likewise.
* c-format.c (status_warning): Likewise.
* c-semantics.c (build_stmt): Likewise.
* calls.c (emit_library_call, emit_library_call_value): Likewise.
* collect2.c (notice, fatal_perror, fatal, error): Likewise.
* cpperror.c (cpp_error, cpp_error_with_line): Likewise.
* diagnostic.c (build_message_string, output_printf,
output_verbatim, verbatim, inform, warning, pedwarn, error, sorry,
fatal_error, internal_error, warning_with_decl, pedwarn_with_decl,
error_with_decl, fnotice): Likewise.
* dwarf2asm.c (dw2_asm_output_data, dw2_asm_output_delta,
dw2_asm_output_offset, dw2_asm_output_pcrel, dw2_asm_output_addr,
dw2_asm_output_addr_rtx, dw2_asm_output_nstring,
dw2_asm_output_data_uleb128, dw2_asm_output_data_sleb128,
dw2_asm_output_delta_uleb128, dw2_asm_output_delta_sleb128,
dw2_asm_output_encoded_addr_rtx): Likewise.
* emit-rtl.c (gen_rtx, gen_rtvec): Likewise.
* errors.c (warning, error, fatal, internal_error): Likewise.
* final.c (output_operand_lossage, asm_fprintf): Likewise.
* fix-header.c (fatal): Likewise.
* gcc.c (fatal, error, notice): Likewise.
* gcov.c (fnotice): Likewise.
* genattrtab.c (attr_rtx, attr_printf): Likewise.
* gengtype.c (error_at_line, xasprintf, oprintf): Likewise.
* gensupport.c (message_with_line): Likewise.
* mips-tfile.c (fatal, error): Likewise.
* protoize.c (notice): Likewise.
* ra-debug.c (ra_debug_msg): Likewise.
* read-rtl.c (fatal_with_file_and_line): Likewise.
* rtl-error.c (error_for_asm, warning_for_asm): Likewise.
* tree.c (build, build_nt, build_function_type_list): Likewise.
cp:
* error.c (cp_error_at, cp_warning_at, cp_pedwarn_at): Eliminate
libiberty VA_ macros, always use stdarg.
* rtti.c (create_pseudo_type_info): Likewise.
* tree.c (build_min_nt, build_min): Likewise.
From-SVN: r66919
2003-05-18 00:21:35 +02:00
|
|
|
|
oprintf (outf_p o, const char *format, ...)
|
2002-06-13 00:57:45 +02:00
|
|
|
|
{
|
2007-03-29 16:59:52 +02:00
|
|
|
|
char *s;
|
2002-06-13 00:57:45 +02:00
|
|
|
|
size_t slength;
|
2007-03-29 16:59:52 +02:00
|
|
|
|
va_list ap;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2007-03-29 16:59:52 +02:00
|
|
|
|
va_start (ap, format);
|
|
|
|
|
slength = vasprintf (&s, format, ap);
|
|
|
|
|
if (s == NULL || (int)slength < 0)
|
|
|
|
|
fatal ("out of memory");
|
|
|
|
|
va_end (ap);
|
2002-06-13 00:57:45 +02:00
|
|
|
|
|
2007-03-29 16:59:52 +02:00
|
|
|
|
if (o->bufused + slength > o->buflength)
|
2002-06-13 00:57:45 +02:00
|
|
|
|
{
|
|
|
|
|
size_t new_len = o->buflength;
|
|
|
|
|
if (new_len == 0)
|
|
|
|
|
new_len = 1024;
|
|
|
|
|
do {
|
|
|
|
|
new_len *= 2;
|
|
|
|
|
} while (o->bufused + slength >= new_len);
|
2004-07-26 03:33:36 +02:00
|
|
|
|
o->buf = XRESIZEVEC (char, o->buf, new_len);
|
2002-06-13 00:57:45 +02:00
|
|
|
|
o->buflength = new_len;
|
|
|
|
|
}
|
2007-03-29 16:59:52 +02:00
|
|
|
|
memcpy (o->buf + o->bufused, s, slength);
|
2002-06-13 00:57:45 +02:00
|
|
|
|
o->bufused += slength;
|
2007-03-29 16:59:52 +02:00
|
|
|
|
free (s);
|
2002-06-13 00:57:45 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Open the global header file and the language-specific header files. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
open_base_files (void)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
size_t i;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
header_file = create_file ("GCC", "gtype-desc.h");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
base_files = XNEWVEC (outf_p, num_lang_dirs);
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < num_lang_dirs; i++)
|
2003-06-01 17:59:10 +02:00
|
|
|
|
base_files[i] = create_file (lang_dir_names[i],
|
2002-07-14 03:59:15 +02:00
|
|
|
|
xasprintf ("gtype-%s.h", lang_dir_names[i]));
|
2002-06-13 00:57:45 +02:00
|
|
|
|
|
|
|
|
|
/* gtype-desc.c is a little special, so we create it here. */
|
|
|
|
|
{
|
|
|
|
|
/* The order of files here matters very much. */
|
|
|
|
|
static const char *const ifiles [] = {
|
2004-05-13 08:41:07 +02:00
|
|
|
|
"config.h", "system.h", "coretypes.h", "tm.h", "varray.h",
|
bitmap.h (struct bitmap_obstack): New obstack type.
* bitmap.h (struct bitmap_obstack): New obstack type.
(struct bitmap_head_def): Replace using_obstack with obstack
pointer.
(bitmap_default_obstack): New.
(bitmap_initialize): Make inline, does not do allocation.
(bitmap_release_memory): Remove.
(bitmap_obstack_initialize, bitmap_obstack_release): Declare.
(bitmap_obstack_alloc, bitmap_malloc_alloc, bitmap_gc_alloc,
bitmap_obstack_free, bitmap_malloc_free): Declare.
(BITMAP_OBSTACK_ALLOC, BITMAP_GGC_ALLOC, BITMAP_XMALLOC): Adjust.
(BITMAP_FREE): Replace with ...
(BITMAP_OBSTACK_FREE): ... this.
(BITMAP_XFREE): Adjust.
(BITMAP_INIT_ONCE): Remove.
* bitmap.c (bitmap_obstack, bitmap_obstack_init, bitmap_free: Remove.
(bitmap_default_obstack): New.
(bitmap_elem_to_freelist): Adjust.
(bitmap_element_allocate): Adjust. Break initialization into ...
(bitmap_obstack_initialize): ... here.
(bitmap_release_memory): Replace with ...
(bitmap_obstack_release): ... this.
(bitmap_obstack_alloc, bitmap_malloc_alloc, bitmap_gc_alloc,
bitmap_obstack_free, bitmap_malloc_free): New.
(bitmap_ior_and_compl, bitmap_ior_and_compl_into): Use
bitmap_initialize.
(bitmap_initialize): Move to bitmap.h.
* gengtype.c (open_base_files): Add obstack.h to ifiles.
* Makefile.in (BASIC_BLOCK_H, REGS_H): Add obstack.h.
* basic-block.h (INIT_REG_SET): Allocate from reg_obstack.
(INITIALIZE_REG_SET): Remove.
(FREE_REG_SET): Use BITMAP_OBSTACK_FREE.
(INIT_ONCE_REG_SET, MAX_REGNO_REG_SET): Remove.
(flow_obstack): Do not declare.
(reg_obstack): Declare.
* regs.h: Include obstack.h.
* tree-optimize.c (tree_rest_of_compilation): Initialize and
release bitmap obstack here.
* bb-reorder.c: #include regs, not basic-block.
(fix_crossing_conditional_branches): Allocate regsets from
reg_obstack.
* bt-load.c: Do not inlude bitmap.h, sbitmap.h, basic-block.h or
obstack.h.
* caller-save.c: Include regs.h earlier.
* cfg.c: Do not include basic-block.h or obstack.h.
(reg_obstack): Define.
* cfganal.c: Include obstack.h
* cfgcleanyp.c: Do not include basic-block.h. Include regs.h
earlier.
* cfglayout.c: Do not include obstack.h.
(flow_obstack): Remove declaration.
(cfg_layout_duplicate_bb): Use reg_obstack.
* cfgloop.c, cfgloopanal.c, cfgloopmanip.c: Include obstack.h.
* cfgrtl.c (rtl_split_block): Use reg_obstack.
(force_nonfallthru_and_redirect, rtl_split_edge): Likewise.
(safe_insert_insn_on_edge): Use OBSTACK_ALLOC_REG_SET, adjust.
(cfg_layout_split_edge): Use reg_obstack.
* cse.c: Include regs.h earlier.
* ddg.c: Do not include basic-block.h.
* dominance.c: Inlude obstack.h.
* flow.c (update_life_info): Use OBSTACK_ALLOC_REG_SET, adjust.
(calculate_global_regs_live): Likewise.
(allocate_bb_life_data): Use reg_obstack.
(init_propagate_block_info): Use OBSTACK_ALLOC_REGSET.
* global.c: Do not include basic-block.h.
(build_insn_chain): Use OBSTACK_ALLOC_REG_SET, adjust.
* graph.c: Include obstack.h.
* haifa-sched.c: Do not include basic-block.h.
* ifcvt.c: Use OBSTACK_ALLOC_REG_SET, adjust.
* local-alloc.c: Do not include basic-block.h.
* loop-init.c, loop-invariant.c: Include obstack.h.
* loop-iv.c: Likewise.
(simplify_using_initial_values): Use OBSTACK_ALLOC_REG_SET,
adjust.
* loop-unroll.c, loop-unswitch.c: Inlude obstack.h.
* modulo-sched.c: Do not include basic-block.h.
* passes.c (rest_of_handle_final): Do not call
regset_release_memory.
* ra-debug.c: Include regs.h earlier. Do not include
basic-block.h.
* recog.c (peephole2_optimize): Use OBSTACK_ALLOC_REG_SET, adjust.
* regclass.c (init_reg_sets): Do not call INIT_ONCE_REG_SET.
(allocate_reg_info): Do not call MAX_REGNO_REG_SET.
(regset_release_memory): Remove.
* resource.c: Do not include basic-block.h.
* rtlanal.c: Do not include basic-block.h.
* sbitmap.c: Include obstack.h.
* sched-deps.c: Do not include basic-block.h.
(reg_pending_sets_head, reg_pending_clobbers_head,
reg_pending_uses_head): Remove.
(init_deps_global): Use OBSTACK_ALLOC_REG_SET.
* sched-ebb.c: Do not include basic-block.h.
* sched-rgn.c: Likewise.
* tree-if-conv.c (get_loop_body_in_if_conv_order): Use
BITMAP_XFREE.
* tree-outof-ssa.c (perform_edge_inserts): Use BITMAP_XFREE.
* tree-sra.c (decide_instantiations): Adjust bitmap
initialization.
* tree-ssa-dce.c: Include obstack.h.
* tree-ssa-pre.c (grand_bitmap_obstack): Make a bitmap_obstack.
(value_insert_into_set_bitmap): Remove useless bitmap_clear.
(bitmap_set_new): Likewise.
(init_pre): Initialize bitmap obstack.
(fini_pre): Release bitmap obstack.
* tree-ssanames.c (ssa_names_to_rewrite): Make static.
(marked_for_rewrite_p): ssa_names_to_rewrite is never NULL.
(mark_for_rewrite, unmark_for_rewrite): Likewise.
(marked_ssa_names): Likewise.
(init_ssanames): Use BITMAP_XMALLOC.
(fini_ssanames): Use BITMAP_XFREE.
* web.c: Include obstack.h
From-SVN: r91009
2004-11-22 13:23:59 +01:00
|
|
|
|
"hashtab.h", "splay-tree.h", "obstack.h", "bitmap.h", "input.h",
|
|
|
|
|
"tree.h", "rtl.h", "function.h", "insn-config.h", "expr.h",
|
|
|
|
|
"hard-reg-set.h", "basic-block.h", "cselib.h", "insn-addr.h",
|
|
|
|
|
"optabs.h", "libfuncs.h", "debug.h", "ggc.h", "cgraph.h",
|
|
|
|
|
"tree-flow.h", "reload.h", "cpp-id-data.h", "tree-chrec.h",
|
tree-ssa-loop-niter.c (record_estimate): Use GGC_NEW to allocate struct nb_iter_bound.
* tree-ssa-loop-niter.c (record_estimate): Use GGC_NEW to allocate
struct nb_iter_bound.
(free_numbers_of_iterations_estimates_loop): Use ggc_free.
* gengtype.c (open_base_files): Add cfhloop.h to the list of includes.
* cfgloopmanip.c (place_new_loop): Vector larray is gc-allocated.
* tree-scalar-evolution.c: Include gt-tree-scalar-evolution.h.
(struct scev_info_str, scalar_evolution_info): Add GTY markers.
(new_scev_info_str): Use GGC_NEW to allocate struct scev_info_str.
(del_scev_info): Use ggc_free.
(scev_initialize): Allocate scalar_evolution_info in gc memory.
* loop-init.c: Include ggc.h.
(loop_optimizer_init): Use GGC_CNEW to allocate struct loops.
(loop_optimizer_finalize): Use ggc_free.
* tree-ssa-loop.c (pass_tree_unswitch, pass_vectorize,
pass_linear_transfom, pass_empty_loop, pass_complete_unroll,
pass_iv_optimize): Add TODO_ggc_collect.
* function.h (struct function): Remove skip marker from x_current_loops.
* cfgloop.c: Include ggc.h.
(flow_loops_free, flow_loop_free): Free the loop descriptions in gc
memory.
(establish_preds): Vector superloops is gc allocated.
(alloc_loop): Allocate loop using GGC_CNEW. Allocate head of
loop->exits list.
(flow_loops_find): Vector larray is gc allocated.
(loop_exit_free): Use ggc_free.
(rescan_loop_exit): Use GGC_NEW to allocate struct loop_exit. Reflect
that head of exits list is now not a part of struct loop.
(record_loop_exits): Allocate exits table in gc memory.
(get_loop_exit_edges, verify_loop_structure, single_exit): Reflect that
head of exits list is now not a part of struct loop.
* cfgloop.h (struct lpt_decision, struct nb_iter_bound,
struct loop_exit): Add GTY marker.
(struct loop): Add GTY marker. Make superloops vector gc allocated.
Add skip marker to aux field. Make head of exits list a separate
object.
(struct loops): Add GTY marker. Make larray vector gc allocated.
Add param marker to exits table.
(get_loops): Type changed.
* Makefile.in (tree-scalar-evolution.o): Add gt-tree-scalar-evolution.h
dependency.
(cfgloop.o, loop-init.o): Add ggc.h dependency.
(GTFILES): Add cfgloop.h and tree-scalar-evolution.c.
* basic-block.h (struct basic_block_def): Remove skip marker from
loop_father field.
From-SVN: r124727
2007-05-14 23:58:42 +02:00
|
|
|
|
"cfglayout.h", "except.h", "output.h", "cfgloop.h", NULL
|
2002-06-13 00:57:45 +02:00
|
|
|
|
};
|
|
|
|
|
const char *const *ifp;
|
|
|
|
|
outf_p gtype_desc_c;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
gtype_desc_c = create_file ("GCC", "gtype-desc.c");
|
|
|
|
|
for (ifp = ifiles; *ifp; ifp++)
|
|
|
|
|
oprintf (gtype_desc_c, "#include \"%s\"\n", *ifp);
|
|
|
|
|
}
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Determine the pathname to F relative to $(srcdir). */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
static const char *
|
2003-06-01 17:59:10 +02:00
|
|
|
|
get_file_basename (const char *f)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
const char *basename;
|
2002-07-14 03:59:15 +02:00
|
|
|
|
unsigned i;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
basename = strrchr (f, '/');
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-07-14 03:59:15 +02:00
|
|
|
|
if (!basename)
|
|
|
|
|
return f;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-07-14 03:59:15 +02:00
|
|
|
|
basename++;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
for (i = 0; i < num_lang_dirs; i++)
|
2002-07-14 03:59:15 +02:00
|
|
|
|
{
|
|
|
|
|
const char * s1;
|
|
|
|
|
const char * s2;
|
|
|
|
|
int l1;
|
|
|
|
|
int l2;
|
|
|
|
|
s1 = basename - strlen (lang_dir_names [i]) - 1;
|
|
|
|
|
s2 = lang_dir_names [i];
|
|
|
|
|
l1 = strlen (s1);
|
|
|
|
|
l2 = strlen (s2);
|
2004-08-18 03:58:13 +02:00
|
|
|
|
if (l1 >= l2 && IS_DIR_SEPARATOR (s1[-1]) && !memcmp (s1, s2, l2))
|
2002-07-14 03:59:15 +02:00
|
|
|
|
{
|
|
|
|
|
basename -= l2 + 1;
|
|
|
|
|
if ((basename - f - 1) != srcdir_len)
|
Makefile.in (gengtype): Use $(BUILD_ERRORS).
* Makefile.in (gengtype): Use $(BUILD_ERRORS).
(gengtype.o): Depend on errors.h.
* genattrtab.c (strcmp_check): Use gcc_assert and gcc_unreachable.
(attr_rtx_1, attr_printf, attr_copy_rtx, evaluate_eq_attr,
attr_alt_subset_p, attr_alt_subset_of_compl_p,
attr_alt_intersection, attr_alt_union, optimize_attrs, gen_insn,
write_test_expr, write_attr_value, write_eligible_delay,
make_internal_attr, make_numeric_value): Likewise.
* genautomata.c (regexp_name, get_str_vect,
gen_presence_absence_set, automaton_decl_hash,
automaton_decl_eq_p, insn_decl_hash, insn_decl_eq_p, decl_hash,
decl_eq_p, process_regexp, loop_in_regexp, check_loops_in_regexps,
process_regexp_cycles, reserv_sets_cmp, set_unit_reserv,
test_unit_reserv, it_is_empty_reserv_sets,
reserv_sets_are_intersected, reserv_sets_shift, reserv_sets_or,
reserv_sets_and, output_cycle_reservs, get_free_state,
intersected_state_reservs_p, states_union, remove_arc,
copy_insn_regexp, transform_1, transform_2, transform_3,
regexp_transform_func, store_alt_unit_usage,
check_regexp_units_distribution, process_seq_for_forming_states,
process_alts_for_forming_states, make_automaton,
form_arcs_marked_by_insn, create_composed_state,
set_out_arc_insns_equiv_num, partition_equiv_class,
process_insn_equiv_class, set_insn_equiv_classes,
units_to_automata_heuristic_distr, form_regexp,
longest_path_length, output_dfa_max_issue_rate, add_vect,
out_state_arcs_num, add_vect_el, output_trans_table,
output_state_alts_table, output_dead_lock_vect,
output_max_insn_queue_index_def,
output_min_insn_conflict_delay_func,
output_internal_insn_latency_func, output_print_reservation_func,
output_cpu_unit_reservation_p, output_state_arcs,
make_insn_alts_attr, make_internal_dfa_insn_code_attr,
make_default_insn_latency_attr,
form_important_insn_automata_lists): Likewise.
* genemit.c (gen_exp, output_add_clobbers,
output_added_clobbers_hard_reg_p): Likewise.
* genextract.c (print_path, main): Likewise.
* genflags.c (gen_macro): Likewise.
* gengenrtl.c: Include errors.h
(type_from_format, accessor_from_format): Likewise.
* gengtype.c (get_file_basename, output_mangled_typename,
walk_type, write_types_process_field,
write_types_local_process_field): Likewise.
* genmodes.c (complete_mode): Likewise.
* genopinit.c (gen_insn): Likewise.
* genoutput.c (output_insn_data, check_constraint_len,
constraint_len): Likewise.
* genpreds.c (add_mode_tests):Likewise.
* gen-protos.c (add_hash): Likewise.
* genrecog.c (find_operand, find_matching_operand,
validate_pattern, add_to_sequence, maybe_both_true,
nodes_identical_1, merge_trees, write_switch, write_cond,
write_action, is_unconditional, make_insn_sequence,
debug_decision_2): Likewise.
* gensupport.c (is_predicable, collect_insn_data,
alter_predicate_for_insn, maybe_eval_c_test): Likewise.
From-SVN: r87236
2004-09-09 15:22:38 +02:00
|
|
|
|
fatal ("filename `%s' should be preceded by $srcdir", f);
|
2002-07-14 03:59:15 +02:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
return basename;
|
|
|
|
|
}
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* An output file, suitable for definitions, that can see declarations
|
|
|
|
|
made in INPUT_FILE and is linked into every language that uses
|
|
|
|
|
INPUT_FILE. */
|
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
outf_p
|
2003-06-01 17:59:10 +02:00
|
|
|
|
get_output_file_with_visibility (const char *input_file)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2002-06-13 00:57:45 +02:00
|
|
|
|
outf_p r;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
size_t len;
|
|
|
|
|
const char *basename;
|
2002-06-13 00:57:45 +02:00
|
|
|
|
const char *for_name;
|
|
|
|
|
const char *output_name;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
/* This can happen when we need a file with visibility on a
|
|
|
|
|
structure that we've never seen. We have to just hope that it's
|
|
|
|
|
globally visible. */
|
|
|
|
|
if (input_file == NULL)
|
|
|
|
|
input_file = "system.h";
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
|
|
|
|
/* Determine the output file name. */
|
|
|
|
|
basename = get_file_basename (input_file);
|
|
|
|
|
|
|
|
|
|
len = strlen (basename);
|
|
|
|
|
if ((len > 2 && memcmp (basename+len-2, ".c", 2) == 0)
|
|
|
|
|
|| (len > 2 && memcmp (basename+len-2, ".y", 2) == 0)
|
|
|
|
|
|| (len > 3 && memcmp (basename+len-3, ".in", 3) == 0))
|
|
|
|
|
{
|
|
|
|
|
char *s;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
output_name = s = xasprintf ("gt-%s", basename);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (; *s != '.'; s++)
|
2002-06-09 04:12:21 +02:00
|
|
|
|
if (! ISALNUM (*s) && *s != '-')
|
2002-06-04 09:11:05 +02:00
|
|
|
|
*s = '-';
|
|
|
|
|
memcpy (s, ".h", sizeof (".h"));
|
2002-06-13 00:57:45 +02:00
|
|
|
|
for_name = basename;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2004-08-18 03:58:13 +02:00
|
|
|
|
/* Some headers get used by more than one front-end; hence, it
|
|
|
|
|
would be inappropriate to spew them out to a single gtype-<lang>.h
|
|
|
|
|
(and gengtype doesn't know how to direct spewage into multiple
|
|
|
|
|
gtype-<lang>.h headers at this time). Instead, we pair up these
|
|
|
|
|
headers with source files (and their special purpose gt-*.h headers). */
|
2002-06-04 09:11:05 +02:00
|
|
|
|
else if (strcmp (basename, "c-common.h") == 0)
|
2002-06-13 00:57:45 +02:00
|
|
|
|
output_name = "gt-c-common.h", for_name = "c-common.c";
|
2002-06-04 09:11:05 +02:00
|
|
|
|
else if (strcmp (basename, "c-tree.h") == 0)
|
2002-06-13 00:57:45 +02:00
|
|
|
|
output_name = "gt-c-decl.h", for_name = "c-decl.c";
|
2005-05-17 22:11:44 +02:00
|
|
|
|
else if (strncmp (basename, "cp", 2) == 0 && IS_DIR_SEPARATOR (basename[2])
|
|
|
|
|
&& strcmp (basename + 3, "cp-tree.h") == 0)
|
|
|
|
|
output_name = "gt-cp-tree.h", for_name = "cp/tree.c";
|
|
|
|
|
else if (strncmp (basename, "cp", 2) == 0 && IS_DIR_SEPARATOR (basename[2])
|
|
|
|
|
&& strcmp (basename + 3, "decl.h") == 0)
|
|
|
|
|
output_name = "gt-cp-decl.h", for_name = "cp/decl.c";
|
|
|
|
|
else if (strncmp (basename, "cp", 2) == 0 && IS_DIR_SEPARATOR (basename[2])
|
|
|
|
|
&& strcmp (basename + 3, "name-lookup.h") == 0)
|
|
|
|
|
output_name = "gt-cp-name-lookup.h", for_name = "cp/name-lookup.c";
|
2004-08-18 03:58:13 +02:00
|
|
|
|
else if (strncmp (basename, "objc", 4) == 0 && IS_DIR_SEPARATOR (basename[4])
|
|
|
|
|
&& strcmp (basename + 5, "objc-act.h") == 0)
|
|
|
|
|
output_name = "gt-objc-objc-act.h", for_name = "objc/objc-act.c";
|
|
|
|
|
else
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
size_t i;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
for (i = 0; i < num_lang_dirs; i++)
|
2002-07-14 03:59:15 +02:00
|
|
|
|
if (memcmp (basename, lang_dir_names[i], strlen (lang_dir_names[i])) == 0
|
|
|
|
|
&& basename[strlen(lang_dir_names[i])] == '/')
|
2002-06-13 00:57:45 +02:00
|
|
|
|
return base_files[i];
|
|
|
|
|
|
|
|
|
|
output_name = "gtype-desc.c";
|
|
|
|
|
for_name = NULL;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Look through to see if we've ever seen this output filename before. */
|
2002-06-13 00:57:45 +02:00
|
|
|
|
for (r = output_files; r; r = r->next)
|
|
|
|
|
if (strcmp (r->name, output_name) == 0)
|
|
|
|
|
return r;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
|
|
|
|
/* If not, create it. */
|
2002-06-13 00:57:45 +02:00
|
|
|
|
r = create_file (for_name, output_name);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
return r;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* The name of an output file, suitable for definitions, that can see
|
|
|
|
|
declarations made in INPUT_FILE and is linked into every language
|
|
|
|
|
that uses INPUT_FILE. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
const char *
|
2003-06-01 17:59:10 +02:00
|
|
|
|
get_output_file_name (const char *input_file)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2002-06-13 00:57:45 +02:00
|
|
|
|
return get_output_file_with_visibility (input_file)->name;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
/* Copy the output to its final destination,
|
2002-06-07 04:15:39 +02:00
|
|
|
|
but don't unnecessarily change modification times. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
close_output_files (void)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2002-06-13 00:57:45 +02:00
|
|
|
|
outf_p of;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
for (of = output_files; of; of = of->next)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2002-06-13 00:57:45 +02:00
|
|
|
|
FILE * newfile;
|
|
|
|
|
|
|
|
|
|
newfile = fopen (of->name, "r");
|
|
|
|
|
if (newfile != NULL )
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2002-06-13 00:57:45 +02:00
|
|
|
|
int no_write_p;
|
|
|
|
|
size_t i;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
for (i = 0; i < of->bufused; i++)
|
|
|
|
|
{
|
|
|
|
|
int ch;
|
|
|
|
|
ch = fgetc (newfile);
|
|
|
|
|
if (ch == EOF || ch != (unsigned char) of->buf[i])
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
no_write_p = i == of->bufused && fgetc (newfile) == EOF;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
fclose (newfile);
|
2002-06-13 00:57:45 +02:00
|
|
|
|
|
|
|
|
|
if (no_write_p)
|
|
|
|
|
continue;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
newfile = fopen (of->name, "w");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
if (newfile == NULL)
|
2007-03-26 23:04:59 +02:00
|
|
|
|
fatal ("opening output file %s: %s", of->name, strerror (errno));
|
2002-06-13 00:57:45 +02:00
|
|
|
|
if (fwrite (of->buf, 1, of->bufused, newfile) != of->bufused)
|
2007-03-26 23:04:59 +02:00
|
|
|
|
fatal ("writing output file %s: %s", of->name, strerror (errno));
|
2002-06-13 00:57:45 +02:00
|
|
|
|
if (fclose (newfile) != 0)
|
2007-03-26 23:04:59 +02:00
|
|
|
|
fatal ("closing output file %s: %s", of->name, strerror (errno));
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
struct flist {
|
|
|
|
|
struct flist *next;
|
|
|
|
|
int started_p;
|
|
|
|
|
const char *name;
|
2002-06-13 00:57:45 +02:00
|
|
|
|
outf_p f;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
};
|
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
struct walk_type_data;
|
|
|
|
|
|
|
|
|
|
/* For scalars and strings, given the item in 'val'.
|
|
|
|
|
For structures, given a pointer to the item in 'val'.
|
|
|
|
|
For misc. pointers, given the item in 'val'.
|
|
|
|
|
*/
|
2003-06-01 17:59:10 +02:00
|
|
|
|
typedef void (*process_field_fn)
|
|
|
|
|
(type_p f, const struct walk_type_data *p);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
typedef void (*func_name_fn)
|
2003-06-01 17:59:10 +02:00
|
|
|
|
(type_p s, const struct walk_type_data *p);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
|
|
|
|
|
/* Parameters for write_types. */
|
|
|
|
|
|
2003-06-01 17:59:10 +02:00
|
|
|
|
struct write_types_data
|
2003-01-10 03:22:34 +01:00
|
|
|
|
{
|
|
|
|
|
const char *prefix;
|
|
|
|
|
const char *param_prefix;
|
|
|
|
|
const char *subfield_marker_routine;
|
|
|
|
|
const char *marker_routine;
|
|
|
|
|
const char *reorder_note_routine;
|
|
|
|
|
const char *comment;
|
2007-01-19 18:56:18 +01:00
|
|
|
|
int skip_hooks; /* skip hook generation if non zero */
|
2003-01-10 03:22:34 +01:00
|
|
|
|
};
|
|
|
|
|
|
2003-06-01 17:59:10 +02:00
|
|
|
|
static void output_escaped_param (struct walk_type_data *d,
|
|
|
|
|
const char *, const char *);
|
|
|
|
|
static void output_mangled_typename (outf_p, type_p);
|
|
|
|
|
static void walk_type (type_p t, struct walk_type_data *d);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
static void write_func_for_structure
|
2003-06-01 17:59:10 +02:00
|
|
|
|
(type_p orig_s, type_p s, type_p * param,
|
|
|
|
|
const struct write_types_data *wtd);
|
|
|
|
|
static void write_types_process_field
|
|
|
|
|
(type_p f, const struct walk_type_data *d);
|
|
|
|
|
static void write_types (type_p structures,
|
|
|
|
|
type_p param_structs,
|
|
|
|
|
const struct write_types_data *wtd);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
static void write_types_local_process_field
|
2003-06-01 17:59:10 +02:00
|
|
|
|
(type_p f, const struct walk_type_data *d);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
static void write_local_func_for_structure
|
2003-06-01 17:59:10 +02:00
|
|
|
|
(type_p orig_s, type_p s, type_p * param);
|
|
|
|
|
static void write_local (type_p structures,
|
|
|
|
|
type_p param_structs);
|
|
|
|
|
static void write_enum_defn (type_p structures, type_p param_structs);
|
|
|
|
|
static int contains_scalar_p (type_p t);
|
|
|
|
|
static void put_mangled_filename (outf_p , const char *);
|
|
|
|
|
static void finish_root_table (struct flist *flp, const char *pfx,
|
|
|
|
|
const char *tname, const char *lastname,
|
|
|
|
|
const char *name);
|
|
|
|
|
static void write_root (outf_p , pair_p, type_p, const char *, int,
|
|
|
|
|
struct fileloc *, const char *);
|
|
|
|
|
static void write_array (outf_p f, pair_p v,
|
|
|
|
|
const struct write_types_data *wtd);
|
|
|
|
|
static void write_roots (pair_p);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
/* Parameters for walk_type. */
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
struct walk_type_data
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
process_field_fn process_field;
|
|
|
|
|
const void *cookie;
|
|
|
|
|
outf_p of;
|
|
|
|
|
options_p opt;
|
|
|
|
|
const char *val;
|
|
|
|
|
const char *prev_val[4];
|
|
|
|
|
int indent;
|
|
|
|
|
int counter;
|
|
|
|
|
struct fileloc *line;
|
|
|
|
|
lang_bitmap bitmap;
|
|
|
|
|
type_p *param;
|
|
|
|
|
int used_length;
|
|
|
|
|
type_p orig_s;
|
|
|
|
|
const char *reorder_fn;
|
2004-06-09 22:10:13 +02:00
|
|
|
|
bool needs_cast_p;
|
|
|
|
|
bool fn_wants_lvalue;
|
2003-01-10 03:22:34 +01:00
|
|
|
|
};
|
2002-09-16 20:33:23 +02:00
|
|
|
|
|
|
|
|
|
/* Print a mangled name representing T to OF. */
|
|
|
|
|
|
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
output_mangled_typename (outf_p of, type_p t)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
{
|
|
|
|
|
if (t == NULL)
|
|
|
|
|
oprintf (of, "Z");
|
|
|
|
|
else switch (t->kind)
|
|
|
|
|
{
|
|
|
|
|
case TYPE_POINTER:
|
|
|
|
|
oprintf (of, "P");
|
|
|
|
|
output_mangled_typename (of, t->u.p);
|
|
|
|
|
break;
|
|
|
|
|
case TYPE_SCALAR:
|
|
|
|
|
oprintf (of, "I");
|
|
|
|
|
break;
|
|
|
|
|
case TYPE_STRING:
|
|
|
|
|
oprintf (of, "S");
|
|
|
|
|
break;
|
|
|
|
|
case TYPE_STRUCT:
|
|
|
|
|
case TYPE_UNION:
|
|
|
|
|
case TYPE_LANG_STRUCT:
|
2002-10-04 08:08:19 +02:00
|
|
|
|
oprintf (of, "%lu%s", (unsigned long) strlen (t->u.s.tag), t->u.s.tag);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
break;
|
|
|
|
|
case TYPE_PARAM_STRUCT:
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
for (i = 0; i < NUM_PARAM; i++)
|
|
|
|
|
if (t->u.param_struct.param[i] != NULL)
|
|
|
|
|
output_mangled_typename (of, t->u.param_struct.param[i]);
|
2003-06-01 17:59:10 +02:00
|
|
|
|
output_mangled_typename (of, t->u.param_struct.stru);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
case TYPE_ARRAY:
|
Makefile.in (gengtype): Use $(BUILD_ERRORS).
* Makefile.in (gengtype): Use $(BUILD_ERRORS).
(gengtype.o): Depend on errors.h.
* genattrtab.c (strcmp_check): Use gcc_assert and gcc_unreachable.
(attr_rtx_1, attr_printf, attr_copy_rtx, evaluate_eq_attr,
attr_alt_subset_p, attr_alt_subset_of_compl_p,
attr_alt_intersection, attr_alt_union, optimize_attrs, gen_insn,
write_test_expr, write_attr_value, write_eligible_delay,
make_internal_attr, make_numeric_value): Likewise.
* genautomata.c (regexp_name, get_str_vect,
gen_presence_absence_set, automaton_decl_hash,
automaton_decl_eq_p, insn_decl_hash, insn_decl_eq_p, decl_hash,
decl_eq_p, process_regexp, loop_in_regexp, check_loops_in_regexps,
process_regexp_cycles, reserv_sets_cmp, set_unit_reserv,
test_unit_reserv, it_is_empty_reserv_sets,
reserv_sets_are_intersected, reserv_sets_shift, reserv_sets_or,
reserv_sets_and, output_cycle_reservs, get_free_state,
intersected_state_reservs_p, states_union, remove_arc,
copy_insn_regexp, transform_1, transform_2, transform_3,
regexp_transform_func, store_alt_unit_usage,
check_regexp_units_distribution, process_seq_for_forming_states,
process_alts_for_forming_states, make_automaton,
form_arcs_marked_by_insn, create_composed_state,
set_out_arc_insns_equiv_num, partition_equiv_class,
process_insn_equiv_class, set_insn_equiv_classes,
units_to_automata_heuristic_distr, form_regexp,
longest_path_length, output_dfa_max_issue_rate, add_vect,
out_state_arcs_num, add_vect_el, output_trans_table,
output_state_alts_table, output_dead_lock_vect,
output_max_insn_queue_index_def,
output_min_insn_conflict_delay_func,
output_internal_insn_latency_func, output_print_reservation_func,
output_cpu_unit_reservation_p, output_state_arcs,
make_insn_alts_attr, make_internal_dfa_insn_code_attr,
make_default_insn_latency_attr,
form_important_insn_automata_lists): Likewise.
* genemit.c (gen_exp, output_add_clobbers,
output_added_clobbers_hard_reg_p): Likewise.
* genextract.c (print_path, main): Likewise.
* genflags.c (gen_macro): Likewise.
* gengenrtl.c: Include errors.h
(type_from_format, accessor_from_format): Likewise.
* gengtype.c (get_file_basename, output_mangled_typename,
walk_type, write_types_process_field,
write_types_local_process_field): Likewise.
* genmodes.c (complete_mode): Likewise.
* genopinit.c (gen_insn): Likewise.
* genoutput.c (output_insn_data, check_constraint_len,
constraint_len): Likewise.
* genpreds.c (add_mode_tests):Likewise.
* gen-protos.c (add_hash): Likewise.
* genrecog.c (find_operand, find_matching_operand,
validate_pattern, add_to_sequence, maybe_both_true,
nodes_identical_1, merge_trees, write_switch, write_cond,
write_action, is_unconditional, make_insn_sequence,
debug_decision_2): Likewise.
* gensupport.c (is_predicable, collect_insn_data,
alter_predicate_for_insn, maybe_eval_c_test): Likewise.
From-SVN: r87236
2004-09-09 15:22:38 +02:00
|
|
|
|
gcc_unreachable ();
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
/* Print PARAM to D->OF processing escapes. D->VAL references the
|
|
|
|
|
current object, D->PREV_VAL the object containing the current
|
|
|
|
|
object, ONAME is the name of the option and D->LINE is used to
|
|
|
|
|
print error messages. */
|
2002-06-07 04:15:39 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
output_escaped_param (struct walk_type_data *d, const char *param,
|
|
|
|
|
const char *oname)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
const char *p;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
for (p = param; *p; p++)
|
|
|
|
|
if (*p != '%')
|
|
|
|
|
oprintf (d->of, "%c", *p);
|
|
|
|
|
else switch (*++p)
|
|
|
|
|
{
|
|
|
|
|
case 'h':
|
|
|
|
|
oprintf (d->of, "(%s)", d->prev_val[2]);
|
|
|
|
|
break;
|
|
|
|
|
case '0':
|
|
|
|
|
oprintf (d->of, "(%s)", d->prev_val[0]);
|
|
|
|
|
break;
|
|
|
|
|
case '1':
|
|
|
|
|
oprintf (d->of, "(%s)", d->prev_val[1]);
|
|
|
|
|
break;
|
|
|
|
|
case 'a':
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
const char *pp = d->val + strlen (d->val);
|
|
|
|
|
while (pp[-1] == ']')
|
|
|
|
|
while (*pp != '[')
|
|
|
|
|
pp--;
|
|
|
|
|
oprintf (d->of, "%s", pp);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
error_at_line (d->line, "`%s' option contains bad escape %c%c",
|
|
|
|
|
oname, '%', *p);
|
|
|
|
|
}
|
|
|
|
|
}
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
/* Call D->PROCESS_FIELD for every field (or subfield) of D->VAL,
|
|
|
|
|
which is of type T. Write code to D->OF to constrain execution (at
|
|
|
|
|
the point that D->PROCESS_FIELD is called) to the appropriate
|
2003-08-14 05:10:49 +02:00
|
|
|
|
cases. Call D->PROCESS_FIELD on subobjects before calling it on
|
|
|
|
|
pointers to those objects. D->PREV_VAL lists the objects
|
|
|
|
|
containing the current object, D->OPT is a list of options to
|
|
|
|
|
apply, D->INDENT is the current indentation level, D->LINE is used
|
|
|
|
|
to print error messages, D->BITMAP indicates which languages to
|
|
|
|
|
print the structure for, and D->PARAM is the current parameter
|
|
|
|
|
(from an enclosing param_is option). */
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
walk_type (type_p t, struct walk_type_data *d)
|
2003-01-10 03:22:34 +01:00
|
|
|
|
{
|
|
|
|
|
const char *length = NULL;
|
|
|
|
|
const char *desc = NULL;
|
|
|
|
|
int maybe_undef_p = 0;
|
|
|
|
|
int use_param_num = -1;
|
|
|
|
|
int use_params_p = 0;
|
|
|
|
|
options_p oo;
|
2004-05-30 02:49:06 +02:00
|
|
|
|
const struct nested_ptr_data *nested_ptr_d = NULL;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2004-06-09 22:10:13 +02:00
|
|
|
|
d->needs_cast_p = false;
|
2003-01-10 03:22:34 +01:00
|
|
|
|
for (oo = d->opt; oo; oo = oo->next)
|
|
|
|
|
if (strcmp (oo->name, "length") == 0)
|
2004-08-02 14:48:49 +02:00
|
|
|
|
length = oo->info;
|
2003-01-10 03:22:34 +01:00
|
|
|
|
else if (strcmp (oo->name, "maybe_undef") == 0)
|
|
|
|
|
maybe_undef_p = 1;
|
|
|
|
|
else if (strncmp (oo->name, "use_param", 9) == 0
|
|
|
|
|
&& (oo->name[9] == '\0' || ISDIGIT (oo->name[9])))
|
|
|
|
|
use_param_num = oo->name[9] == '\0' ? 0 : oo->name[9] - '0';
|
|
|
|
|
else if (strcmp (oo->name, "use_params") == 0)
|
|
|
|
|
use_params_p = 1;
|
|
|
|
|
else if (strcmp (oo->name, "desc") == 0)
|
2004-08-02 14:48:49 +02:00
|
|
|
|
desc = oo->info;
|
2007-01-19 18:56:18 +01:00
|
|
|
|
else if (strcmp (oo->name, "mark_hook") == 0)
|
|
|
|
|
;
|
2004-05-30 02:49:06 +02:00
|
|
|
|
else if (strcmp (oo->name, "nested_ptr") == 0)
|
2004-06-09 22:10:13 +02:00
|
|
|
|
nested_ptr_d = (const struct nested_ptr_data *) oo->info;
|
2003-01-10 03:22:34 +01:00
|
|
|
|
else if (strcmp (oo->name, "dot") == 0)
|
|
|
|
|
;
|
|
|
|
|
else if (strcmp (oo->name, "tag") == 0)
|
|
|
|
|
;
|
|
|
|
|
else if (strcmp (oo->name, "special") == 0)
|
|
|
|
|
;
|
|
|
|
|
else if (strcmp (oo->name, "skip") == 0)
|
|
|
|
|
;
|
|
|
|
|
else if (strcmp (oo->name, "default") == 0)
|
|
|
|
|
;
|
|
|
|
|
else if (strcmp (oo->name, "descbits") == 0)
|
|
|
|
|
;
|
|
|
|
|
else if (strcmp (oo->name, "param_is") == 0)
|
|
|
|
|
;
|
2003-01-17 12:36:24 +01:00
|
|
|
|
else if (strncmp (oo->name, "param", 5) == 0
|
|
|
|
|
&& ISDIGIT (oo->name[5])
|
|
|
|
|
&& strcmp (oo->name + 6, "_is") == 0)
|
|
|
|
|
;
|
2003-01-10 03:22:34 +01:00
|
|
|
|
else if (strcmp (oo->name, "chain_next") == 0)
|
|
|
|
|
;
|
|
|
|
|
else if (strcmp (oo->name, "chain_prev") == 0)
|
|
|
|
|
;
|
|
|
|
|
else if (strcmp (oo->name, "reorder") == 0)
|
|
|
|
|
;
|
|
|
|
|
else
|
|
|
|
|
error_at_line (d->line, "unknown option `%s'\n", oo->name);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if (d->used_length)
|
|
|
|
|
length = NULL;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if (use_params_p)
|
|
|
|
|
{
|
|
|
|
|
int pointer_p = t->kind == TYPE_POINTER;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if (pointer_p)
|
|
|
|
|
t = t->u.p;
|
|
|
|
|
if (! UNION_OR_STRUCT_P (t))
|
|
|
|
|
error_at_line (d->line, "`use_params' option on unimplemented type");
|
2003-06-01 17:59:10 +02:00
|
|
|
|
else
|
2003-01-10 03:22:34 +01:00
|
|
|
|
t = find_param_structure (t, d->param);
|
|
|
|
|
if (pointer_p)
|
|
|
|
|
t = create_pointer (t);
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if (use_param_num != -1)
|
|
|
|
|
{
|
|
|
|
|
if (d->param != NULL && d->param[use_param_num] != NULL)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
type_p nt = d->param[use_param_num];
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if (t->kind == TYPE_ARRAY)
|
|
|
|
|
nt = create_array (nt, t->u.a.len);
|
|
|
|
|
else if (length != NULL && t->kind == TYPE_POINTER)
|
|
|
|
|
nt = create_pointer (nt);
|
2003-01-31 02:42:38 +01:00
|
|
|
|
d->needs_cast_p = (t->kind != TYPE_POINTER
|
|
|
|
|
&& (nt->kind == TYPE_POINTER
|
|
|
|
|
|| nt->kind == TYPE_STRING));
|
2003-01-10 03:22:34 +01:00
|
|
|
|
t = nt;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
else
|
|
|
|
|
error_at_line (d->line, "no parameter defined for `%s'",
|
|
|
|
|
d->val);
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
|
|
|
|
if (maybe_undef_p
|
2003-01-10 03:22:34 +01:00
|
|
|
|
&& (t->kind != TYPE_POINTER || ! UNION_OR_STRUCT_P (t->u.p)))
|
|
|
|
|
{
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (d->line,
|
2003-01-10 03:22:34 +01:00
|
|
|
|
"field `%s' has invalid option `maybe_undef_p'\n",
|
|
|
|
|
d->val);
|
|
|
|
|
return;
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
switch (t->kind)
|
|
|
|
|
{
|
|
|
|
|
case TYPE_SCALAR:
|
|
|
|
|
case TYPE_STRING:
|
|
|
|
|
d->process_field (t, d);
|
|
|
|
|
break;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
case TYPE_POINTER:
|
|
|
|
|
{
|
|
|
|
|
if (maybe_undef_p
|
|
|
|
|
&& t->u.p->u.s.line.file == NULL)
|
|
|
|
|
{
|
Makefile.in (gengtype): Use $(BUILD_ERRORS).
* Makefile.in (gengtype): Use $(BUILD_ERRORS).
(gengtype.o): Depend on errors.h.
* genattrtab.c (strcmp_check): Use gcc_assert and gcc_unreachable.
(attr_rtx_1, attr_printf, attr_copy_rtx, evaluate_eq_attr,
attr_alt_subset_p, attr_alt_subset_of_compl_p,
attr_alt_intersection, attr_alt_union, optimize_attrs, gen_insn,
write_test_expr, write_attr_value, write_eligible_delay,
make_internal_attr, make_numeric_value): Likewise.
* genautomata.c (regexp_name, get_str_vect,
gen_presence_absence_set, automaton_decl_hash,
automaton_decl_eq_p, insn_decl_hash, insn_decl_eq_p, decl_hash,
decl_eq_p, process_regexp, loop_in_regexp, check_loops_in_regexps,
process_regexp_cycles, reserv_sets_cmp, set_unit_reserv,
test_unit_reserv, it_is_empty_reserv_sets,
reserv_sets_are_intersected, reserv_sets_shift, reserv_sets_or,
reserv_sets_and, output_cycle_reservs, get_free_state,
intersected_state_reservs_p, states_union, remove_arc,
copy_insn_regexp, transform_1, transform_2, transform_3,
regexp_transform_func, store_alt_unit_usage,
check_regexp_units_distribution, process_seq_for_forming_states,
process_alts_for_forming_states, make_automaton,
form_arcs_marked_by_insn, create_composed_state,
set_out_arc_insns_equiv_num, partition_equiv_class,
process_insn_equiv_class, set_insn_equiv_classes,
units_to_automata_heuristic_distr, form_regexp,
longest_path_length, output_dfa_max_issue_rate, add_vect,
out_state_arcs_num, add_vect_el, output_trans_table,
output_state_alts_table, output_dead_lock_vect,
output_max_insn_queue_index_def,
output_min_insn_conflict_delay_func,
output_internal_insn_latency_func, output_print_reservation_func,
output_cpu_unit_reservation_p, output_state_arcs,
make_insn_alts_attr, make_internal_dfa_insn_code_attr,
make_default_insn_latency_attr,
form_important_insn_automata_lists): Likewise.
* genemit.c (gen_exp, output_add_clobbers,
output_added_clobbers_hard_reg_p): Likewise.
* genextract.c (print_path, main): Likewise.
* genflags.c (gen_macro): Likewise.
* gengenrtl.c: Include errors.h
(type_from_format, accessor_from_format): Likewise.
* gengtype.c (get_file_basename, output_mangled_typename,
walk_type, write_types_process_field,
write_types_local_process_field): Likewise.
* genmodes.c (complete_mode): Likewise.
* genopinit.c (gen_insn): Likewise.
* genoutput.c (output_insn_data, check_constraint_len,
constraint_len): Likewise.
* genpreds.c (add_mode_tests):Likewise.
* gen-protos.c (add_hash): Likewise.
* genrecog.c (find_operand, find_matching_operand,
validate_pattern, add_to_sequence, maybe_both_true,
nodes_identical_1, merge_trees, write_switch, write_cond,
write_action, is_unconditional, make_insn_sequence,
debug_decision_2): Likewise.
* gensupport.c (is_predicable, collect_insn_data,
alter_predicate_for_insn, maybe_eval_c_test): Likewise.
From-SVN: r87236
2004-09-09 15:22:38 +02:00
|
|
|
|
oprintf (d->of, "%*sgcc_assert (!%s);\n", d->indent, "", d->val);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
break;
|
|
|
|
|
}
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if (! length)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if (! UNION_OR_STRUCT_P (t->u.p)
|
|
|
|
|
&& t->u.p->kind != TYPE_PARAM_STRUCT)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (d->line,
|
2003-01-10 03:22:34 +01:00
|
|
|
|
"field `%s' is pointer to unimplemented type",
|
|
|
|
|
d->val);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
break;
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2004-05-30 02:49:06 +02:00
|
|
|
|
if (nested_ptr_d)
|
|
|
|
|
{
|
|
|
|
|
const char *oldprevval2 = d->prev_val[2];
|
|
|
|
|
|
|
|
|
|
if (! UNION_OR_STRUCT_P (nested_ptr_d->type))
|
|
|
|
|
{
|
|
|
|
|
error_at_line (d->line,
|
|
|
|
|
"field `%s' has invalid "
|
|
|
|
|
"option `nested_ptr'\n",
|
|
|
|
|
d->val);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
d->prev_val[2] = d->val;
|
|
|
|
|
oprintf (d->of, "%*s{\n", d->indent, "");
|
|
|
|
|
d->indent += 2;
|
|
|
|
|
d->val = xasprintf ("x%d", d->counter++);
|
2004-06-09 22:10:13 +02:00
|
|
|
|
oprintf (d->of, "%*s%s %s * %s%s =\n", d->indent, "",
|
2004-05-30 02:49:06 +02:00
|
|
|
|
(nested_ptr_d->type->kind == TYPE_UNION
|
|
|
|
|
? "union" : "struct"),
|
2004-06-09 22:10:13 +02:00
|
|
|
|
nested_ptr_d->type->u.s.tag,
|
|
|
|
|
d->fn_wants_lvalue ? "" : "const ",
|
|
|
|
|
d->val);
|
2004-05-30 02:49:06 +02:00
|
|
|
|
oprintf (d->of, "%*s", d->indent + 2, "");
|
|
|
|
|
output_escaped_param (d, nested_ptr_d->convert_from,
|
|
|
|
|
"nested_ptr");
|
|
|
|
|
oprintf (d->of, ";\n");
|
|
|
|
|
|
|
|
|
|
d->process_field (nested_ptr_d->type, d);
|
|
|
|
|
|
2004-06-09 22:10:13 +02:00
|
|
|
|
if (d->fn_wants_lvalue)
|
|
|
|
|
{
|
|
|
|
|
oprintf (d->of, "%*s%s = ", d->indent, "",
|
|
|
|
|
d->prev_val[2]);
|
|
|
|
|
d->prev_val[2] = d->val;
|
|
|
|
|
output_escaped_param (d, nested_ptr_d->convert_to,
|
|
|
|
|
"nested_ptr");
|
|
|
|
|
oprintf (d->of, ";\n");
|
|
|
|
|
}
|
2004-05-30 02:49:06 +02:00
|
|
|
|
|
|
|
|
|
d->indent -= 2;
|
|
|
|
|
oprintf (d->of, "%*s}\n", d->indent, "");
|
|
|
|
|
d->val = d->prev_val[2];
|
|
|
|
|
d->prev_val[2] = oldprevval2;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
d->process_field (t->u.p, d);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
else
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
int loopcounter = d->counter++;
|
|
|
|
|
const char *oldval = d->val;
|
|
|
|
|
const char *oldprevval3 = d->prev_val[3];
|
2002-06-04 09:11:05 +02:00
|
|
|
|
char *newval;
|
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d->of, "%*sif (%s != NULL) {\n", d->indent, "", d->val);
|
|
|
|
|
d->indent += 2;
|
|
|
|
|
oprintf (d->of, "%*ssize_t i%d;\n", d->indent, "", loopcounter);
|
2005-01-23 12:49:24 +01:00
|
|
|
|
oprintf (d->of, "%*sfor (i%d = 0; i%d != (size_t)(", d->indent, "",
|
2003-01-10 03:22:34 +01:00
|
|
|
|
loopcounter, loopcounter);
|
|
|
|
|
output_escaped_param (d, length, "length");
|
|
|
|
|
oprintf (d->of, "); i%d++) {\n", loopcounter);
|
|
|
|
|
d->indent += 2;
|
|
|
|
|
d->val = newval = xasprintf ("%s[i%d]", oldval, loopcounter);
|
|
|
|
|
d->used_length = 1;
|
|
|
|
|
d->prev_val[3] = oldval;
|
|
|
|
|
walk_type (t->u.p, d);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
free (newval);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d->val = oldval;
|
|
|
|
|
d->prev_val[3] = oldprevval3;
|
|
|
|
|
d->used_length = 0;
|
|
|
|
|
d->indent -= 2;
|
|
|
|
|
oprintf (d->of, "%*s}\n", d->indent, "");
|
2003-08-14 05:10:49 +02:00
|
|
|
|
d->process_field(t, d);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d->indent -= 2;
|
|
|
|
|
oprintf (d->of, "%*s}\n", d->indent, "");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
}
|
|
|
|
|
break;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
case TYPE_ARRAY:
|
|
|
|
|
{
|
|
|
|
|
int loopcounter = d->counter++;
|
|
|
|
|
const char *oldval = d->val;
|
|
|
|
|
char *newval;
|
|
|
|
|
|
2003-06-12 21:01:08 +02:00
|
|
|
|
/* If it's an array of scalars, we optimize by not generating
|
2003-01-10 03:22:34 +01:00
|
|
|
|
any code. */
|
|
|
|
|
if (t->u.a.p->kind == TYPE_SCALAR)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
break;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
tree.h (enum tree_code_class): Add tcc_vl_exp.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* tree.h (enum tree_code_class): Add tcc_vl_exp.
(VL_EXP_CLASS_P): New.
(TREE_OPERAND_CHECK): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(TREE_OPERAND_CHECK_CODE): Likewise.
(GIMPLE_STMT_OPERAND_CHECK): Likewise.
(TREE_RTL_OPERAND_CHECK): Likewise.
(tree_operand_check_failed): Make second parameter the whole tree
instead of its code. Fixed callers.
(VL_EXP_CHECK): New.
(TREE_OPERAND_LENGTH): New.
(VL_EXP_OPERAND_LENGTH): New.
(CALL_EXPR_FN): New.
(CALL_EXPR_STATIC_CHAIN): New.
(CALL_EXPR_ARGS): New.
(CALL_EXPR_ARG): New.
(call_expr_nargs): New.
(CALL_EXPR_ARGP): New.
(build_nt_call_list): Declare.
(build_vl_exp_stat): Declare.
(build_vl_exp): New.
(build_call_list): Declare.
(build_call_nary): Declare.
(build_call_valist): Declare.
(build_call_array): Declare.
(call_expr_arg): Declare.
(call_expr_argp): Declare.
(call_expr_arglist): Declare.
(fold_build_call_list): Declare.
(fold_build_call_list_initializer): Declare.
(fold_call_expr): Declare to replace fold_builtin.
(fold_builtin_fputs): Update to agree with modified definition.
(fold_builtin_strcpy): Likewise.
(fold_builtin_strncpy): Likewise.
(fold_builtin_memory_chk): Likewise.
(fold_builtin_stxcpy_chk): Likewise.
(fold_builtin_strncpy_chk): Likewise.
(fold_builtin_next_arg): Likewise.
(fold_build_call_expr): Declare.
(fold_builtin_call_list): Declare.
(fold_builtin_call_valist): Declare.
(build_call_expr): Declare.
(validate_arglist): Update to agree with modified definition.
(tree_operand_length): New.
(call_expr_arg_iterator): New.
(init_call_expr_arg_iterator): New.
(next_call_expr_arg): New.
(first_call_expr_arg): New.
(more_call_expr_args_p): New.
(FOR_EACH_CALL_EXPR_ARG): New.
* tree.c (tree_code_class_string): Add entries for tcc_vl_exp
and tcc_gimple_stmt.
(tree_code_size): Update documentation. Use sizeof (tree) rather
than sizeof (char *).
(tree_size): Likewise. Add case for tcc_vl_exp.
(tree_node_structure): Add case for tcc_vl_exp.
(contains_placeholder_p): Likewise.
(substitute_in_expr): Likewise.
(substitute_placeholder_in_expr): Likewise.
(stabilize_reference_1): Likewise.
(build3_stat): Remove logic for CALL_EXPRs. Replace with assertion
to diagnose breakage of this interface for constructing CALL_EXPRs.
(build_nt): Add similar assertion here.
(build_nt_call_list): New.
(simple_cst_equal) <CALL_EXPR>: Rewrite to use new accessors.
(iterative_hash_expr): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(get_callee_fndecl): Use new CALL_EXPR accessors.
(tree_operand_check_failed): Change parameters to pass entire node
instead of its code, so that we can call TREE_OPERAND_LENGTH on it.
(process_call_operands): New.
(build_vl_exp_stat): New.
(build_call_list): New.
(build_call_nary): New.
(build_call_valist): New.
(build_call_array): New.
(walk_tree): Use TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(call_expr_arglist): New.
* tree.def (CALL_EXPR): Change representation of CALL_EXPRs to use
tcc_vl_exp instead of a fixed-size tcc_expression.
* doc/c-tree.texi (CALL_EXPR): Document new representation and
accessors for CALL_EXPRs.
(AGGR_INIT_EXPR): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* builtins.c (c_strlen): Return NULL_TREE instead of 0.
(expand_builtin_nonlocal_goto): Change parameter to be entire
CALL_EXPR instead of an arglist. Use new CALL_EXPR accessors.
(expand_builtin_prefetch): Likewise.
(expand_builtin_classify_type): Likewise.
(mathfn_built_in): Return NULL_TREE instead of 0.
(expand_errno_check): Use new CALL_EXPR accessors.
(expand_builtin_mathfn): Use new CALL_EXPR accessors and constructors.
Return NULL_RTX instead of 0.
(expand_builtin_mathfn_2): Likewise.
(expand_builtin_mathfn_3): Likewise.
(expand_builtin_interclass_mathfn): Likewise.
(expand_builtin_sincos): Likewise.
(expand_builtin_cexpi): Likewise.
(expand_builtin_int_roundingfn): Likewise.
(expand_builtin_int_roundingfn_2): Likewise.
(expand_builtin_pow): Likewise.
(expand_builtin_powi): Likewise.
(expand_builtin_strlen): Pass entire CALL_EXPR as parameter instead
of arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_RTX instead of 0.
(expand_builtin_strstr): Likewise.
(expand_builtin_strchr): Likewise.
(expand_builtin_strrchr): Likewise.
(expand_builtin_strpbrk): Likewise.
(expand_builtin_memcpy): Likewise.
(expand_builtin_mempcpy): Likewise.
(expand_builtin_mempcpy_args): New.
(expand_builtin_memmove): Similarly to expand_builtin_mempcpy.
(expand_builtin_memmove_args): New.
(expand_builtin_bcopy): Similarly to expand_builtin_mempcpy.
(expand_movstr): Likewise.
(expand_builtin_strcpy): Likewise.
(expand_builtin_strcpy_args): New.
(expand_builtin_stpcpy): Similarly to expand_builtin_strcpy.
(expand_builtin_strncpy): Likewise.
(expand_builtin_memset): Likewise.
(expand_builtin_memset_args): New.
(expand_builtin_bzero): Similarly to expand_builtin_memset.
(expand_builtin_memcmp): Likewise.
(expand_builtin_strcmp): Likewise.
(expand_builtin_strncmp): Likewise.
(expand_builtin_strcat): Likewise.
(expand_builtin_strncat): Likewise.
(expand_builtin_strspn): Likewise.
(expand_builtin_strcspn): Likewise.
(expand_builtin_args_info): Likewise.
(expand_builtin_va_start): Likewise.
(gimplify_va_arg_expr): Likewise.
(expand_builtin_va_end): Likewise.
(expand_builtin_va_copy): Likewise.
(expand_builtin_frame_address): Likewise.
(expand_builtin_alloca): Likewise.
(expand_builtin_bswap): Likewise.
(expand_builtin_unop): Likewise.
(expand_builtin_fputs): Likewise.
(expand_builtin_expect): Likewise.
(expand_builtin_fabs): Likewise.
(expand_builtin_copysign): Likewise.
(expand_builtin_printf): Likewise.
(expand_builtin_fprintf): Likewise.
(expand_builtin_sprintf): Likewise.
(expand_builtin_init_trampoline): Likewise.
(expand_builtin_signbit): Likewise.
(expand_builtin_fork_or_exec): Likewise.
(expand_builtin_sync_operation): Likewise.
(expand_builtin_compare_and_swap): Likewise.
(expand_builtin_lock_test_and_set): Likewise.
(expand_builtin_lock_release): Likewise.
(expand_builtin): Likewise.
(builtin_mathfn_code): Likewise.
(fold_builtin_constant_p): Pass call arguments individually instead
of as an arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_TREE instead of 0.
(fold_builtin_expect): Likewise.
(fold_builtin_classify_type): Likewise.
(fold_builtin_strlen): Likewise.
(fold_builtin_nan): Likewise.
(integer_valued_real_p): Likewise.
(fold_trunc_transparent_mathfn): Likewise.
(fold_fixed_mathfn): Likewise.
(fold_builtin_cabs): Likewise.
(fold_builtin_sqrt): Likewise.
(fold_builtin_cbrt): Likewise.
(fold_builtin_cos): Likewise.
(fold_builtin_cosh): Likewise.
(fold_builtin_tan): Likewise.
(fold_builtin_sincos): Likewise.
(fold_builtin_cexp): Likewise.
(fold_builtin_trunc): Likewise.
(fold_builtin_floor): Likewise.
(fold_builtin_ceil): Likewise.
(fold_builtin_round): Likewise.
(fold_builtin_int_roundingfn): Likewise.
(fold_builtin_bitop): Likewise.
(fold_builtin_bswap): Likewise.
(fold_builtin_logarithm): Likewise.
(fold_builtin_hypot): Likewise.
(fold_builtin_pow): Likewise.
(fold_builtin_powi): Likewise.
(fold_builtin_exponent): Likewise.
(fold_builtin_memset): Likewise.
(fold_builtin_bzero): Likewise.
(fold_builtin_memory_op): Likewise.
(fold_builtin_bcopy): Deleted; call site changed to invoke
fold_builtin_memory_op directly.
(fold_builtin_strcpy): Similarly as for fold_builtin_memory_op.
(fold_builtin_strncpy): Likewise.
(fold_builtin_memcmp): Likewise.
(fold_builtin_strcmp): Likewise.
(fold_builtin_strncmp): Likewise.
(fold_builtin_signbit): Likewise.
(fold_builtin_copysign): Likewise.
(fold_builtin_isascii): Likewise.
(fold_builtin_toascii): Likewise.
(fold_builtin_isdigit): Likewise.
(fold_builtin_fabs): Likewise.
(fold_builtin_abs): Likewise.
(fold_builtin_fmin_fmax): Likewise.
(fold_builtin_carg): Likewise.
(fold_builtin_classify): Likewise.
(fold_builtin_unordered_cmp): Likewise.
(fold_builtin_0, fold_builtin_2, fold_builtin_3, fold_builtin_4):
New functions split out from fold_builtin_1.
(fold_builtin_n): New.
(fold_builtin_varargs): New.
(fold_builtin): Deleted. Most callers changed to use fold_call_expr
instead.
(fold_call_expr): New.
(build_function_call_expr): Rewrite to use new helper function.
(fold_builtin_call_list): New.
(build_call_expr): New.
(fold_builtin_call_valist): New.
(rewrite_call_expr): New.
(validate_arg): New.
(validate_arglist): Change parameter to be entire CALL_EXPR instead
of an arglist. Change return type to bool. Use new CALL_EXPR
accessors.
(fold_builtin_strstr): Pass call arguments individually instead
of as an arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_TREE instead of 0.
(fold_builtin_strchr): Likewise.
(fold_builtin_strrchr): Likewise.
(fold_builtin_strpbrk): Likewise.
(fold_builtin_strcat): Likewise.
(fold_builtin_strncat): Likewise.
(fold_builtin_strspn): Likewise.
(fold_builtin_strcspn): Likewise.
(fold_builtin_fputs): Likewise.
(fold_builtin_next_arg): Likewise.
(fold_builtin_sprintf): Likewise.
(expand_builtin_object_size): Use new CALL_EXPR accessors. Use
NULL_RTX instead of 0.
(expand_builtin_memory_chk): Likewise.
(maybe_emit_chk_warning): Likewise.
(maybe_emit_sprintf_chk_warning): Likewise.
(fold_builtin_object_size): Pass call arguments individually instead
of as an arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_TREE instead of 0.
(fold_builtin_memory_chk): Likewise.
(fold_builtin_stxcpy_chk): Likewise.
(fold_builtin_strncpy_chk): Likewise.
(fold_builtin_strcat_chk): Likewise.
(fold_builtin_strcat_chk): Likewise.
(fold_builtin_strncat_chk): Likewise.
(fold_builtin_sprintf_chk): Likewise.
(fold_builtin_snprintf_chk): Likewise.
(fold_builtin_printf): Likewise.
(fold_builtin_vprintf): Likewise.
* fold-const.c (negate_expr_p): Use new CALL_EXPR accessors and
constructors.
(operand_equal_p): Add separate tcc_vl_exp/CALL_EXPR case.
(make_range): Use TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(extract_muldiv_1): Add VL_EXP_CLASS_P case.
(fold_mathfn_compare): Use new CALL_EXPR accessors and constructors.
(fold_unary): Likewise.
(fold_binary): Likewise.
(fold_ternary): Remove CALL_EXPR case, since they are no longer
ternary expressions.
(fold): Add logic for tcc_vl_exp.
(fold_checksum_tree): Make it know about tcc_vl_exp. Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(fold_build3_stat): Add assertion to flag broken interface for
constructing CALL_EXPRs.
(fold_build_call_list): New.
(fold_build_call_list_initializer): New.
(tree_expr_nonnegative_p): Use new CALL_EXPR accessors and
constructors.
(fold_strip_sign_ops): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* tree-dump.c (dequeue_and_dump) <CALL_EXPR>: Use new CALL_EXPR
accessors and dump arguments explicitly.
* tree-pretty-print.c (do_niy): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(dump_generic_node): Use new CALL_EXPR accessors and walk arguments
explicitly.
(print_call_name): Use new CALL_EXPR accessors.
* print-tree.c (print_node): Add case tcc_vl_exp. Print
CALL_EXPR arguments explicitly instead of as a list. Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
* tree-vrp.c (stmt_interesting_for_vrp): Use new CALL_EXPR accessors.
(vrp_visit_stmt): Likewise.
* tree-ssa-loop-im.c (outermost_invariant_loop_expr): Make it
know about tcc_vl_exp. Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(force_move_till_expr): Likewise.
* targhooks.c (default_external_stack_protect_fail): Use
build_call_expr instead of build_function_call_expr.
(default_hidden_stack_protect_fail): Likewise.
* tree-complex.c (expand_complex_libcall): Use build_call_expr to
build the call.
* cgraphbuild.c (build_cgraph_edges): Use new CALL_EXPR accessors
and walk arguments explicitly.
* tree-ssa-loop-niter.c (simplify_replace_tree): Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(expand_simple_operations): Likewise.
(infer_loop_bounds_from_array): Use new CALL_EXPR accessors.
* gengtype.c (adjust_field_tree_exp): Use TREE_OPERAND_LENGTH instead
of TREE_CODE_LENGTH.
(walk_type): Tweak walking of arrays not to blow up on CALL_EXPRs.
* optabs.c (expand_widen_pattern-expr): Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
* value_prof.c (tree_ic): Use new CALL_EXPR accessors.
(tree_ic_transform): Likewise.
(interesting_stringop_to_profile_p): Pass entire CALL_EXPR as
parameter instead of arglist. Fix callers.
(tree_stringop_fixed_value): Use new CALL_EXPR accessors.
(tree_stringops_transform): Likewise.
(tree_indirect_call_to_profile): Likewise.
(tree_stringops_values_to_profile): Likewise.
* tree-tailcall.c (find_tail_calls): Use new CALL_EXPR iterator.
(eliminate_tail_call): Likewise.
* ipa-cp.c (ipcp_update_callgraph): Use new CALL_EXPR accessors.
* tree-scalar-evolution.c (chrec_contains_symbols_defined_in_loop):
Use TREE_OPERAND_LENGTH and generalize to handle any number of
operands.
(instantiate_parameters_1): Can't handle tcc_vl_exp here.
* omp-low.c (build_omp_barrier): Use build_call_expr.
(lower_rec_input_clauses): Likewise.
(lower_reduction_clauses): Likewise.
(expand_parallel_call): Likewise.
(maybe_catch_exception): Likewise.
(expand_omp_for_generic): Likewise.
(expand_omp_for_static_nochunk): Likewise.
(expand_omp_sections): Likewise.
(lower_omp_single_simple): Likewise.
(lower_omp_single_copy): Likewise.
(lower_omp_master): Likewise.
(lower_omp_ordered): Likewise.
(lower_omp_critical): Likewise.
* ipa-reference.c (check-call): Use new CALL_EXPR iterator.
(scan_for_static_refs): Create tcc_vl_exp case for CALL_EXPR.
* tree-gimple.c (is_gimple_call_addr): Fix doc.
(recalculate_side_effects): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH. Add tcc_vl_exp case.
* tree-chrec.c (chrec_contains_symbols): Use TREE_OPERAND_LENGTH
and generalize to handle any number of operands.
(chrec_contains_undetermined): Likewise.
(tree_contains_chrecs): Likewise.
(evolution_function_is_invariant_rec_p): Use TREE_OPERAND_LENGTH.
* cgraphunit.c (update_call_expr): Use new CALL_EXPR accessors.
* tree-ssa-ccp.c (ccp_fold): Use new CALL_EXPR accessors. Use
fold_call_expr instead of fold_builtin.
(ccp_fold_builtin): Likewise. Update calls into builtins.c to
match declarations there.
(fold_stmt): Use new CALL_EXPR constructor and accessors. Doc
updates.
* tree-ssa-loop-ivopts.c (expr_invariant_in_loop_p): Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
* ipa-pure-const.c (check_call): Use new CALL_EXPR accessors.
(scan_function): Add case tcc_vl_exp for CALL_EXPR.
* tree-stdarg.c (execute_optimize_stdarg): Use new CALL_EXPR
accessors.
* tree-ssa-math-opts.c (execute_cse_sincos_1): Use build_call_expr.
(execute_cse_sincos): Use new CALL_EXPR accessors.
* tree-ssa-alias.c (find_used_portions): Use new CALL_EXPR iterator.
* gimple-low.c (lower_function_body): Use build_call_expr.
(lower_builtin_setjmp): Likewise.
* expr.c (emit_block_move_via_libcall): Use build_call_expr.
(set_storage_via_libcall): Likewise.
(safe_from_p): Add tcc_vl_exp case. Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
(expand_expr_real_1): Use new CALL_EXPR accessors.
* tree-browser.c (store_child_info): Use TREE_OPERAND_LENGTH and
generalize to handle any number of operands.
(TB_parent_eq): Likewise.
* predict.c (expr_expected_value): Use new CALL_EXPR accessors.
(strip_builtin_expect): Likewise.
* function.c (gimplify_parameters): Use build_call_expr.
* tree-vectorizer.c (vect_is_simple_reduction): Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
* ipa-type-escape.c (check_call): Use new CALL_EXPR iterators.
(scan_for_refs): Add case tcc_vl_exp for CALL_EXPR.
* tree-data-ref.c (get_references_in_stmt): Use new CALL_EXPR
iterators.
* gimplify.c (build_stack_save_restore): Use build_call_expr.
(gimplify_decl_expr): Likewise.
(gimplify_call_expr): Use fold_call_expr instead of fold_builtin.
Use new CALL_EXPR iterators.
(gimplify_modify_expr_to_memcpy): Use build_call_expr.
(gimplify_modify_expr_to_memset): Likewise.
(gimplify_variable_sized_compare): Likewise.
(gimplify_omp_atomic_fetch_op): Likewise.
(gimplify_omp_atomic_pipeline): Likewise.
(gimplify_omp_atomic_mutex): Likewise.
(gimplify_function_tree): Likewise.
* calls.c (alloca_call_p): Use new CALL_EXPR accessors.
(call_expr_flags): Likewise.
(expand_call): Likewise.
* except.c (expand_builtin_eh_return_data_regno): Pass entire
CALL_EXPR as parameter instead of arglist. Use new CALL_EXPR
accessors.
* coverage.c (create_coverage): Use build_call_expr.
* tree-ssa-pre.c (expression_node_pool, list_node_pool): Delete.
(temp_call_expr_obstack): New.
(pool_copy_list): Delete.
(temp_copy_call_expr): New.
(phi_translate): Add case tcc_vl_exp for CALL_EXPR. Use new
CALL_EXPR accessors. Get rid of special goo for copying argument
lists and use temp_copy_call_expr instead.
(valid_in_sets): Add case tcc_vl_exp for CALL_EXPR. Use new
CALL_EXPR accessors.
(create_expression_by_pieces): Likewise. Use build_call_array
to construct the result instead of fold_build3.
(create_value_expr_from): Add tcc_vl_exp. Delete special goo for
dealing with argument lists.
(init_pre): Remove references to expression_node_pool and
list_node_pool. Init temp_call_expr_obstack instead.
(fini_pre): Remove references to expression_node_pool and
list_node_pool.
* tree-sra.c (sra_walk_call_expr): Use new CALL_EXPR accessors
and walk arguments explicitly instead of as a list.
* tree-mudflap.c (mf_build_check_statement_for): Use build_call_expr.
(mx_register_decls): Likewise.
(mudflap_register_call): Likewise.
(mudflap_finish_file): Likewise.
* ipa-prop.c (ipa_callsite_compute_count): Use new CALL_EXPR accessors.
(ipa_callsite_compute_param): Likewise.
* tree-vect-patterns.c (vect_recog_pow_pattern): Use new CALL_EXPR
accessors and constructor.
* tree-nested.c (convert_nl_goto_reference): Use new CALL_EXPR
accessors and constructor.
(convert_tramp_reference): Likewise.
(convert_call_expr): Likewise.
(finalize_nesting_tree_1): Likewise.
* tree-ssa.c (tree_ssa_useless_type_conversion): Use new CALL_EXPR
accessors.
* tree-ssa-loop-prefetch.c (issue_prefetch_ref): Use build_call_expr.
* tree-inline.c (initialize_inlined_parameters): Pass entire
CALL_EXPR as parameter instead of arglist. Use new CALL_EXPR
accessors.
(estimate_num_insns_1): Use new CALL_EXPR accessors.
(expand_call_inline): Tidy up call to initialize_inlined_parameters.
* tree-vect-transform.c (vect_create_epilog_for_reduction): Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(vectorizable_reduction): Likewise.
(vectorizable_call): Use new CALL_EXPR iterators.
(vectorizable_conversion): Use build_call_expr.
(vectorizable_operation): Use TREE_OPERAND_LENGTH.
(vect_gen_widened_results_half): Use build_call_expr.
(vect_setup_realignment): Likewise.
(vectorizable_live_operation): Use TREE_OPERAND_LENGTH.
* tree-object-size.c (alloc_object_size): Use new CALL_EXPR accessors.
(pass_through_call): Likewise.
(compute_object_sizes): Likewise. Use fold_call_expr instead of
fold_builtin.
* tree-profile.c (tree_gen_interval_profiler): Use build_call_expr.
(tree_gen_pow2_profiler): Likewise.
(tree_gen_one_value_profiler): Likewise.
(tree_gen_ic_func_profiler): Likewise.
(tree_gen_average_profiler): Likewise.
(tree_gen_ior_profiler): Likewise.
* tree-ssa-structalias.c (get_constraint_for): Add case tcc_vl_exp.
(find_func_aliases): Use new CALL_EXPR accessors. Add case
tcc_vl_exp. Use TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
* tree-ssa-reassoc.c (get_rank): Use TREE_OPERAND_LENGTH instead
of TREE_CODE_LENGTH.
* stmt.c (warn_if_unused_value): Use TREE_OPERAND_LENGTH instead
of TREE_CODE_LENGTH.
* convert.c (convert_to_real): Use new CALL_EXPR accessors and
constructor.
(convert_to_integer): Likewise.
* tree-ssa-operands.c (get_call_expr_operands): Use new CALL_EXPR
accessors.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* config/alpha/alpha.c (alpha_expand_builtin): Use new CALL_EXPR
accessors.
* config/frv/frv.c (frv_expand_builtin): Likewise.
* config/s390/s390.c (s390_expand_builtin): Likewise.
* config/sparc/sparc.c (sparc_gimplify_va_arg): Use build_call_expr.
(sparc_expand_builtin): Use new CALL_EXPR accessors.
* config/i386/i386.c (ix86_function_ok_for_sibcall): Likewise.
(ix86_expand_binop_builtin): Pass entire CALL_EXPR as parameter
instead of arglist. Use new CALL_EXPR accessors on it. Fix callers.
(ix86_expand_store_builtin): Likewise.
(ix86_expand_unop_builtin): Likewise.
(ix86_expand_unop1_builtin): Likewise.
(ix86_expand_sse_compare): Likewise.
(ix86_expand_sse_comi): Likewise.
(ix86_expand_vec_init_builtin): Likewise.
(ix86_expand_vec_ext_builtin): Likewise.
(ix86_expand_vec_set_builtin): Likewise.
(ix86_expand_builtin): Use new CALL_EXPR accessors.
* config/sh/sh.c (sh_expand_builtin): Use new CALL_EXPR accessors.
* config/c4x/c4x.c (c4x_expand_builtin): Likewise.
* config/iq2000/iq2000.c (expand_one_builtin): Pass entire CALL_EXPR
instead of arglist. Use new CALL_EXPR accessors. Fix callers.
(iq2000_expand_builtin): Use new CALL_EXPR accessors.
* config/rs6000/rs6000-c.c (altivec_build_resolved_builtin): Use
build_call_expr.
* config/rs6000/rs6000.c (rs6000_gimplify_va_arg): Likewise.
(rs6000_expand_unop_builtin): Pass entire CALL_EXPR instead of
arglist. Use new CALL_EXPR accessors. Fix callers.
(altivec_expand_abs_builtin): Likewise.
(rs6000_expand_binop_builtin): Likewise.
(altivec_expand_predicate_builtin): Likewise.
(altivec_expand_lv_builtin): Likewise.
(spe_expand_stv_builtin): Likewise.
(altivec_expand_stv_builtin): Likewise.
(rs6000_expand_ternop_builtin): Likewise.
(altivec_expand_ld_builtin): Use new CALL_EXPR accessors.
(altivec_expand_st_builtin): Likewise.
(altivec_expand_dst_builtin): Likewise.
(altivec_expand_vec_init_builtin): Pass entire CALL_EXPR instead of
arglist. Use new CALL_EXPR accessors. Fix callers.
(altivec_expand_vec_set_builtin): Likewise.
(altivec_expand_vec_ext_builtin): Likewise.
(altivec_expand_builtin): Use new CALL_EXPR accessors.
(spe_expand_builtin): Likewise.
(spe_expand_predicate_builtin): Pass entire CALL_EXPR instead of
arglist. Use new CALL_EXPR accessors. Fix callers.
(spe_expand_evsel_builtin): Likewise.
(rs6000_expand_builtin): Use new CALL_EXPR accessors. VCFUX and
FCFSX cases must construct whole new CALL_EXPR, not just arglist.
* config/arm/arm.c (arm_expand_binop_builtin): Pass entire CALL_EXPR
instead of arglist. Use new CALL_EXPR accessors. Fix callers.
(arm_expand_unop_builtin): Likewise.
(arm_expand_builtin): Use new CALL_EXPR accessors.
* config/mips/mips.c (mips_expand_builtin): Use new CALL_EXPR
accessors.
* config/bfin/bfin.c (bfin_expand_binop_builtin): Pass entire CALL_EXPR
instead of arglist. Use new CALL_EXPR accessors. Fix callers.
(bfin_expand_unop_builtin): Likewise.
(bfin_expand_builtin): Use new CALL_EXPR accessors.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* c-semantics.c (build_stmt): Add internal diagnostic check.
* c-pretty-print.c (pp_c_postfix_expression): Use new CALL_EXPR
accessors. Print arguments explicitly instead of as a list.
* c-typeck.c (build_function_call): Use new CALL_EXPR constructors.
* c-omp.c (c_finish_omp_barrier): Use build_call_expr.
(c_finish_omp_flish): Likewise.
* c-common.c (verify_tree): Use new CALL_EXPR accessors. Traverse
arguments explicitly instead of as a list. Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
(check_function_arguments_recurse): Use new CALL_EXPR accessors.
(c_warn_unused_result): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* cp-tree.def (AGGR_INIT_EXPR): Adjust documentation.
Change class to tcc_vl_exp.
* call.c (build_call): Use build_call_list instead
of build3.
(build_over_call): Likewise.
(build_new_method_call): Use build_min_non_dep_call_list
instead of build_min_non_dep.
* error.c (dump_call_expr_args): New function.
(dump_aggr_init_expr_args): New function.
(dump_expr) <AGGR_INIT_EXPR, CALL_EXPR, INDIRECT_REF>: Use them.
Update to use new CALL_EXPR and AGGR_INIT_EXPR accessor macros.
* cvt.c (convert_to_void): Use build_call_array instead
of build3; use new AGGR_INIT_EXPR accessor macros.
* mangle.c (write_expression): Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
* dump.c (cp_dump_tree) <AGGR_INIT_EXPR>: Update to use new
AGGR_INIT_EXPR accessor macros.
* cp-gimplify.c (cp_gimplify_init_expr): Use
AGGR_INIT_EXPR_SLOT to set the slot operand.
* cp-tree.h (AGGR_INIT_EXPR_FN): New macro.
(AGGR_INIT_EXPR_SLOT): New macro.
(AGGR_INIT_EXPR_ARG): New macro.
(aggr_init_expr_nargs): New macro.
(AGGR_INIT_EXPR_ARGP): New macro.
(aggr_init_expr_arg_iterator): New.
(init_aggr_init_expr_arg_iterator): New.
(next_aggr_init_expr_arg): New.
(first_aggr_init_expr_arg): New.
(more_aggr_init_expr_args_p): New.
(FOR_EACH_AGGR_INIT_EXPR_ARG): New.
(stabilize_aggr_init): New declaration.
(build_min_non_dep_call_list): Likewise.
* tree.c (process_aggr_init_operands): New function.
(build_aggr_init_array) New function.
(build_cplus_new): Update to use new CALL_EXPR and
AGGR_INIT_EXPR accessor macros. Replace use of build3 with
build_aggr_init_array.
(build_min_non_dep_call_list) New function.
(build_min_nt): Assert input code parameter is not a variable
length expression class.
(build_min, build_min_non_dep): Likewise.
(cp_tree_equal) <CALL_EXPR>: Iterate through the arguments
to check for equality instead of recursing. Handle tcc_vl_exp
tree code classes.
(stabilize_call): Update to only handle CALL_EXPRs, not
AGGR_INIT_EXPRs; use new CALL_EXPR accessor macros.
(stabilize_aggr_init): New function.
(stabilize_init): Use it.
* cxx-pretty-print.c (pp_cxx_postfix_expression)
<AGGR_INIT_EXPR, CALL_EXPR>: Update to use new CALL_EXPR and
AGGR_INIT_EXPR accessor macros and argument iterators.
* pt.c (tsubst_copy) <CALL_EXPR>: Replace build_nt with
build_vl_exp. Iterate through the operands, recursively
processing each one.
(tsubst_copy_and_build) <CALL_EXPR>: Update to use new
CALL_EXPR accessor macros.
(value_dependent_expression_p) <default>: Handle tcc_vl_exp
tree code classes. Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
* semantics.c (finish_call_expr): Use build_nt_call_list
instead of build_nt.
(simplify_aggr_init_expr): Update to use new AGGR_INIT_EXPR
accessor macros. Use build_call_array to construct the
CALL_EXPR node instead of build3
* decl2.c (build_offset_ref_call_from_tree): Use
build_nt_call_list and build_min_non_dep_call_list instead
of build_min_nt and build_min_non_dep.
* parser.c (cp_parser_postfix_expression) <CPP_OPEN_PAREN>:
Use build_nt_call_list instead of build_min_nt.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* java-tree.h (BUILD_MONITOR_ENTER): Use build_call_nary instead
of build3.
(BUILD_MONITOR_EXIT): Likewise.
* java-gimplify.c (java_gimplify_component_ref): Use build_call_expr.
(java_gimplify_modify_expr): Likewise.
* class.c (cache_this_class_ref): Use build_call_expr.
(build_static_field_ref): Likewise.
(emit_indirect_register_classes): Likewise.
(emit_register_classes): Likewise.
* resource.c (write_resource_constructor): Use build_call_expr.
* builtins.c (builtin_creator_function): Change interpretation of
the second parameter to be the whole CALL_EXPR instead of the arglist.
(max_builtin): Tweak parameter list. Use new CALL_EXPR accessors.
(min_builtin): Likewise.
(abs_builtin): Likewise.
(java_build_function_call_expr): Likewise.
(convert_real): Likewise.
(UNMARSHAL3): Likewise.
(UNMARSHAL4): Likewise.
(UNMARSHAL5): Likewise.
(build_arglist_for_builtin): Delete. Fix callers to use
build_call_expr instead.
(putObject_builtin): Tweak parameter list. Use new CALL_EXPR
accessors.
(compareAndSwapInt_builtin): Likewise.
(compareAndSwapLong_builtin): Likewise.
(compareAndSwapObject_builtin): Likewise.
(putVolatile_builtin): Likewise.
(getVolatile_builtin): Likewise.
(VMSupportsCS8_builtin): Likewise.
(check_for_builtin): Pass entire CALL_EXPR to builtin expander
instead of arglist.
* expr.c (build_java_athrow): Use build_call_nary instead of build3.
(build_java_throw_out_of_bounds_exception): Likewise.
(java_check_reference): Likewise.
(build_java_arraystore_check): Likewise.
(build_newarray): Likewise.
(build_anewarray): Likewise.
(expand_java_multinewarray): Use build_call_list instead of build3.
(build_java_monitor): Use build_call_nary instead of build3.
(java_create_object): Likewise.
(expand_java_NEW): Likewise.
(build_instanceof): Likewise.
(expand_java_CHECKCAST): Likewise.
(build_java_soft_divmod): Likewise.
(build_java_binop): Likewise.
(build_field_ref): Likewise.
(build_class_init): Likewise.
(rewrite_arglist_getcaller): Use build_call_expr.
(build_invokeinterface): Use build_call_nary instead of build3.
(expand_invoke): Use build_call_list instead of build3.
(build_jni_stub): Use build_call_nary, build_call_list, or
build_call_expr instead of build3.
(expand_java_field_op): Use build_call_expr instead of build3.
(force_evaluation_order): Use new CALL_EXPR accessors.
* lang.c (java_get_callee_fndecl): Use new CALL_EXPR accessors.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* objc-act.c (receiver_is_class_object): Use new CALL_EXPR accessors.
(objc_get_callee_fndecl): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* trans-expr.c (gfc_conv_power_op): Use build_call_expr.
(gfc_conv_string_tmp): Likewise.
(gfc_conv_concat_op): Likewise.
(gfc_build_compare_string): Likewise.
(gfc_conv_function_call): Use build_call_list instead of build3.
* trans-array.c (gfc_trans_allocate_array_storage): Use
build_call_expr.
(gfc_grow_array): Likewise.
(gfc_trans_array_ctor_element): Likewise.
(gfc_trans_array_constructor_value): Likewise.
(gfc_array_allocate): Likewise.
(gfc_array_deallocate): Likewise.
(gfc_trans_auto_array_allocation): Likewise.
(gfc_trans_dummy_array_bias): Likewise.
(gfc_conv_array_parameter): Likewise.
(gfc_trans_dealloc_allocated): Likewise.
(gfc_duplicate_allocatable): Likewise.
* trans-openmp.c (gfc_trans_omp_barrier): Use build_call_expr.
(gfc_trans_omp_flush): Likewise.
* trans-stmt.c (gfc_conv_elementel_dependencies): Use build_call_expr.
(gfc_trans_pause): Likewise.
(gfc_trans_stop): Likewise.
(gfc_trans_character_select): Likewise.
(gfc_do_allocate): Likewise.
(gfc_trans_assign_need_temp): Likewise.
(gfc_trans_pointer_assign_need_temp): Likewise.
(gfc_trans_forall_1): Likewise.
(gfc_trans_where_2): Likewise.
(gfc_trans_allocate): Likewise.
(gfc_trans_deallocate): Likewise.
* trans.c (gfc_trans_runtime_check): Use build_call_expr.
* trans-io.c (gfc_trans_open): Use build_call_expr.
(gfc_trans_close): Likewise.
(build_filepos): Likewise.
(gfc_trans_inquire): Likewise.
(NML_FIRST_ARG): Delete.
(NML_ADD_ARG): Delete.
(transfer_namelist_element): Use build_call_expr.
(build_dt): Likewise.
(gfc_trans_dt_end): Likewise.
(transfer_expr): Likewise.
(transfer_array-desc): Likewise.
* trans-decl.c (gfc_generate_function_code): Use build_call_expr.
(gfc_generate_constructors): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_ctime): Use build_call_expr.
(gfc_conv_intrinsic_fdate): Likewise.
(gfc_conv_intrinsic_ttynam): Likewise.
(gfc_conv_intrinsic_array_transfer): Likewise.
(gfc_conv_associated): Likewise.
(gfc_conv_intrinsic_si_kind): Likewise.
(gfc_conv_intrinsic_trim): Likewise.
(gfc_conv_intrinsic_repeat: Likewise.
(gfc_conv_intrinsic_iargc): Likewise.
Co-Authored-By: Brooks Moses <brooks.moses@codesourcery.com>
Co-Authored-By: Lee Millward <lee.millward@codesourcery.com>
From-SVN: r122018
2007-02-16 00:50:49 +01:00
|
|
|
|
/* When walking an array, compute the length and store it in a
|
|
|
|
|
local variable before walking the array elements, instead of
|
|
|
|
|
recomputing the length expression each time through the loop.
|
|
|
|
|
This is necessary to handle tcc_vl_exp objects like CALL_EXPR,
|
|
|
|
|
where the length is stored in the first array element,
|
|
|
|
|
because otherwise that operand can get overwritten on the
|
|
|
|
|
first iteration. */
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d->of, "%*s{\n", d->indent, "");
|
|
|
|
|
d->indent += 2;
|
|
|
|
|
oprintf (d->of, "%*ssize_t i%d;\n", d->indent, "", loopcounter);
|
tree.h (enum tree_code_class): Add tcc_vl_exp.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* tree.h (enum tree_code_class): Add tcc_vl_exp.
(VL_EXP_CLASS_P): New.
(TREE_OPERAND_CHECK): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(TREE_OPERAND_CHECK_CODE): Likewise.
(GIMPLE_STMT_OPERAND_CHECK): Likewise.
(TREE_RTL_OPERAND_CHECK): Likewise.
(tree_operand_check_failed): Make second parameter the whole tree
instead of its code. Fixed callers.
(VL_EXP_CHECK): New.
(TREE_OPERAND_LENGTH): New.
(VL_EXP_OPERAND_LENGTH): New.
(CALL_EXPR_FN): New.
(CALL_EXPR_STATIC_CHAIN): New.
(CALL_EXPR_ARGS): New.
(CALL_EXPR_ARG): New.
(call_expr_nargs): New.
(CALL_EXPR_ARGP): New.
(build_nt_call_list): Declare.
(build_vl_exp_stat): Declare.
(build_vl_exp): New.
(build_call_list): Declare.
(build_call_nary): Declare.
(build_call_valist): Declare.
(build_call_array): Declare.
(call_expr_arg): Declare.
(call_expr_argp): Declare.
(call_expr_arglist): Declare.
(fold_build_call_list): Declare.
(fold_build_call_list_initializer): Declare.
(fold_call_expr): Declare to replace fold_builtin.
(fold_builtin_fputs): Update to agree with modified definition.
(fold_builtin_strcpy): Likewise.
(fold_builtin_strncpy): Likewise.
(fold_builtin_memory_chk): Likewise.
(fold_builtin_stxcpy_chk): Likewise.
(fold_builtin_strncpy_chk): Likewise.
(fold_builtin_next_arg): Likewise.
(fold_build_call_expr): Declare.
(fold_builtin_call_list): Declare.
(fold_builtin_call_valist): Declare.
(build_call_expr): Declare.
(validate_arglist): Update to agree with modified definition.
(tree_operand_length): New.
(call_expr_arg_iterator): New.
(init_call_expr_arg_iterator): New.
(next_call_expr_arg): New.
(first_call_expr_arg): New.
(more_call_expr_args_p): New.
(FOR_EACH_CALL_EXPR_ARG): New.
* tree.c (tree_code_class_string): Add entries for tcc_vl_exp
and tcc_gimple_stmt.
(tree_code_size): Update documentation. Use sizeof (tree) rather
than sizeof (char *).
(tree_size): Likewise. Add case for tcc_vl_exp.
(tree_node_structure): Add case for tcc_vl_exp.
(contains_placeholder_p): Likewise.
(substitute_in_expr): Likewise.
(substitute_placeholder_in_expr): Likewise.
(stabilize_reference_1): Likewise.
(build3_stat): Remove logic for CALL_EXPRs. Replace with assertion
to diagnose breakage of this interface for constructing CALL_EXPRs.
(build_nt): Add similar assertion here.
(build_nt_call_list): New.
(simple_cst_equal) <CALL_EXPR>: Rewrite to use new accessors.
(iterative_hash_expr): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(get_callee_fndecl): Use new CALL_EXPR accessors.
(tree_operand_check_failed): Change parameters to pass entire node
instead of its code, so that we can call TREE_OPERAND_LENGTH on it.
(process_call_operands): New.
(build_vl_exp_stat): New.
(build_call_list): New.
(build_call_nary): New.
(build_call_valist): New.
(build_call_array): New.
(walk_tree): Use TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(call_expr_arglist): New.
* tree.def (CALL_EXPR): Change representation of CALL_EXPRs to use
tcc_vl_exp instead of a fixed-size tcc_expression.
* doc/c-tree.texi (CALL_EXPR): Document new representation and
accessors for CALL_EXPRs.
(AGGR_INIT_EXPR): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* builtins.c (c_strlen): Return NULL_TREE instead of 0.
(expand_builtin_nonlocal_goto): Change parameter to be entire
CALL_EXPR instead of an arglist. Use new CALL_EXPR accessors.
(expand_builtin_prefetch): Likewise.
(expand_builtin_classify_type): Likewise.
(mathfn_built_in): Return NULL_TREE instead of 0.
(expand_errno_check): Use new CALL_EXPR accessors.
(expand_builtin_mathfn): Use new CALL_EXPR accessors and constructors.
Return NULL_RTX instead of 0.
(expand_builtin_mathfn_2): Likewise.
(expand_builtin_mathfn_3): Likewise.
(expand_builtin_interclass_mathfn): Likewise.
(expand_builtin_sincos): Likewise.
(expand_builtin_cexpi): Likewise.
(expand_builtin_int_roundingfn): Likewise.
(expand_builtin_int_roundingfn_2): Likewise.
(expand_builtin_pow): Likewise.
(expand_builtin_powi): Likewise.
(expand_builtin_strlen): Pass entire CALL_EXPR as parameter instead
of arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_RTX instead of 0.
(expand_builtin_strstr): Likewise.
(expand_builtin_strchr): Likewise.
(expand_builtin_strrchr): Likewise.
(expand_builtin_strpbrk): Likewise.
(expand_builtin_memcpy): Likewise.
(expand_builtin_mempcpy): Likewise.
(expand_builtin_mempcpy_args): New.
(expand_builtin_memmove): Similarly to expand_builtin_mempcpy.
(expand_builtin_memmove_args): New.
(expand_builtin_bcopy): Similarly to expand_builtin_mempcpy.
(expand_movstr): Likewise.
(expand_builtin_strcpy): Likewise.
(expand_builtin_strcpy_args): New.
(expand_builtin_stpcpy): Similarly to expand_builtin_strcpy.
(expand_builtin_strncpy): Likewise.
(expand_builtin_memset): Likewise.
(expand_builtin_memset_args): New.
(expand_builtin_bzero): Similarly to expand_builtin_memset.
(expand_builtin_memcmp): Likewise.
(expand_builtin_strcmp): Likewise.
(expand_builtin_strncmp): Likewise.
(expand_builtin_strcat): Likewise.
(expand_builtin_strncat): Likewise.
(expand_builtin_strspn): Likewise.
(expand_builtin_strcspn): Likewise.
(expand_builtin_args_info): Likewise.
(expand_builtin_va_start): Likewise.
(gimplify_va_arg_expr): Likewise.
(expand_builtin_va_end): Likewise.
(expand_builtin_va_copy): Likewise.
(expand_builtin_frame_address): Likewise.
(expand_builtin_alloca): Likewise.
(expand_builtin_bswap): Likewise.
(expand_builtin_unop): Likewise.
(expand_builtin_fputs): Likewise.
(expand_builtin_expect): Likewise.
(expand_builtin_fabs): Likewise.
(expand_builtin_copysign): Likewise.
(expand_builtin_printf): Likewise.
(expand_builtin_fprintf): Likewise.
(expand_builtin_sprintf): Likewise.
(expand_builtin_init_trampoline): Likewise.
(expand_builtin_signbit): Likewise.
(expand_builtin_fork_or_exec): Likewise.
(expand_builtin_sync_operation): Likewise.
(expand_builtin_compare_and_swap): Likewise.
(expand_builtin_lock_test_and_set): Likewise.
(expand_builtin_lock_release): Likewise.
(expand_builtin): Likewise.
(builtin_mathfn_code): Likewise.
(fold_builtin_constant_p): Pass call arguments individually instead
of as an arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_TREE instead of 0.
(fold_builtin_expect): Likewise.
(fold_builtin_classify_type): Likewise.
(fold_builtin_strlen): Likewise.
(fold_builtin_nan): Likewise.
(integer_valued_real_p): Likewise.
(fold_trunc_transparent_mathfn): Likewise.
(fold_fixed_mathfn): Likewise.
(fold_builtin_cabs): Likewise.
(fold_builtin_sqrt): Likewise.
(fold_builtin_cbrt): Likewise.
(fold_builtin_cos): Likewise.
(fold_builtin_cosh): Likewise.
(fold_builtin_tan): Likewise.
(fold_builtin_sincos): Likewise.
(fold_builtin_cexp): Likewise.
(fold_builtin_trunc): Likewise.
(fold_builtin_floor): Likewise.
(fold_builtin_ceil): Likewise.
(fold_builtin_round): Likewise.
(fold_builtin_int_roundingfn): Likewise.
(fold_builtin_bitop): Likewise.
(fold_builtin_bswap): Likewise.
(fold_builtin_logarithm): Likewise.
(fold_builtin_hypot): Likewise.
(fold_builtin_pow): Likewise.
(fold_builtin_powi): Likewise.
(fold_builtin_exponent): Likewise.
(fold_builtin_memset): Likewise.
(fold_builtin_bzero): Likewise.
(fold_builtin_memory_op): Likewise.
(fold_builtin_bcopy): Deleted; call site changed to invoke
fold_builtin_memory_op directly.
(fold_builtin_strcpy): Similarly as for fold_builtin_memory_op.
(fold_builtin_strncpy): Likewise.
(fold_builtin_memcmp): Likewise.
(fold_builtin_strcmp): Likewise.
(fold_builtin_strncmp): Likewise.
(fold_builtin_signbit): Likewise.
(fold_builtin_copysign): Likewise.
(fold_builtin_isascii): Likewise.
(fold_builtin_toascii): Likewise.
(fold_builtin_isdigit): Likewise.
(fold_builtin_fabs): Likewise.
(fold_builtin_abs): Likewise.
(fold_builtin_fmin_fmax): Likewise.
(fold_builtin_carg): Likewise.
(fold_builtin_classify): Likewise.
(fold_builtin_unordered_cmp): Likewise.
(fold_builtin_0, fold_builtin_2, fold_builtin_3, fold_builtin_4):
New functions split out from fold_builtin_1.
(fold_builtin_n): New.
(fold_builtin_varargs): New.
(fold_builtin): Deleted. Most callers changed to use fold_call_expr
instead.
(fold_call_expr): New.
(build_function_call_expr): Rewrite to use new helper function.
(fold_builtin_call_list): New.
(build_call_expr): New.
(fold_builtin_call_valist): New.
(rewrite_call_expr): New.
(validate_arg): New.
(validate_arglist): Change parameter to be entire CALL_EXPR instead
of an arglist. Change return type to bool. Use new CALL_EXPR
accessors.
(fold_builtin_strstr): Pass call arguments individually instead
of as an arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_TREE instead of 0.
(fold_builtin_strchr): Likewise.
(fold_builtin_strrchr): Likewise.
(fold_builtin_strpbrk): Likewise.
(fold_builtin_strcat): Likewise.
(fold_builtin_strncat): Likewise.
(fold_builtin_strspn): Likewise.
(fold_builtin_strcspn): Likewise.
(fold_builtin_fputs): Likewise.
(fold_builtin_next_arg): Likewise.
(fold_builtin_sprintf): Likewise.
(expand_builtin_object_size): Use new CALL_EXPR accessors. Use
NULL_RTX instead of 0.
(expand_builtin_memory_chk): Likewise.
(maybe_emit_chk_warning): Likewise.
(maybe_emit_sprintf_chk_warning): Likewise.
(fold_builtin_object_size): Pass call arguments individually instead
of as an arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_TREE instead of 0.
(fold_builtin_memory_chk): Likewise.
(fold_builtin_stxcpy_chk): Likewise.
(fold_builtin_strncpy_chk): Likewise.
(fold_builtin_strcat_chk): Likewise.
(fold_builtin_strcat_chk): Likewise.
(fold_builtin_strncat_chk): Likewise.
(fold_builtin_sprintf_chk): Likewise.
(fold_builtin_snprintf_chk): Likewise.
(fold_builtin_printf): Likewise.
(fold_builtin_vprintf): Likewise.
* fold-const.c (negate_expr_p): Use new CALL_EXPR accessors and
constructors.
(operand_equal_p): Add separate tcc_vl_exp/CALL_EXPR case.
(make_range): Use TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(extract_muldiv_1): Add VL_EXP_CLASS_P case.
(fold_mathfn_compare): Use new CALL_EXPR accessors and constructors.
(fold_unary): Likewise.
(fold_binary): Likewise.
(fold_ternary): Remove CALL_EXPR case, since they are no longer
ternary expressions.
(fold): Add logic for tcc_vl_exp.
(fold_checksum_tree): Make it know about tcc_vl_exp. Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(fold_build3_stat): Add assertion to flag broken interface for
constructing CALL_EXPRs.
(fold_build_call_list): New.
(fold_build_call_list_initializer): New.
(tree_expr_nonnegative_p): Use new CALL_EXPR accessors and
constructors.
(fold_strip_sign_ops): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* tree-dump.c (dequeue_and_dump) <CALL_EXPR>: Use new CALL_EXPR
accessors and dump arguments explicitly.
* tree-pretty-print.c (do_niy): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(dump_generic_node): Use new CALL_EXPR accessors and walk arguments
explicitly.
(print_call_name): Use new CALL_EXPR accessors.
* print-tree.c (print_node): Add case tcc_vl_exp. Print
CALL_EXPR arguments explicitly instead of as a list. Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
* tree-vrp.c (stmt_interesting_for_vrp): Use new CALL_EXPR accessors.
(vrp_visit_stmt): Likewise.
* tree-ssa-loop-im.c (outermost_invariant_loop_expr): Make it
know about tcc_vl_exp. Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(force_move_till_expr): Likewise.
* targhooks.c (default_external_stack_protect_fail): Use
build_call_expr instead of build_function_call_expr.
(default_hidden_stack_protect_fail): Likewise.
* tree-complex.c (expand_complex_libcall): Use build_call_expr to
build the call.
* cgraphbuild.c (build_cgraph_edges): Use new CALL_EXPR accessors
and walk arguments explicitly.
* tree-ssa-loop-niter.c (simplify_replace_tree): Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(expand_simple_operations): Likewise.
(infer_loop_bounds_from_array): Use new CALL_EXPR accessors.
* gengtype.c (adjust_field_tree_exp): Use TREE_OPERAND_LENGTH instead
of TREE_CODE_LENGTH.
(walk_type): Tweak walking of arrays not to blow up on CALL_EXPRs.
* optabs.c (expand_widen_pattern-expr): Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
* value_prof.c (tree_ic): Use new CALL_EXPR accessors.
(tree_ic_transform): Likewise.
(interesting_stringop_to_profile_p): Pass entire CALL_EXPR as
parameter instead of arglist. Fix callers.
(tree_stringop_fixed_value): Use new CALL_EXPR accessors.
(tree_stringops_transform): Likewise.
(tree_indirect_call_to_profile): Likewise.
(tree_stringops_values_to_profile): Likewise.
* tree-tailcall.c (find_tail_calls): Use new CALL_EXPR iterator.
(eliminate_tail_call): Likewise.
* ipa-cp.c (ipcp_update_callgraph): Use new CALL_EXPR accessors.
* tree-scalar-evolution.c (chrec_contains_symbols_defined_in_loop):
Use TREE_OPERAND_LENGTH and generalize to handle any number of
operands.
(instantiate_parameters_1): Can't handle tcc_vl_exp here.
* omp-low.c (build_omp_barrier): Use build_call_expr.
(lower_rec_input_clauses): Likewise.
(lower_reduction_clauses): Likewise.
(expand_parallel_call): Likewise.
(maybe_catch_exception): Likewise.
(expand_omp_for_generic): Likewise.
(expand_omp_for_static_nochunk): Likewise.
(expand_omp_sections): Likewise.
(lower_omp_single_simple): Likewise.
(lower_omp_single_copy): Likewise.
(lower_omp_master): Likewise.
(lower_omp_ordered): Likewise.
(lower_omp_critical): Likewise.
* ipa-reference.c (check-call): Use new CALL_EXPR iterator.
(scan_for_static_refs): Create tcc_vl_exp case for CALL_EXPR.
* tree-gimple.c (is_gimple_call_addr): Fix doc.
(recalculate_side_effects): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH. Add tcc_vl_exp case.
* tree-chrec.c (chrec_contains_symbols): Use TREE_OPERAND_LENGTH
and generalize to handle any number of operands.
(chrec_contains_undetermined): Likewise.
(tree_contains_chrecs): Likewise.
(evolution_function_is_invariant_rec_p): Use TREE_OPERAND_LENGTH.
* cgraphunit.c (update_call_expr): Use new CALL_EXPR accessors.
* tree-ssa-ccp.c (ccp_fold): Use new CALL_EXPR accessors. Use
fold_call_expr instead of fold_builtin.
(ccp_fold_builtin): Likewise. Update calls into builtins.c to
match declarations there.
(fold_stmt): Use new CALL_EXPR constructor and accessors. Doc
updates.
* tree-ssa-loop-ivopts.c (expr_invariant_in_loop_p): Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
* ipa-pure-const.c (check_call): Use new CALL_EXPR accessors.
(scan_function): Add case tcc_vl_exp for CALL_EXPR.
* tree-stdarg.c (execute_optimize_stdarg): Use new CALL_EXPR
accessors.
* tree-ssa-math-opts.c (execute_cse_sincos_1): Use build_call_expr.
(execute_cse_sincos): Use new CALL_EXPR accessors.
* tree-ssa-alias.c (find_used_portions): Use new CALL_EXPR iterator.
* gimple-low.c (lower_function_body): Use build_call_expr.
(lower_builtin_setjmp): Likewise.
* expr.c (emit_block_move_via_libcall): Use build_call_expr.
(set_storage_via_libcall): Likewise.
(safe_from_p): Add tcc_vl_exp case. Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
(expand_expr_real_1): Use new CALL_EXPR accessors.
* tree-browser.c (store_child_info): Use TREE_OPERAND_LENGTH and
generalize to handle any number of operands.
(TB_parent_eq): Likewise.
* predict.c (expr_expected_value): Use new CALL_EXPR accessors.
(strip_builtin_expect): Likewise.
* function.c (gimplify_parameters): Use build_call_expr.
* tree-vectorizer.c (vect_is_simple_reduction): Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
* ipa-type-escape.c (check_call): Use new CALL_EXPR iterators.
(scan_for_refs): Add case tcc_vl_exp for CALL_EXPR.
* tree-data-ref.c (get_references_in_stmt): Use new CALL_EXPR
iterators.
* gimplify.c (build_stack_save_restore): Use build_call_expr.
(gimplify_decl_expr): Likewise.
(gimplify_call_expr): Use fold_call_expr instead of fold_builtin.
Use new CALL_EXPR iterators.
(gimplify_modify_expr_to_memcpy): Use build_call_expr.
(gimplify_modify_expr_to_memset): Likewise.
(gimplify_variable_sized_compare): Likewise.
(gimplify_omp_atomic_fetch_op): Likewise.
(gimplify_omp_atomic_pipeline): Likewise.
(gimplify_omp_atomic_mutex): Likewise.
(gimplify_function_tree): Likewise.
* calls.c (alloca_call_p): Use new CALL_EXPR accessors.
(call_expr_flags): Likewise.
(expand_call): Likewise.
* except.c (expand_builtin_eh_return_data_regno): Pass entire
CALL_EXPR as parameter instead of arglist. Use new CALL_EXPR
accessors.
* coverage.c (create_coverage): Use build_call_expr.
* tree-ssa-pre.c (expression_node_pool, list_node_pool): Delete.
(temp_call_expr_obstack): New.
(pool_copy_list): Delete.
(temp_copy_call_expr): New.
(phi_translate): Add case tcc_vl_exp for CALL_EXPR. Use new
CALL_EXPR accessors. Get rid of special goo for copying argument
lists and use temp_copy_call_expr instead.
(valid_in_sets): Add case tcc_vl_exp for CALL_EXPR. Use new
CALL_EXPR accessors.
(create_expression_by_pieces): Likewise. Use build_call_array
to construct the result instead of fold_build3.
(create_value_expr_from): Add tcc_vl_exp. Delete special goo for
dealing with argument lists.
(init_pre): Remove references to expression_node_pool and
list_node_pool. Init temp_call_expr_obstack instead.
(fini_pre): Remove references to expression_node_pool and
list_node_pool.
* tree-sra.c (sra_walk_call_expr): Use new CALL_EXPR accessors
and walk arguments explicitly instead of as a list.
* tree-mudflap.c (mf_build_check_statement_for): Use build_call_expr.
(mx_register_decls): Likewise.
(mudflap_register_call): Likewise.
(mudflap_finish_file): Likewise.
* ipa-prop.c (ipa_callsite_compute_count): Use new CALL_EXPR accessors.
(ipa_callsite_compute_param): Likewise.
* tree-vect-patterns.c (vect_recog_pow_pattern): Use new CALL_EXPR
accessors and constructor.
* tree-nested.c (convert_nl_goto_reference): Use new CALL_EXPR
accessors and constructor.
(convert_tramp_reference): Likewise.
(convert_call_expr): Likewise.
(finalize_nesting_tree_1): Likewise.
* tree-ssa.c (tree_ssa_useless_type_conversion): Use new CALL_EXPR
accessors.
* tree-ssa-loop-prefetch.c (issue_prefetch_ref): Use build_call_expr.
* tree-inline.c (initialize_inlined_parameters): Pass entire
CALL_EXPR as parameter instead of arglist. Use new CALL_EXPR
accessors.
(estimate_num_insns_1): Use new CALL_EXPR accessors.
(expand_call_inline): Tidy up call to initialize_inlined_parameters.
* tree-vect-transform.c (vect_create_epilog_for_reduction): Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(vectorizable_reduction): Likewise.
(vectorizable_call): Use new CALL_EXPR iterators.
(vectorizable_conversion): Use build_call_expr.
(vectorizable_operation): Use TREE_OPERAND_LENGTH.
(vect_gen_widened_results_half): Use build_call_expr.
(vect_setup_realignment): Likewise.
(vectorizable_live_operation): Use TREE_OPERAND_LENGTH.
* tree-object-size.c (alloc_object_size): Use new CALL_EXPR accessors.
(pass_through_call): Likewise.
(compute_object_sizes): Likewise. Use fold_call_expr instead of
fold_builtin.
* tree-profile.c (tree_gen_interval_profiler): Use build_call_expr.
(tree_gen_pow2_profiler): Likewise.
(tree_gen_one_value_profiler): Likewise.
(tree_gen_ic_func_profiler): Likewise.
(tree_gen_average_profiler): Likewise.
(tree_gen_ior_profiler): Likewise.
* tree-ssa-structalias.c (get_constraint_for): Add case tcc_vl_exp.
(find_func_aliases): Use new CALL_EXPR accessors. Add case
tcc_vl_exp. Use TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
* tree-ssa-reassoc.c (get_rank): Use TREE_OPERAND_LENGTH instead
of TREE_CODE_LENGTH.
* stmt.c (warn_if_unused_value): Use TREE_OPERAND_LENGTH instead
of TREE_CODE_LENGTH.
* convert.c (convert_to_real): Use new CALL_EXPR accessors and
constructor.
(convert_to_integer): Likewise.
* tree-ssa-operands.c (get_call_expr_operands): Use new CALL_EXPR
accessors.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* config/alpha/alpha.c (alpha_expand_builtin): Use new CALL_EXPR
accessors.
* config/frv/frv.c (frv_expand_builtin): Likewise.
* config/s390/s390.c (s390_expand_builtin): Likewise.
* config/sparc/sparc.c (sparc_gimplify_va_arg): Use build_call_expr.
(sparc_expand_builtin): Use new CALL_EXPR accessors.
* config/i386/i386.c (ix86_function_ok_for_sibcall): Likewise.
(ix86_expand_binop_builtin): Pass entire CALL_EXPR as parameter
instead of arglist. Use new CALL_EXPR accessors on it. Fix callers.
(ix86_expand_store_builtin): Likewise.
(ix86_expand_unop_builtin): Likewise.
(ix86_expand_unop1_builtin): Likewise.
(ix86_expand_sse_compare): Likewise.
(ix86_expand_sse_comi): Likewise.
(ix86_expand_vec_init_builtin): Likewise.
(ix86_expand_vec_ext_builtin): Likewise.
(ix86_expand_vec_set_builtin): Likewise.
(ix86_expand_builtin): Use new CALL_EXPR accessors.
* config/sh/sh.c (sh_expand_builtin): Use new CALL_EXPR accessors.
* config/c4x/c4x.c (c4x_expand_builtin): Likewise.
* config/iq2000/iq2000.c (expand_one_builtin): Pass entire CALL_EXPR
instead of arglist. Use new CALL_EXPR accessors. Fix callers.
(iq2000_expand_builtin): Use new CALL_EXPR accessors.
* config/rs6000/rs6000-c.c (altivec_build_resolved_builtin): Use
build_call_expr.
* config/rs6000/rs6000.c (rs6000_gimplify_va_arg): Likewise.
(rs6000_expand_unop_builtin): Pass entire CALL_EXPR instead of
arglist. Use new CALL_EXPR accessors. Fix callers.
(altivec_expand_abs_builtin): Likewise.
(rs6000_expand_binop_builtin): Likewise.
(altivec_expand_predicate_builtin): Likewise.
(altivec_expand_lv_builtin): Likewise.
(spe_expand_stv_builtin): Likewise.
(altivec_expand_stv_builtin): Likewise.
(rs6000_expand_ternop_builtin): Likewise.
(altivec_expand_ld_builtin): Use new CALL_EXPR accessors.
(altivec_expand_st_builtin): Likewise.
(altivec_expand_dst_builtin): Likewise.
(altivec_expand_vec_init_builtin): Pass entire CALL_EXPR instead of
arglist. Use new CALL_EXPR accessors. Fix callers.
(altivec_expand_vec_set_builtin): Likewise.
(altivec_expand_vec_ext_builtin): Likewise.
(altivec_expand_builtin): Use new CALL_EXPR accessors.
(spe_expand_builtin): Likewise.
(spe_expand_predicate_builtin): Pass entire CALL_EXPR instead of
arglist. Use new CALL_EXPR accessors. Fix callers.
(spe_expand_evsel_builtin): Likewise.
(rs6000_expand_builtin): Use new CALL_EXPR accessors. VCFUX and
FCFSX cases must construct whole new CALL_EXPR, not just arglist.
* config/arm/arm.c (arm_expand_binop_builtin): Pass entire CALL_EXPR
instead of arglist. Use new CALL_EXPR accessors. Fix callers.
(arm_expand_unop_builtin): Likewise.
(arm_expand_builtin): Use new CALL_EXPR accessors.
* config/mips/mips.c (mips_expand_builtin): Use new CALL_EXPR
accessors.
* config/bfin/bfin.c (bfin_expand_binop_builtin): Pass entire CALL_EXPR
instead of arglist. Use new CALL_EXPR accessors. Fix callers.
(bfin_expand_unop_builtin): Likewise.
(bfin_expand_builtin): Use new CALL_EXPR accessors.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* c-semantics.c (build_stmt): Add internal diagnostic check.
* c-pretty-print.c (pp_c_postfix_expression): Use new CALL_EXPR
accessors. Print arguments explicitly instead of as a list.
* c-typeck.c (build_function_call): Use new CALL_EXPR constructors.
* c-omp.c (c_finish_omp_barrier): Use build_call_expr.
(c_finish_omp_flish): Likewise.
* c-common.c (verify_tree): Use new CALL_EXPR accessors. Traverse
arguments explicitly instead of as a list. Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
(check_function_arguments_recurse): Use new CALL_EXPR accessors.
(c_warn_unused_result): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* cp-tree.def (AGGR_INIT_EXPR): Adjust documentation.
Change class to tcc_vl_exp.
* call.c (build_call): Use build_call_list instead
of build3.
(build_over_call): Likewise.
(build_new_method_call): Use build_min_non_dep_call_list
instead of build_min_non_dep.
* error.c (dump_call_expr_args): New function.
(dump_aggr_init_expr_args): New function.
(dump_expr) <AGGR_INIT_EXPR, CALL_EXPR, INDIRECT_REF>: Use them.
Update to use new CALL_EXPR and AGGR_INIT_EXPR accessor macros.
* cvt.c (convert_to_void): Use build_call_array instead
of build3; use new AGGR_INIT_EXPR accessor macros.
* mangle.c (write_expression): Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
* dump.c (cp_dump_tree) <AGGR_INIT_EXPR>: Update to use new
AGGR_INIT_EXPR accessor macros.
* cp-gimplify.c (cp_gimplify_init_expr): Use
AGGR_INIT_EXPR_SLOT to set the slot operand.
* cp-tree.h (AGGR_INIT_EXPR_FN): New macro.
(AGGR_INIT_EXPR_SLOT): New macro.
(AGGR_INIT_EXPR_ARG): New macro.
(aggr_init_expr_nargs): New macro.
(AGGR_INIT_EXPR_ARGP): New macro.
(aggr_init_expr_arg_iterator): New.
(init_aggr_init_expr_arg_iterator): New.
(next_aggr_init_expr_arg): New.
(first_aggr_init_expr_arg): New.
(more_aggr_init_expr_args_p): New.
(FOR_EACH_AGGR_INIT_EXPR_ARG): New.
(stabilize_aggr_init): New declaration.
(build_min_non_dep_call_list): Likewise.
* tree.c (process_aggr_init_operands): New function.
(build_aggr_init_array) New function.
(build_cplus_new): Update to use new CALL_EXPR and
AGGR_INIT_EXPR accessor macros. Replace use of build3 with
build_aggr_init_array.
(build_min_non_dep_call_list) New function.
(build_min_nt): Assert input code parameter is not a variable
length expression class.
(build_min, build_min_non_dep): Likewise.
(cp_tree_equal) <CALL_EXPR>: Iterate through the arguments
to check for equality instead of recursing. Handle tcc_vl_exp
tree code classes.
(stabilize_call): Update to only handle CALL_EXPRs, not
AGGR_INIT_EXPRs; use new CALL_EXPR accessor macros.
(stabilize_aggr_init): New function.
(stabilize_init): Use it.
* cxx-pretty-print.c (pp_cxx_postfix_expression)
<AGGR_INIT_EXPR, CALL_EXPR>: Update to use new CALL_EXPR and
AGGR_INIT_EXPR accessor macros and argument iterators.
* pt.c (tsubst_copy) <CALL_EXPR>: Replace build_nt with
build_vl_exp. Iterate through the operands, recursively
processing each one.
(tsubst_copy_and_build) <CALL_EXPR>: Update to use new
CALL_EXPR accessor macros.
(value_dependent_expression_p) <default>: Handle tcc_vl_exp
tree code classes. Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
* semantics.c (finish_call_expr): Use build_nt_call_list
instead of build_nt.
(simplify_aggr_init_expr): Update to use new AGGR_INIT_EXPR
accessor macros. Use build_call_array to construct the
CALL_EXPR node instead of build3
* decl2.c (build_offset_ref_call_from_tree): Use
build_nt_call_list and build_min_non_dep_call_list instead
of build_min_nt and build_min_non_dep.
* parser.c (cp_parser_postfix_expression) <CPP_OPEN_PAREN>:
Use build_nt_call_list instead of build_min_nt.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* java-tree.h (BUILD_MONITOR_ENTER): Use build_call_nary instead
of build3.
(BUILD_MONITOR_EXIT): Likewise.
* java-gimplify.c (java_gimplify_component_ref): Use build_call_expr.
(java_gimplify_modify_expr): Likewise.
* class.c (cache_this_class_ref): Use build_call_expr.
(build_static_field_ref): Likewise.
(emit_indirect_register_classes): Likewise.
(emit_register_classes): Likewise.
* resource.c (write_resource_constructor): Use build_call_expr.
* builtins.c (builtin_creator_function): Change interpretation of
the second parameter to be the whole CALL_EXPR instead of the arglist.
(max_builtin): Tweak parameter list. Use new CALL_EXPR accessors.
(min_builtin): Likewise.
(abs_builtin): Likewise.
(java_build_function_call_expr): Likewise.
(convert_real): Likewise.
(UNMARSHAL3): Likewise.
(UNMARSHAL4): Likewise.
(UNMARSHAL5): Likewise.
(build_arglist_for_builtin): Delete. Fix callers to use
build_call_expr instead.
(putObject_builtin): Tweak parameter list. Use new CALL_EXPR
accessors.
(compareAndSwapInt_builtin): Likewise.
(compareAndSwapLong_builtin): Likewise.
(compareAndSwapObject_builtin): Likewise.
(putVolatile_builtin): Likewise.
(getVolatile_builtin): Likewise.
(VMSupportsCS8_builtin): Likewise.
(check_for_builtin): Pass entire CALL_EXPR to builtin expander
instead of arglist.
* expr.c (build_java_athrow): Use build_call_nary instead of build3.
(build_java_throw_out_of_bounds_exception): Likewise.
(java_check_reference): Likewise.
(build_java_arraystore_check): Likewise.
(build_newarray): Likewise.
(build_anewarray): Likewise.
(expand_java_multinewarray): Use build_call_list instead of build3.
(build_java_monitor): Use build_call_nary instead of build3.
(java_create_object): Likewise.
(expand_java_NEW): Likewise.
(build_instanceof): Likewise.
(expand_java_CHECKCAST): Likewise.
(build_java_soft_divmod): Likewise.
(build_java_binop): Likewise.
(build_field_ref): Likewise.
(build_class_init): Likewise.
(rewrite_arglist_getcaller): Use build_call_expr.
(build_invokeinterface): Use build_call_nary instead of build3.
(expand_invoke): Use build_call_list instead of build3.
(build_jni_stub): Use build_call_nary, build_call_list, or
build_call_expr instead of build3.
(expand_java_field_op): Use build_call_expr instead of build3.
(force_evaluation_order): Use new CALL_EXPR accessors.
* lang.c (java_get_callee_fndecl): Use new CALL_EXPR accessors.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* objc-act.c (receiver_is_class_object): Use new CALL_EXPR accessors.
(objc_get_callee_fndecl): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* trans-expr.c (gfc_conv_power_op): Use build_call_expr.
(gfc_conv_string_tmp): Likewise.
(gfc_conv_concat_op): Likewise.
(gfc_build_compare_string): Likewise.
(gfc_conv_function_call): Use build_call_list instead of build3.
* trans-array.c (gfc_trans_allocate_array_storage): Use
build_call_expr.
(gfc_grow_array): Likewise.
(gfc_trans_array_ctor_element): Likewise.
(gfc_trans_array_constructor_value): Likewise.
(gfc_array_allocate): Likewise.
(gfc_array_deallocate): Likewise.
(gfc_trans_auto_array_allocation): Likewise.
(gfc_trans_dummy_array_bias): Likewise.
(gfc_conv_array_parameter): Likewise.
(gfc_trans_dealloc_allocated): Likewise.
(gfc_duplicate_allocatable): Likewise.
* trans-openmp.c (gfc_trans_omp_barrier): Use build_call_expr.
(gfc_trans_omp_flush): Likewise.
* trans-stmt.c (gfc_conv_elementel_dependencies): Use build_call_expr.
(gfc_trans_pause): Likewise.
(gfc_trans_stop): Likewise.
(gfc_trans_character_select): Likewise.
(gfc_do_allocate): Likewise.
(gfc_trans_assign_need_temp): Likewise.
(gfc_trans_pointer_assign_need_temp): Likewise.
(gfc_trans_forall_1): Likewise.
(gfc_trans_where_2): Likewise.
(gfc_trans_allocate): Likewise.
(gfc_trans_deallocate): Likewise.
* trans.c (gfc_trans_runtime_check): Use build_call_expr.
* trans-io.c (gfc_trans_open): Use build_call_expr.
(gfc_trans_close): Likewise.
(build_filepos): Likewise.
(gfc_trans_inquire): Likewise.
(NML_FIRST_ARG): Delete.
(NML_ADD_ARG): Delete.
(transfer_namelist_element): Use build_call_expr.
(build_dt): Likewise.
(gfc_trans_dt_end): Likewise.
(transfer_expr): Likewise.
(transfer_array-desc): Likewise.
* trans-decl.c (gfc_generate_function_code): Use build_call_expr.
(gfc_generate_constructors): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_ctime): Use build_call_expr.
(gfc_conv_intrinsic_fdate): Likewise.
(gfc_conv_intrinsic_ttynam): Likewise.
(gfc_conv_intrinsic_array_transfer): Likewise.
(gfc_conv_associated): Likewise.
(gfc_conv_intrinsic_si_kind): Likewise.
(gfc_conv_intrinsic_trim): Likewise.
(gfc_conv_intrinsic_repeat: Likewise.
(gfc_conv_intrinsic_iargc): Likewise.
Co-Authored-By: Brooks Moses <brooks.moses@codesourcery.com>
Co-Authored-By: Lee Millward <lee.millward@codesourcery.com>
From-SVN: r122018
2007-02-16 00:50:49 +01:00
|
|
|
|
oprintf (d->of, "%*ssize_t l%d = (size_t)(",
|
|
|
|
|
d->indent, "", loopcounter);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if (length)
|
|
|
|
|
output_escaped_param (d, length, "length");
|
|
|
|
|
else
|
|
|
|
|
oprintf (d->of, "%s", t->u.a.len);
|
tree.h (enum tree_code_class): Add tcc_vl_exp.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* tree.h (enum tree_code_class): Add tcc_vl_exp.
(VL_EXP_CLASS_P): New.
(TREE_OPERAND_CHECK): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(TREE_OPERAND_CHECK_CODE): Likewise.
(GIMPLE_STMT_OPERAND_CHECK): Likewise.
(TREE_RTL_OPERAND_CHECK): Likewise.
(tree_operand_check_failed): Make second parameter the whole tree
instead of its code. Fixed callers.
(VL_EXP_CHECK): New.
(TREE_OPERAND_LENGTH): New.
(VL_EXP_OPERAND_LENGTH): New.
(CALL_EXPR_FN): New.
(CALL_EXPR_STATIC_CHAIN): New.
(CALL_EXPR_ARGS): New.
(CALL_EXPR_ARG): New.
(call_expr_nargs): New.
(CALL_EXPR_ARGP): New.
(build_nt_call_list): Declare.
(build_vl_exp_stat): Declare.
(build_vl_exp): New.
(build_call_list): Declare.
(build_call_nary): Declare.
(build_call_valist): Declare.
(build_call_array): Declare.
(call_expr_arg): Declare.
(call_expr_argp): Declare.
(call_expr_arglist): Declare.
(fold_build_call_list): Declare.
(fold_build_call_list_initializer): Declare.
(fold_call_expr): Declare to replace fold_builtin.
(fold_builtin_fputs): Update to agree with modified definition.
(fold_builtin_strcpy): Likewise.
(fold_builtin_strncpy): Likewise.
(fold_builtin_memory_chk): Likewise.
(fold_builtin_stxcpy_chk): Likewise.
(fold_builtin_strncpy_chk): Likewise.
(fold_builtin_next_arg): Likewise.
(fold_build_call_expr): Declare.
(fold_builtin_call_list): Declare.
(fold_builtin_call_valist): Declare.
(build_call_expr): Declare.
(validate_arglist): Update to agree with modified definition.
(tree_operand_length): New.
(call_expr_arg_iterator): New.
(init_call_expr_arg_iterator): New.
(next_call_expr_arg): New.
(first_call_expr_arg): New.
(more_call_expr_args_p): New.
(FOR_EACH_CALL_EXPR_ARG): New.
* tree.c (tree_code_class_string): Add entries for tcc_vl_exp
and tcc_gimple_stmt.
(tree_code_size): Update documentation. Use sizeof (tree) rather
than sizeof (char *).
(tree_size): Likewise. Add case for tcc_vl_exp.
(tree_node_structure): Add case for tcc_vl_exp.
(contains_placeholder_p): Likewise.
(substitute_in_expr): Likewise.
(substitute_placeholder_in_expr): Likewise.
(stabilize_reference_1): Likewise.
(build3_stat): Remove logic for CALL_EXPRs. Replace with assertion
to diagnose breakage of this interface for constructing CALL_EXPRs.
(build_nt): Add similar assertion here.
(build_nt_call_list): New.
(simple_cst_equal) <CALL_EXPR>: Rewrite to use new accessors.
(iterative_hash_expr): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(get_callee_fndecl): Use new CALL_EXPR accessors.
(tree_operand_check_failed): Change parameters to pass entire node
instead of its code, so that we can call TREE_OPERAND_LENGTH on it.
(process_call_operands): New.
(build_vl_exp_stat): New.
(build_call_list): New.
(build_call_nary): New.
(build_call_valist): New.
(build_call_array): New.
(walk_tree): Use TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(call_expr_arglist): New.
* tree.def (CALL_EXPR): Change representation of CALL_EXPRs to use
tcc_vl_exp instead of a fixed-size tcc_expression.
* doc/c-tree.texi (CALL_EXPR): Document new representation and
accessors for CALL_EXPRs.
(AGGR_INIT_EXPR): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* builtins.c (c_strlen): Return NULL_TREE instead of 0.
(expand_builtin_nonlocal_goto): Change parameter to be entire
CALL_EXPR instead of an arglist. Use new CALL_EXPR accessors.
(expand_builtin_prefetch): Likewise.
(expand_builtin_classify_type): Likewise.
(mathfn_built_in): Return NULL_TREE instead of 0.
(expand_errno_check): Use new CALL_EXPR accessors.
(expand_builtin_mathfn): Use new CALL_EXPR accessors and constructors.
Return NULL_RTX instead of 0.
(expand_builtin_mathfn_2): Likewise.
(expand_builtin_mathfn_3): Likewise.
(expand_builtin_interclass_mathfn): Likewise.
(expand_builtin_sincos): Likewise.
(expand_builtin_cexpi): Likewise.
(expand_builtin_int_roundingfn): Likewise.
(expand_builtin_int_roundingfn_2): Likewise.
(expand_builtin_pow): Likewise.
(expand_builtin_powi): Likewise.
(expand_builtin_strlen): Pass entire CALL_EXPR as parameter instead
of arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_RTX instead of 0.
(expand_builtin_strstr): Likewise.
(expand_builtin_strchr): Likewise.
(expand_builtin_strrchr): Likewise.
(expand_builtin_strpbrk): Likewise.
(expand_builtin_memcpy): Likewise.
(expand_builtin_mempcpy): Likewise.
(expand_builtin_mempcpy_args): New.
(expand_builtin_memmove): Similarly to expand_builtin_mempcpy.
(expand_builtin_memmove_args): New.
(expand_builtin_bcopy): Similarly to expand_builtin_mempcpy.
(expand_movstr): Likewise.
(expand_builtin_strcpy): Likewise.
(expand_builtin_strcpy_args): New.
(expand_builtin_stpcpy): Similarly to expand_builtin_strcpy.
(expand_builtin_strncpy): Likewise.
(expand_builtin_memset): Likewise.
(expand_builtin_memset_args): New.
(expand_builtin_bzero): Similarly to expand_builtin_memset.
(expand_builtin_memcmp): Likewise.
(expand_builtin_strcmp): Likewise.
(expand_builtin_strncmp): Likewise.
(expand_builtin_strcat): Likewise.
(expand_builtin_strncat): Likewise.
(expand_builtin_strspn): Likewise.
(expand_builtin_strcspn): Likewise.
(expand_builtin_args_info): Likewise.
(expand_builtin_va_start): Likewise.
(gimplify_va_arg_expr): Likewise.
(expand_builtin_va_end): Likewise.
(expand_builtin_va_copy): Likewise.
(expand_builtin_frame_address): Likewise.
(expand_builtin_alloca): Likewise.
(expand_builtin_bswap): Likewise.
(expand_builtin_unop): Likewise.
(expand_builtin_fputs): Likewise.
(expand_builtin_expect): Likewise.
(expand_builtin_fabs): Likewise.
(expand_builtin_copysign): Likewise.
(expand_builtin_printf): Likewise.
(expand_builtin_fprintf): Likewise.
(expand_builtin_sprintf): Likewise.
(expand_builtin_init_trampoline): Likewise.
(expand_builtin_signbit): Likewise.
(expand_builtin_fork_or_exec): Likewise.
(expand_builtin_sync_operation): Likewise.
(expand_builtin_compare_and_swap): Likewise.
(expand_builtin_lock_test_and_set): Likewise.
(expand_builtin_lock_release): Likewise.
(expand_builtin): Likewise.
(builtin_mathfn_code): Likewise.
(fold_builtin_constant_p): Pass call arguments individually instead
of as an arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_TREE instead of 0.
(fold_builtin_expect): Likewise.
(fold_builtin_classify_type): Likewise.
(fold_builtin_strlen): Likewise.
(fold_builtin_nan): Likewise.
(integer_valued_real_p): Likewise.
(fold_trunc_transparent_mathfn): Likewise.
(fold_fixed_mathfn): Likewise.
(fold_builtin_cabs): Likewise.
(fold_builtin_sqrt): Likewise.
(fold_builtin_cbrt): Likewise.
(fold_builtin_cos): Likewise.
(fold_builtin_cosh): Likewise.
(fold_builtin_tan): Likewise.
(fold_builtin_sincos): Likewise.
(fold_builtin_cexp): Likewise.
(fold_builtin_trunc): Likewise.
(fold_builtin_floor): Likewise.
(fold_builtin_ceil): Likewise.
(fold_builtin_round): Likewise.
(fold_builtin_int_roundingfn): Likewise.
(fold_builtin_bitop): Likewise.
(fold_builtin_bswap): Likewise.
(fold_builtin_logarithm): Likewise.
(fold_builtin_hypot): Likewise.
(fold_builtin_pow): Likewise.
(fold_builtin_powi): Likewise.
(fold_builtin_exponent): Likewise.
(fold_builtin_memset): Likewise.
(fold_builtin_bzero): Likewise.
(fold_builtin_memory_op): Likewise.
(fold_builtin_bcopy): Deleted; call site changed to invoke
fold_builtin_memory_op directly.
(fold_builtin_strcpy): Similarly as for fold_builtin_memory_op.
(fold_builtin_strncpy): Likewise.
(fold_builtin_memcmp): Likewise.
(fold_builtin_strcmp): Likewise.
(fold_builtin_strncmp): Likewise.
(fold_builtin_signbit): Likewise.
(fold_builtin_copysign): Likewise.
(fold_builtin_isascii): Likewise.
(fold_builtin_toascii): Likewise.
(fold_builtin_isdigit): Likewise.
(fold_builtin_fabs): Likewise.
(fold_builtin_abs): Likewise.
(fold_builtin_fmin_fmax): Likewise.
(fold_builtin_carg): Likewise.
(fold_builtin_classify): Likewise.
(fold_builtin_unordered_cmp): Likewise.
(fold_builtin_0, fold_builtin_2, fold_builtin_3, fold_builtin_4):
New functions split out from fold_builtin_1.
(fold_builtin_n): New.
(fold_builtin_varargs): New.
(fold_builtin): Deleted. Most callers changed to use fold_call_expr
instead.
(fold_call_expr): New.
(build_function_call_expr): Rewrite to use new helper function.
(fold_builtin_call_list): New.
(build_call_expr): New.
(fold_builtin_call_valist): New.
(rewrite_call_expr): New.
(validate_arg): New.
(validate_arglist): Change parameter to be entire CALL_EXPR instead
of an arglist. Change return type to bool. Use new CALL_EXPR
accessors.
(fold_builtin_strstr): Pass call arguments individually instead
of as an arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_TREE instead of 0.
(fold_builtin_strchr): Likewise.
(fold_builtin_strrchr): Likewise.
(fold_builtin_strpbrk): Likewise.
(fold_builtin_strcat): Likewise.
(fold_builtin_strncat): Likewise.
(fold_builtin_strspn): Likewise.
(fold_builtin_strcspn): Likewise.
(fold_builtin_fputs): Likewise.
(fold_builtin_next_arg): Likewise.
(fold_builtin_sprintf): Likewise.
(expand_builtin_object_size): Use new CALL_EXPR accessors. Use
NULL_RTX instead of 0.
(expand_builtin_memory_chk): Likewise.
(maybe_emit_chk_warning): Likewise.
(maybe_emit_sprintf_chk_warning): Likewise.
(fold_builtin_object_size): Pass call arguments individually instead
of as an arglist, fixing callers appropriately. Use new CALL_EXPR
accessors and constructors. Return NULL_TREE instead of 0.
(fold_builtin_memory_chk): Likewise.
(fold_builtin_stxcpy_chk): Likewise.
(fold_builtin_strncpy_chk): Likewise.
(fold_builtin_strcat_chk): Likewise.
(fold_builtin_strcat_chk): Likewise.
(fold_builtin_strncat_chk): Likewise.
(fold_builtin_sprintf_chk): Likewise.
(fold_builtin_snprintf_chk): Likewise.
(fold_builtin_printf): Likewise.
(fold_builtin_vprintf): Likewise.
* fold-const.c (negate_expr_p): Use new CALL_EXPR accessors and
constructors.
(operand_equal_p): Add separate tcc_vl_exp/CALL_EXPR case.
(make_range): Use TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(extract_muldiv_1): Add VL_EXP_CLASS_P case.
(fold_mathfn_compare): Use new CALL_EXPR accessors and constructors.
(fold_unary): Likewise.
(fold_binary): Likewise.
(fold_ternary): Remove CALL_EXPR case, since they are no longer
ternary expressions.
(fold): Add logic for tcc_vl_exp.
(fold_checksum_tree): Make it know about tcc_vl_exp. Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(fold_build3_stat): Add assertion to flag broken interface for
constructing CALL_EXPRs.
(fold_build_call_list): New.
(fold_build_call_list_initializer): New.
(tree_expr_nonnegative_p): Use new CALL_EXPR accessors and
constructors.
(fold_strip_sign_ops): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* tree-dump.c (dequeue_and_dump) <CALL_EXPR>: Use new CALL_EXPR
accessors and dump arguments explicitly.
* tree-pretty-print.c (do_niy): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(dump_generic_node): Use new CALL_EXPR accessors and walk arguments
explicitly.
(print_call_name): Use new CALL_EXPR accessors.
* print-tree.c (print_node): Add case tcc_vl_exp. Print
CALL_EXPR arguments explicitly instead of as a list. Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
* tree-vrp.c (stmt_interesting_for_vrp): Use new CALL_EXPR accessors.
(vrp_visit_stmt): Likewise.
* tree-ssa-loop-im.c (outermost_invariant_loop_expr): Make it
know about tcc_vl_exp. Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
(force_move_till_expr): Likewise.
* targhooks.c (default_external_stack_protect_fail): Use
build_call_expr instead of build_function_call_expr.
(default_hidden_stack_protect_fail): Likewise.
* tree-complex.c (expand_complex_libcall): Use build_call_expr to
build the call.
* cgraphbuild.c (build_cgraph_edges): Use new CALL_EXPR accessors
and walk arguments explicitly.
* tree-ssa-loop-niter.c (simplify_replace_tree): Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(expand_simple_operations): Likewise.
(infer_loop_bounds_from_array): Use new CALL_EXPR accessors.
* gengtype.c (adjust_field_tree_exp): Use TREE_OPERAND_LENGTH instead
of TREE_CODE_LENGTH.
(walk_type): Tweak walking of arrays not to blow up on CALL_EXPRs.
* optabs.c (expand_widen_pattern-expr): Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
* value_prof.c (tree_ic): Use new CALL_EXPR accessors.
(tree_ic_transform): Likewise.
(interesting_stringop_to_profile_p): Pass entire CALL_EXPR as
parameter instead of arglist. Fix callers.
(tree_stringop_fixed_value): Use new CALL_EXPR accessors.
(tree_stringops_transform): Likewise.
(tree_indirect_call_to_profile): Likewise.
(tree_stringops_values_to_profile): Likewise.
* tree-tailcall.c (find_tail_calls): Use new CALL_EXPR iterator.
(eliminate_tail_call): Likewise.
* ipa-cp.c (ipcp_update_callgraph): Use new CALL_EXPR accessors.
* tree-scalar-evolution.c (chrec_contains_symbols_defined_in_loop):
Use TREE_OPERAND_LENGTH and generalize to handle any number of
operands.
(instantiate_parameters_1): Can't handle tcc_vl_exp here.
* omp-low.c (build_omp_barrier): Use build_call_expr.
(lower_rec_input_clauses): Likewise.
(lower_reduction_clauses): Likewise.
(expand_parallel_call): Likewise.
(maybe_catch_exception): Likewise.
(expand_omp_for_generic): Likewise.
(expand_omp_for_static_nochunk): Likewise.
(expand_omp_sections): Likewise.
(lower_omp_single_simple): Likewise.
(lower_omp_single_copy): Likewise.
(lower_omp_master): Likewise.
(lower_omp_ordered): Likewise.
(lower_omp_critical): Likewise.
* ipa-reference.c (check-call): Use new CALL_EXPR iterator.
(scan_for_static_refs): Create tcc_vl_exp case for CALL_EXPR.
* tree-gimple.c (is_gimple_call_addr): Fix doc.
(recalculate_side_effects): Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH. Add tcc_vl_exp case.
* tree-chrec.c (chrec_contains_symbols): Use TREE_OPERAND_LENGTH
and generalize to handle any number of operands.
(chrec_contains_undetermined): Likewise.
(tree_contains_chrecs): Likewise.
(evolution_function_is_invariant_rec_p): Use TREE_OPERAND_LENGTH.
* cgraphunit.c (update_call_expr): Use new CALL_EXPR accessors.
* tree-ssa-ccp.c (ccp_fold): Use new CALL_EXPR accessors. Use
fold_call_expr instead of fold_builtin.
(ccp_fold_builtin): Likewise. Update calls into builtins.c to
match declarations there.
(fold_stmt): Use new CALL_EXPR constructor and accessors. Doc
updates.
* tree-ssa-loop-ivopts.c (expr_invariant_in_loop_p): Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
* ipa-pure-const.c (check_call): Use new CALL_EXPR accessors.
(scan_function): Add case tcc_vl_exp for CALL_EXPR.
* tree-stdarg.c (execute_optimize_stdarg): Use new CALL_EXPR
accessors.
* tree-ssa-math-opts.c (execute_cse_sincos_1): Use build_call_expr.
(execute_cse_sincos): Use new CALL_EXPR accessors.
* tree-ssa-alias.c (find_used_portions): Use new CALL_EXPR iterator.
* gimple-low.c (lower_function_body): Use build_call_expr.
(lower_builtin_setjmp): Likewise.
* expr.c (emit_block_move_via_libcall): Use build_call_expr.
(set_storage_via_libcall): Likewise.
(safe_from_p): Add tcc_vl_exp case. Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
(expand_expr_real_1): Use new CALL_EXPR accessors.
* tree-browser.c (store_child_info): Use TREE_OPERAND_LENGTH and
generalize to handle any number of operands.
(TB_parent_eq): Likewise.
* predict.c (expr_expected_value): Use new CALL_EXPR accessors.
(strip_builtin_expect): Likewise.
* function.c (gimplify_parameters): Use build_call_expr.
* tree-vectorizer.c (vect_is_simple_reduction): Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
* ipa-type-escape.c (check_call): Use new CALL_EXPR iterators.
(scan_for_refs): Add case tcc_vl_exp for CALL_EXPR.
* tree-data-ref.c (get_references_in_stmt): Use new CALL_EXPR
iterators.
* gimplify.c (build_stack_save_restore): Use build_call_expr.
(gimplify_decl_expr): Likewise.
(gimplify_call_expr): Use fold_call_expr instead of fold_builtin.
Use new CALL_EXPR iterators.
(gimplify_modify_expr_to_memcpy): Use build_call_expr.
(gimplify_modify_expr_to_memset): Likewise.
(gimplify_variable_sized_compare): Likewise.
(gimplify_omp_atomic_fetch_op): Likewise.
(gimplify_omp_atomic_pipeline): Likewise.
(gimplify_omp_atomic_mutex): Likewise.
(gimplify_function_tree): Likewise.
* calls.c (alloca_call_p): Use new CALL_EXPR accessors.
(call_expr_flags): Likewise.
(expand_call): Likewise.
* except.c (expand_builtin_eh_return_data_regno): Pass entire
CALL_EXPR as parameter instead of arglist. Use new CALL_EXPR
accessors.
* coverage.c (create_coverage): Use build_call_expr.
* tree-ssa-pre.c (expression_node_pool, list_node_pool): Delete.
(temp_call_expr_obstack): New.
(pool_copy_list): Delete.
(temp_copy_call_expr): New.
(phi_translate): Add case tcc_vl_exp for CALL_EXPR. Use new
CALL_EXPR accessors. Get rid of special goo for copying argument
lists and use temp_copy_call_expr instead.
(valid_in_sets): Add case tcc_vl_exp for CALL_EXPR. Use new
CALL_EXPR accessors.
(create_expression_by_pieces): Likewise. Use build_call_array
to construct the result instead of fold_build3.
(create_value_expr_from): Add tcc_vl_exp. Delete special goo for
dealing with argument lists.
(init_pre): Remove references to expression_node_pool and
list_node_pool. Init temp_call_expr_obstack instead.
(fini_pre): Remove references to expression_node_pool and
list_node_pool.
* tree-sra.c (sra_walk_call_expr): Use new CALL_EXPR accessors
and walk arguments explicitly instead of as a list.
* tree-mudflap.c (mf_build_check_statement_for): Use build_call_expr.
(mx_register_decls): Likewise.
(mudflap_register_call): Likewise.
(mudflap_finish_file): Likewise.
* ipa-prop.c (ipa_callsite_compute_count): Use new CALL_EXPR accessors.
(ipa_callsite_compute_param): Likewise.
* tree-vect-patterns.c (vect_recog_pow_pattern): Use new CALL_EXPR
accessors and constructor.
* tree-nested.c (convert_nl_goto_reference): Use new CALL_EXPR
accessors and constructor.
(convert_tramp_reference): Likewise.
(convert_call_expr): Likewise.
(finalize_nesting_tree_1): Likewise.
* tree-ssa.c (tree_ssa_useless_type_conversion): Use new CALL_EXPR
accessors.
* tree-ssa-loop-prefetch.c (issue_prefetch_ref): Use build_call_expr.
* tree-inline.c (initialize_inlined_parameters): Pass entire
CALL_EXPR as parameter instead of arglist. Use new CALL_EXPR
accessors.
(estimate_num_insns_1): Use new CALL_EXPR accessors.
(expand_call_inline): Tidy up call to initialize_inlined_parameters.
* tree-vect-transform.c (vect_create_epilog_for_reduction): Use
TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
(vectorizable_reduction): Likewise.
(vectorizable_call): Use new CALL_EXPR iterators.
(vectorizable_conversion): Use build_call_expr.
(vectorizable_operation): Use TREE_OPERAND_LENGTH.
(vect_gen_widened_results_half): Use build_call_expr.
(vect_setup_realignment): Likewise.
(vectorizable_live_operation): Use TREE_OPERAND_LENGTH.
* tree-object-size.c (alloc_object_size): Use new CALL_EXPR accessors.
(pass_through_call): Likewise.
(compute_object_sizes): Likewise. Use fold_call_expr instead of
fold_builtin.
* tree-profile.c (tree_gen_interval_profiler): Use build_call_expr.
(tree_gen_pow2_profiler): Likewise.
(tree_gen_one_value_profiler): Likewise.
(tree_gen_ic_func_profiler): Likewise.
(tree_gen_average_profiler): Likewise.
(tree_gen_ior_profiler): Likewise.
* tree-ssa-structalias.c (get_constraint_for): Add case tcc_vl_exp.
(find_func_aliases): Use new CALL_EXPR accessors. Add case
tcc_vl_exp. Use TREE_OPERAND_LENGTH instead of TREE_CODE_LENGTH.
* tree-ssa-reassoc.c (get_rank): Use TREE_OPERAND_LENGTH instead
of TREE_CODE_LENGTH.
* stmt.c (warn_if_unused_value): Use TREE_OPERAND_LENGTH instead
of TREE_CODE_LENGTH.
* convert.c (convert_to_real): Use new CALL_EXPR accessors and
constructor.
(convert_to_integer): Likewise.
* tree-ssa-operands.c (get_call_expr_operands): Use new CALL_EXPR
accessors.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* config/alpha/alpha.c (alpha_expand_builtin): Use new CALL_EXPR
accessors.
* config/frv/frv.c (frv_expand_builtin): Likewise.
* config/s390/s390.c (s390_expand_builtin): Likewise.
* config/sparc/sparc.c (sparc_gimplify_va_arg): Use build_call_expr.
(sparc_expand_builtin): Use new CALL_EXPR accessors.
* config/i386/i386.c (ix86_function_ok_for_sibcall): Likewise.
(ix86_expand_binop_builtin): Pass entire CALL_EXPR as parameter
instead of arglist. Use new CALL_EXPR accessors on it. Fix callers.
(ix86_expand_store_builtin): Likewise.
(ix86_expand_unop_builtin): Likewise.
(ix86_expand_unop1_builtin): Likewise.
(ix86_expand_sse_compare): Likewise.
(ix86_expand_sse_comi): Likewise.
(ix86_expand_vec_init_builtin): Likewise.
(ix86_expand_vec_ext_builtin): Likewise.
(ix86_expand_vec_set_builtin): Likewise.
(ix86_expand_builtin): Use new CALL_EXPR accessors.
* config/sh/sh.c (sh_expand_builtin): Use new CALL_EXPR accessors.
* config/c4x/c4x.c (c4x_expand_builtin): Likewise.
* config/iq2000/iq2000.c (expand_one_builtin): Pass entire CALL_EXPR
instead of arglist. Use new CALL_EXPR accessors. Fix callers.
(iq2000_expand_builtin): Use new CALL_EXPR accessors.
* config/rs6000/rs6000-c.c (altivec_build_resolved_builtin): Use
build_call_expr.
* config/rs6000/rs6000.c (rs6000_gimplify_va_arg): Likewise.
(rs6000_expand_unop_builtin): Pass entire CALL_EXPR instead of
arglist. Use new CALL_EXPR accessors. Fix callers.
(altivec_expand_abs_builtin): Likewise.
(rs6000_expand_binop_builtin): Likewise.
(altivec_expand_predicate_builtin): Likewise.
(altivec_expand_lv_builtin): Likewise.
(spe_expand_stv_builtin): Likewise.
(altivec_expand_stv_builtin): Likewise.
(rs6000_expand_ternop_builtin): Likewise.
(altivec_expand_ld_builtin): Use new CALL_EXPR accessors.
(altivec_expand_st_builtin): Likewise.
(altivec_expand_dst_builtin): Likewise.
(altivec_expand_vec_init_builtin): Pass entire CALL_EXPR instead of
arglist. Use new CALL_EXPR accessors. Fix callers.
(altivec_expand_vec_set_builtin): Likewise.
(altivec_expand_vec_ext_builtin): Likewise.
(altivec_expand_builtin): Use new CALL_EXPR accessors.
(spe_expand_builtin): Likewise.
(spe_expand_predicate_builtin): Pass entire CALL_EXPR instead of
arglist. Use new CALL_EXPR accessors. Fix callers.
(spe_expand_evsel_builtin): Likewise.
(rs6000_expand_builtin): Use new CALL_EXPR accessors. VCFUX and
FCFSX cases must construct whole new CALL_EXPR, not just arglist.
* config/arm/arm.c (arm_expand_binop_builtin): Pass entire CALL_EXPR
instead of arglist. Use new CALL_EXPR accessors. Fix callers.
(arm_expand_unop_builtin): Likewise.
(arm_expand_builtin): Use new CALL_EXPR accessors.
* config/mips/mips.c (mips_expand_builtin): Use new CALL_EXPR
accessors.
* config/bfin/bfin.c (bfin_expand_binop_builtin): Pass entire CALL_EXPR
instead of arglist. Use new CALL_EXPR accessors. Fix callers.
(bfin_expand_unop_builtin): Likewise.
(bfin_expand_builtin): Use new CALL_EXPR accessors.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* c-semantics.c (build_stmt): Add internal diagnostic check.
* c-pretty-print.c (pp_c_postfix_expression): Use new CALL_EXPR
accessors. Print arguments explicitly instead of as a list.
* c-typeck.c (build_function_call): Use new CALL_EXPR constructors.
* c-omp.c (c_finish_omp_barrier): Use build_call_expr.
(c_finish_omp_flish): Likewise.
* c-common.c (verify_tree): Use new CALL_EXPR accessors. Traverse
arguments explicitly instead of as a list. Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
(check_function_arguments_recurse): Use new CALL_EXPR accessors.
(c_warn_unused_result): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* cp-tree.def (AGGR_INIT_EXPR): Adjust documentation.
Change class to tcc_vl_exp.
* call.c (build_call): Use build_call_list instead
of build3.
(build_over_call): Likewise.
(build_new_method_call): Use build_min_non_dep_call_list
instead of build_min_non_dep.
* error.c (dump_call_expr_args): New function.
(dump_aggr_init_expr_args): New function.
(dump_expr) <AGGR_INIT_EXPR, CALL_EXPR, INDIRECT_REF>: Use them.
Update to use new CALL_EXPR and AGGR_INIT_EXPR accessor macros.
* cvt.c (convert_to_void): Use build_call_array instead
of build3; use new AGGR_INIT_EXPR accessor macros.
* mangle.c (write_expression): Use TREE_OPERAND_LENGTH
instead of TREE_CODE_LENGTH.
* dump.c (cp_dump_tree) <AGGR_INIT_EXPR>: Update to use new
AGGR_INIT_EXPR accessor macros.
* cp-gimplify.c (cp_gimplify_init_expr): Use
AGGR_INIT_EXPR_SLOT to set the slot operand.
* cp-tree.h (AGGR_INIT_EXPR_FN): New macro.
(AGGR_INIT_EXPR_SLOT): New macro.
(AGGR_INIT_EXPR_ARG): New macro.
(aggr_init_expr_nargs): New macro.
(AGGR_INIT_EXPR_ARGP): New macro.
(aggr_init_expr_arg_iterator): New.
(init_aggr_init_expr_arg_iterator): New.
(next_aggr_init_expr_arg): New.
(first_aggr_init_expr_arg): New.
(more_aggr_init_expr_args_p): New.
(FOR_EACH_AGGR_INIT_EXPR_ARG): New.
(stabilize_aggr_init): New declaration.
(build_min_non_dep_call_list): Likewise.
* tree.c (process_aggr_init_operands): New function.
(build_aggr_init_array) New function.
(build_cplus_new): Update to use new CALL_EXPR and
AGGR_INIT_EXPR accessor macros. Replace use of build3 with
build_aggr_init_array.
(build_min_non_dep_call_list) New function.
(build_min_nt): Assert input code parameter is not a variable
length expression class.
(build_min, build_min_non_dep): Likewise.
(cp_tree_equal) <CALL_EXPR>: Iterate through the arguments
to check for equality instead of recursing. Handle tcc_vl_exp
tree code classes.
(stabilize_call): Update to only handle CALL_EXPRs, not
AGGR_INIT_EXPRs; use new CALL_EXPR accessor macros.
(stabilize_aggr_init): New function.
(stabilize_init): Use it.
* cxx-pretty-print.c (pp_cxx_postfix_expression)
<AGGR_INIT_EXPR, CALL_EXPR>: Update to use new CALL_EXPR and
AGGR_INIT_EXPR accessor macros and argument iterators.
* pt.c (tsubst_copy) <CALL_EXPR>: Replace build_nt with
build_vl_exp. Iterate through the operands, recursively
processing each one.
(tsubst_copy_and_build) <CALL_EXPR>: Update to use new
CALL_EXPR accessor macros.
(value_dependent_expression_p) <default>: Handle tcc_vl_exp
tree code classes. Use TREE_OPERAND_LENGTH instead of
TREE_CODE_LENGTH.
* semantics.c (finish_call_expr): Use build_nt_call_list
instead of build_nt.
(simplify_aggr_init_expr): Update to use new AGGR_INIT_EXPR
accessor macros. Use build_call_array to construct the
CALL_EXPR node instead of build3
* decl2.c (build_offset_ref_call_from_tree): Use
build_nt_call_list and build_min_non_dep_call_list instead
of build_min_nt and build_min_non_dep.
* parser.c (cp_parser_postfix_expression) <CPP_OPEN_PAREN>:
Use build_nt_call_list instead of build_min_nt.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* java-tree.h (BUILD_MONITOR_ENTER): Use build_call_nary instead
of build3.
(BUILD_MONITOR_EXIT): Likewise.
* java-gimplify.c (java_gimplify_component_ref): Use build_call_expr.
(java_gimplify_modify_expr): Likewise.
* class.c (cache_this_class_ref): Use build_call_expr.
(build_static_field_ref): Likewise.
(emit_indirect_register_classes): Likewise.
(emit_register_classes): Likewise.
* resource.c (write_resource_constructor): Use build_call_expr.
* builtins.c (builtin_creator_function): Change interpretation of
the second parameter to be the whole CALL_EXPR instead of the arglist.
(max_builtin): Tweak parameter list. Use new CALL_EXPR accessors.
(min_builtin): Likewise.
(abs_builtin): Likewise.
(java_build_function_call_expr): Likewise.
(convert_real): Likewise.
(UNMARSHAL3): Likewise.
(UNMARSHAL4): Likewise.
(UNMARSHAL5): Likewise.
(build_arglist_for_builtin): Delete. Fix callers to use
build_call_expr instead.
(putObject_builtin): Tweak parameter list. Use new CALL_EXPR
accessors.
(compareAndSwapInt_builtin): Likewise.
(compareAndSwapLong_builtin): Likewise.
(compareAndSwapObject_builtin): Likewise.
(putVolatile_builtin): Likewise.
(getVolatile_builtin): Likewise.
(VMSupportsCS8_builtin): Likewise.
(check_for_builtin): Pass entire CALL_EXPR to builtin expander
instead of arglist.
* expr.c (build_java_athrow): Use build_call_nary instead of build3.
(build_java_throw_out_of_bounds_exception): Likewise.
(java_check_reference): Likewise.
(build_java_arraystore_check): Likewise.
(build_newarray): Likewise.
(build_anewarray): Likewise.
(expand_java_multinewarray): Use build_call_list instead of build3.
(build_java_monitor): Use build_call_nary instead of build3.
(java_create_object): Likewise.
(expand_java_NEW): Likewise.
(build_instanceof): Likewise.
(expand_java_CHECKCAST): Likewise.
(build_java_soft_divmod): Likewise.
(build_java_binop): Likewise.
(build_field_ref): Likewise.
(build_class_init): Likewise.
(rewrite_arglist_getcaller): Use build_call_expr.
(build_invokeinterface): Use build_call_nary instead of build3.
(expand_invoke): Use build_call_list instead of build3.
(build_jni_stub): Use build_call_nary, build_call_list, or
build_call_expr instead of build3.
(expand_java_field_op): Use build_call_expr instead of build3.
(force_evaluation_order): Use new CALL_EXPR accessors.
* lang.c (java_get_callee_fndecl): Use new CALL_EXPR accessors.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* objc-act.c (receiver_is_class_object): Use new CALL_EXPR accessors.
(objc_get_callee_fndecl): Likewise.
2007-02-15 Sandra Loosemore <sandra@codesourcery.com>
Brooks Moses <brooks.moses@codesourcery.com>
Lee Millward <lee.millward@codesourcery.com>
* trans-expr.c (gfc_conv_power_op): Use build_call_expr.
(gfc_conv_string_tmp): Likewise.
(gfc_conv_concat_op): Likewise.
(gfc_build_compare_string): Likewise.
(gfc_conv_function_call): Use build_call_list instead of build3.
* trans-array.c (gfc_trans_allocate_array_storage): Use
build_call_expr.
(gfc_grow_array): Likewise.
(gfc_trans_array_ctor_element): Likewise.
(gfc_trans_array_constructor_value): Likewise.
(gfc_array_allocate): Likewise.
(gfc_array_deallocate): Likewise.
(gfc_trans_auto_array_allocation): Likewise.
(gfc_trans_dummy_array_bias): Likewise.
(gfc_conv_array_parameter): Likewise.
(gfc_trans_dealloc_allocated): Likewise.
(gfc_duplicate_allocatable): Likewise.
* trans-openmp.c (gfc_trans_omp_barrier): Use build_call_expr.
(gfc_trans_omp_flush): Likewise.
* trans-stmt.c (gfc_conv_elementel_dependencies): Use build_call_expr.
(gfc_trans_pause): Likewise.
(gfc_trans_stop): Likewise.
(gfc_trans_character_select): Likewise.
(gfc_do_allocate): Likewise.
(gfc_trans_assign_need_temp): Likewise.
(gfc_trans_pointer_assign_need_temp): Likewise.
(gfc_trans_forall_1): Likewise.
(gfc_trans_where_2): Likewise.
(gfc_trans_allocate): Likewise.
(gfc_trans_deallocate): Likewise.
* trans.c (gfc_trans_runtime_check): Use build_call_expr.
* trans-io.c (gfc_trans_open): Use build_call_expr.
(gfc_trans_close): Likewise.
(build_filepos): Likewise.
(gfc_trans_inquire): Likewise.
(NML_FIRST_ARG): Delete.
(NML_ADD_ARG): Delete.
(transfer_namelist_element): Use build_call_expr.
(build_dt): Likewise.
(gfc_trans_dt_end): Likewise.
(transfer_expr): Likewise.
(transfer_array-desc): Likewise.
* trans-decl.c (gfc_generate_function_code): Use build_call_expr.
(gfc_generate_constructors): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_ctime): Use build_call_expr.
(gfc_conv_intrinsic_fdate): Likewise.
(gfc_conv_intrinsic_ttynam): Likewise.
(gfc_conv_intrinsic_array_transfer): Likewise.
(gfc_conv_associated): Likewise.
(gfc_conv_intrinsic_si_kind): Likewise.
(gfc_conv_intrinsic_trim): Likewise.
(gfc_conv_intrinsic_repeat: Likewise.
(gfc_conv_intrinsic_iargc): Likewise.
Co-Authored-By: Brooks Moses <brooks.moses@codesourcery.com>
Co-Authored-By: Lee Millward <lee.millward@codesourcery.com>
From-SVN: r122018
2007-02-16 00:50:49 +01:00
|
|
|
|
oprintf (d->of, ");\n");
|
|
|
|
|
|
|
|
|
|
oprintf (d->of, "%*sfor (i%d = 0; i%d != l%d; i%d++) {\n",
|
|
|
|
|
d->indent, "",
|
|
|
|
|
loopcounter, loopcounter, loopcounter, loopcounter);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d->indent += 2;
|
|
|
|
|
d->val = newval = xasprintf ("%s[i%d]", oldval, loopcounter);
|
|
|
|
|
d->used_length = 1;
|
|
|
|
|
walk_type (t->u.a.p, d);
|
|
|
|
|
free (newval);
|
|
|
|
|
d->used_length = 0;
|
|
|
|
|
d->val = oldval;
|
|
|
|
|
d->indent -= 2;
|
|
|
|
|
oprintf (d->of, "%*s}\n", d->indent, "");
|
|
|
|
|
d->indent -= 2;
|
|
|
|
|
oprintf (d->of, "%*s}\n", d->indent, "");
|
|
|
|
|
}
|
|
|
|
|
break;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
case TYPE_STRUCT:
|
|
|
|
|
case TYPE_UNION:
|
|
|
|
|
{
|
|
|
|
|
pair_p f;
|
|
|
|
|
const char *oldval = d->val;
|
|
|
|
|
const char *oldprevval1 = d->prev_val[1];
|
|
|
|
|
const char *oldprevval2 = d->prev_val[2];
|
|
|
|
|
const int union_p = t->kind == TYPE_UNION;
|
|
|
|
|
int seen_default_p = 0;
|
|
|
|
|
options_p o;
|
|
|
|
|
|
|
|
|
|
if (! t->u.s.line.file)
|
|
|
|
|
error_at_line (d->line, "incomplete structure `%s'", t->u.s.tag);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if ((d->bitmap & t->u.s.bitmap) != d->bitmap)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
error_at_line (d->line,
|
|
|
|
|
"structure `%s' defined for mismatching languages",
|
|
|
|
|
t->u.s.tag);
|
|
|
|
|
error_at_line (&t->u.s.line, "one structure defined here");
|
|
|
|
|
}
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
/* Some things may also be defined in the structure's options. */
|
|
|
|
|
for (o = t->u.s.opt; o; o = o->next)
|
|
|
|
|
if (! desc && strcmp (o->name, "desc") == 0)
|
2004-08-02 14:48:49 +02:00
|
|
|
|
desc = o->info;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d->prev_val[2] = oldval;
|
|
|
|
|
d->prev_val[1] = oldprevval2;
|
|
|
|
|
if (union_p)
|
|
|
|
|
{
|
|
|
|
|
if (desc == NULL)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
error_at_line (d->line, "missing `desc' option for union `%s'",
|
|
|
|
|
t->u.s.tag);
|
|
|
|
|
desc = "1";
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d->of, "%*sswitch (", d->indent, "");
|
|
|
|
|
output_escaped_param (d, desc, "desc");
|
|
|
|
|
oprintf (d->of, ")\n");
|
|
|
|
|
d->indent += 2;
|
|
|
|
|
oprintf (d->of, "%*s{\n", d->indent, "");
|
|
|
|
|
}
|
|
|
|
|
for (f = t->u.s.fields; f; f = f->next)
|
|
|
|
|
{
|
|
|
|
|
options_p oo;
|
|
|
|
|
const char *dot = ".";
|
|
|
|
|
const char *tagid = NULL;
|
|
|
|
|
int skip_p = 0;
|
|
|
|
|
int default_p = 0;
|
|
|
|
|
int use_param_p = 0;
|
|
|
|
|
char *newval;
|
|
|
|
|
|
|
|
|
|
d->reorder_fn = NULL;
|
|
|
|
|
for (oo = f->opt; oo; oo = oo->next)
|
|
|
|
|
if (strcmp (oo->name, "dot") == 0)
|
2004-08-02 14:48:49 +02:00
|
|
|
|
dot = oo->info;
|
2003-01-10 03:22:34 +01:00
|
|
|
|
else if (strcmp (oo->name, "tag") == 0)
|
2004-08-02 14:48:49 +02:00
|
|
|
|
tagid = oo->info;
|
2003-01-10 03:22:34 +01:00
|
|
|
|
else if (strcmp (oo->name, "skip") == 0)
|
|
|
|
|
skip_p = 1;
|
|
|
|
|
else if (strcmp (oo->name, "default") == 0)
|
|
|
|
|
default_p = 1;
|
|
|
|
|
else if (strcmp (oo->name, "reorder") == 0)
|
2004-08-02 14:48:49 +02:00
|
|
|
|
d->reorder_fn = oo->info;
|
2003-01-10 03:22:34 +01:00
|
|
|
|
else if (strncmp (oo->name, "use_param", 9) == 0
|
|
|
|
|
&& (oo->name[9] == '\0' || ISDIGIT (oo->name[9])))
|
|
|
|
|
use_param_p = 1;
|
|
|
|
|
|
|
|
|
|
if (skip_p)
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
if (union_p && tagid)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d->of, "%*scase %s:\n", d->indent, "", tagid);
|
|
|
|
|
d->indent += 2;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
else if (union_p && default_p)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d->of, "%*sdefault:\n", d->indent, "");
|
|
|
|
|
d->indent += 2;
|
|
|
|
|
seen_default_p = 1;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
else if (! union_p && (default_p || tagid))
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (d->line,
|
2003-01-10 03:22:34 +01:00
|
|
|
|
"can't use `%s' outside a union on field `%s'",
|
|
|
|
|
default_p ? "default" : "tag", f->name);
|
|
|
|
|
else if (union_p && ! (default_p || tagid)
|
|
|
|
|
&& f->type->kind == TYPE_SCALAR)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
fprintf (stderr,
|
|
|
|
|
"%s:%d: warning: field `%s' is missing `tag' or `default' option\n",
|
|
|
|
|
d->line->file, d->line->line, f->name);
|
|
|
|
|
continue;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
else if (union_p && ! (default_p || tagid))
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (d->line,
|
2003-01-10 03:22:34 +01:00
|
|
|
|
"field `%s' is missing `tag' or `default' option",
|
2002-06-04 09:11:05 +02:00
|
|
|
|
f->name);
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d->line = &f->line;
|
|
|
|
|
d->val = newval = xasprintf ("%s%s%s", oldval, dot, f->name);
|
|
|
|
|
d->opt = f->opt;
|
2004-06-09 22:10:13 +02:00
|
|
|
|
d->used_length = false;
|
2003-01-10 03:22:34 +01:00
|
|
|
|
|
|
|
|
|
if (union_p && use_param_p && d->param == NULL)
|
Makefile.in (gengtype): Use $(BUILD_ERRORS).
* Makefile.in (gengtype): Use $(BUILD_ERRORS).
(gengtype.o): Depend on errors.h.
* genattrtab.c (strcmp_check): Use gcc_assert and gcc_unreachable.
(attr_rtx_1, attr_printf, attr_copy_rtx, evaluate_eq_attr,
attr_alt_subset_p, attr_alt_subset_of_compl_p,
attr_alt_intersection, attr_alt_union, optimize_attrs, gen_insn,
write_test_expr, write_attr_value, write_eligible_delay,
make_internal_attr, make_numeric_value): Likewise.
* genautomata.c (regexp_name, get_str_vect,
gen_presence_absence_set, automaton_decl_hash,
automaton_decl_eq_p, insn_decl_hash, insn_decl_eq_p, decl_hash,
decl_eq_p, process_regexp, loop_in_regexp, check_loops_in_regexps,
process_regexp_cycles, reserv_sets_cmp, set_unit_reserv,
test_unit_reserv, it_is_empty_reserv_sets,
reserv_sets_are_intersected, reserv_sets_shift, reserv_sets_or,
reserv_sets_and, output_cycle_reservs, get_free_state,
intersected_state_reservs_p, states_union, remove_arc,
copy_insn_regexp, transform_1, transform_2, transform_3,
regexp_transform_func, store_alt_unit_usage,
check_regexp_units_distribution, process_seq_for_forming_states,
process_alts_for_forming_states, make_automaton,
form_arcs_marked_by_insn, create_composed_state,
set_out_arc_insns_equiv_num, partition_equiv_class,
process_insn_equiv_class, set_insn_equiv_classes,
units_to_automata_heuristic_distr, form_regexp,
longest_path_length, output_dfa_max_issue_rate, add_vect,
out_state_arcs_num, add_vect_el, output_trans_table,
output_state_alts_table, output_dead_lock_vect,
output_max_insn_queue_index_def,
output_min_insn_conflict_delay_func,
output_internal_insn_latency_func, output_print_reservation_func,
output_cpu_unit_reservation_p, output_state_arcs,
make_insn_alts_attr, make_internal_dfa_insn_code_attr,
make_default_insn_latency_attr,
form_important_insn_automata_lists): Likewise.
* genemit.c (gen_exp, output_add_clobbers,
output_added_clobbers_hard_reg_p): Likewise.
* genextract.c (print_path, main): Likewise.
* genflags.c (gen_macro): Likewise.
* gengenrtl.c: Include errors.h
(type_from_format, accessor_from_format): Likewise.
* gengtype.c (get_file_basename, output_mangled_typename,
walk_type, write_types_process_field,
write_types_local_process_field): Likewise.
* genmodes.c (complete_mode): Likewise.
* genopinit.c (gen_insn): Likewise.
* genoutput.c (output_insn_data, check_constraint_len,
constraint_len): Likewise.
* genpreds.c (add_mode_tests):Likewise.
* gen-protos.c (add_hash): Likewise.
* genrecog.c (find_operand, find_matching_operand,
validate_pattern, add_to_sequence, maybe_both_true,
nodes_identical_1, merge_trees, write_switch, write_cond,
write_action, is_unconditional, make_insn_sequence,
debug_decision_2): Likewise.
* gensupport.c (is_predicable, collect_insn_data,
alter_predicate_for_insn, maybe_eval_c_test): Likewise.
From-SVN: r87236
2004-09-09 15:22:38 +02:00
|
|
|
|
oprintf (d->of, "%*sgcc_unreachable ();\n", d->indent, "");
|
2003-01-10 03:22:34 +01:00
|
|
|
|
else
|
|
|
|
|
walk_type (f->type, d);
|
|
|
|
|
|
|
|
|
|
free (newval);
|
|
|
|
|
|
|
|
|
|
if (union_p)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d->of, "%*sbreak;\n", d->indent, "");
|
|
|
|
|
d->indent -= 2;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
}
|
|
|
|
|
d->reorder_fn = NULL;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d->val = oldval;
|
|
|
|
|
d->prev_val[1] = oldprevval1;
|
|
|
|
|
d->prev_val[2] = oldprevval2;
|
|
|
|
|
|
|
|
|
|
if (union_p && ! seen_default_p)
|
|
|
|
|
{
|
|
|
|
|
oprintf (d->of, "%*sdefault:\n", d->indent, "");
|
|
|
|
|
oprintf (d->of, "%*s break;\n", d->indent, "");
|
|
|
|
|
}
|
|
|
|
|
if (union_p)
|
|
|
|
|
{
|
|
|
|
|
oprintf (d->of, "%*s}\n", d->indent, "");
|
|
|
|
|
d->indent -= 2;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
}
|
|
|
|
|
break;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
case TYPE_LANG_STRUCT:
|
|
|
|
|
{
|
|
|
|
|
type_p nt;
|
|
|
|
|
for (nt = t->u.s.lang_struct; nt; nt = nt->next)
|
|
|
|
|
if ((d->bitmap & nt->u.s.bitmap) == d->bitmap)
|
|
|
|
|
break;
|
|
|
|
|
if (nt == NULL)
|
|
|
|
|
error_at_line (d->line, "structure `%s' differs between languages",
|
|
|
|
|
t->u.s.tag);
|
|
|
|
|
else
|
|
|
|
|
walk_type (nt, d);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TYPE_PARAM_STRUCT:
|
|
|
|
|
{
|
|
|
|
|
type_p *oldparam = d->param;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d->param = t->u.param_struct.param;
|
|
|
|
|
walk_type (t->u.param_struct.stru, d);
|
|
|
|
|
d->param = oldparam;
|
|
|
|
|
}
|
|
|
|
|
break;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
default:
|
Makefile.in (gengtype): Use $(BUILD_ERRORS).
* Makefile.in (gengtype): Use $(BUILD_ERRORS).
(gengtype.o): Depend on errors.h.
* genattrtab.c (strcmp_check): Use gcc_assert and gcc_unreachable.
(attr_rtx_1, attr_printf, attr_copy_rtx, evaluate_eq_attr,
attr_alt_subset_p, attr_alt_subset_of_compl_p,
attr_alt_intersection, attr_alt_union, optimize_attrs, gen_insn,
write_test_expr, write_attr_value, write_eligible_delay,
make_internal_attr, make_numeric_value): Likewise.
* genautomata.c (regexp_name, get_str_vect,
gen_presence_absence_set, automaton_decl_hash,
automaton_decl_eq_p, insn_decl_hash, insn_decl_eq_p, decl_hash,
decl_eq_p, process_regexp, loop_in_regexp, check_loops_in_regexps,
process_regexp_cycles, reserv_sets_cmp, set_unit_reserv,
test_unit_reserv, it_is_empty_reserv_sets,
reserv_sets_are_intersected, reserv_sets_shift, reserv_sets_or,
reserv_sets_and, output_cycle_reservs, get_free_state,
intersected_state_reservs_p, states_union, remove_arc,
copy_insn_regexp, transform_1, transform_2, transform_3,
regexp_transform_func, store_alt_unit_usage,
check_regexp_units_distribution, process_seq_for_forming_states,
process_alts_for_forming_states, make_automaton,
form_arcs_marked_by_insn, create_composed_state,
set_out_arc_insns_equiv_num, partition_equiv_class,
process_insn_equiv_class, set_insn_equiv_classes,
units_to_automata_heuristic_distr, form_regexp,
longest_path_length, output_dfa_max_issue_rate, add_vect,
out_state_arcs_num, add_vect_el, output_trans_table,
output_state_alts_table, output_dead_lock_vect,
output_max_insn_queue_index_def,
output_min_insn_conflict_delay_func,
output_internal_insn_latency_func, output_print_reservation_func,
output_cpu_unit_reservation_p, output_state_arcs,
make_insn_alts_attr, make_internal_dfa_insn_code_attr,
make_default_insn_latency_attr,
form_important_insn_automata_lists): Likewise.
* genemit.c (gen_exp, output_add_clobbers,
output_added_clobbers_hard_reg_p): Likewise.
* genextract.c (print_path, main): Likewise.
* genflags.c (gen_macro): Likewise.
* gengenrtl.c: Include errors.h
(type_from_format, accessor_from_format): Likewise.
* gengtype.c (get_file_basename, output_mangled_typename,
walk_type, write_types_process_field,
write_types_local_process_field): Likewise.
* genmodes.c (complete_mode): Likewise.
* genopinit.c (gen_insn): Likewise.
* genoutput.c (output_insn_data, check_constraint_len,
constraint_len): Likewise.
* genpreds.c (add_mode_tests):Likewise.
* gen-protos.c (add_hash): Likewise.
* genrecog.c (find_operand, find_matching_operand,
validate_pattern, add_to_sequence, maybe_both_true,
nodes_identical_1, merge_trees, write_switch, write_cond,
write_action, is_unconditional, make_insn_sequence,
debug_decision_2): Likewise.
* gensupport.c (is_predicable, collect_insn_data,
alter_predicate_for_insn, maybe_eval_c_test): Likewise.
From-SVN: r87236
2004-09-09 15:22:38 +02:00
|
|
|
|
gcc_unreachable ();
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* process_field routine for marking routines. */
|
|
|
|
|
|
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
write_types_process_field (type_p f, const struct walk_type_data *d)
|
2003-01-10 03:22:34 +01:00
|
|
|
|
{
|
|
|
|
|
const struct write_types_data *wtd;
|
2003-01-31 02:42:38 +01:00
|
|
|
|
const char *cast = d->needs_cast_p ? "(void *)" : "";
|
2003-01-10 03:22:34 +01:00
|
|
|
|
wtd = (const struct write_types_data *) d->cookie;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
switch (f->kind)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
case TYPE_POINTER:
|
2003-06-01 17:59:10 +02:00
|
|
|
|
oprintf (d->of, "%*s%s (%s%s", d->indent, "",
|
2003-01-31 02:42:38 +01:00
|
|
|
|
wtd->subfield_marker_routine, cast, d->val);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if (wtd->param_prefix)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d->of, ", %s", d->prev_val[3]);
|
|
|
|
|
if (d->orig_s)
|
|
|
|
|
{
|
|
|
|
|
oprintf (d->of, ", gt_%s_", wtd->param_prefix);
|
|
|
|
|
output_mangled_typename (d->of, d->orig_s);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
oprintf (d->of, ", gt_%sa_%s", wtd->param_prefix, d->prev_val[0]);
|
ggc-zone.c: Rewritten.
* ggc-zone.c: Rewritten.
* alloc-pool.c (dump_alloc_pool_statistics): Don't print statistics
if there are none.
* configure.ac: Define GGC_ZONE for --with-gc=zone.
* config.in: Regenerated.
* configure: Regenerated.
* gentype.c (write_types_process_field, write_func_for_structure):
Pass new argument to gt_pch_note_object.
* ggc-common.c (struct ptr_data): Add TYPE.
(gt_pch_note_object): Take TYPE argument and save it.
(call_count): Update call to ggc_pch_count_object.
(call_alloc): Update call to ggc_pch_alloc_object.
(gt_pch_save): Call ggc_pch_prepare_write after paddng the PCH
file.
* ggc-none.c (rtl_zone, garbage_zone, ggc_alloc_zone_stat): Delete.
* ggc-page.c (rtl_zone, tree_zone, garbage_zone)
(ggc_alloc_zone_stat): Delete.
(ggc_pch_count_object, ggc_pch_alloc_object): Add TYPE argument.
* ggc.h (gt_pch_note_object, ggc_pch_count_object)
(ggc_pch_alloc_object): Update prototypes.
(garbage_zone): Delete.
(tree_zone, rtl_zone, ggc_alloc_zone_stat, ggc_alloc_zone): Move to
GGC_ZONE conditional. Update. Change tree_zone and rtl_zone into
pointers.
(tree_id_zone): New variable.
(ggc_alloc_cleared_zone): Remove unused.
(ggc_alloc_zone): Define.
(ggc_alloc_rtvec, ggc_alloc_tree): Update to use ggc_alloc_zone.
* rtl.c (rtx_alloc_stat, shallow_copy_rtx_stat): Use
ggc_alloc_zone_stat.
* stringpool.c (gt_pch_n_S): Update call to gt_pch_note_object.
* tree.c (copy_node_stat, make_tree_binfo_stat, make_tree_vec_stat)
(tree_cons_stat, build1_stat): Update call to ggc_alloc_zone_stat.
(make_node_stat): Likewise. Use tree_id_zone.
From-SVN: r96381
2005-03-13 19:09:55 +01:00
|
|
|
|
|
|
|
|
|
if (f->u.p->kind == TYPE_PARAM_STRUCT
|
|
|
|
|
&& f->u.p->u.s.line.file != NULL)
|
|
|
|
|
{
|
|
|
|
|
oprintf (d->of, ", gt_e_");
|
|
|
|
|
output_mangled_typename (d->of, f);
|
|
|
|
|
}
|
|
|
|
|
else if (UNION_OR_STRUCT_P (f)
|
|
|
|
|
&& f->u.p->u.s.line.file != NULL)
|
|
|
|
|
{
|
|
|
|
|
oprintf (d->of, ", gt_ggc_e_");
|
|
|
|
|
output_mangled_typename (d->of, f);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
oprintf (d->of, ", gt_types_enum_last");
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d->of, ");\n");
|
|
|
|
|
if (d->reorder_fn && wtd->reorder_note_routine)
|
2003-06-01 17:59:10 +02:00
|
|
|
|
oprintf (d->of, "%*s%s (%s%s, %s, %s);\n", d->indent, "",
|
2003-01-31 02:42:38 +01:00
|
|
|
|
wtd->reorder_note_routine, cast, d->val,
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d->prev_val[3], d->reorder_fn);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TYPE_STRING:
|
|
|
|
|
if (wtd->param_prefix == NULL)
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TYPE_STRUCT:
|
|
|
|
|
case TYPE_UNION:
|
|
|
|
|
case TYPE_LANG_STRUCT:
|
|
|
|
|
case TYPE_PARAM_STRUCT:
|
|
|
|
|
oprintf (d->of, "%*sgt_%s_", d->indent, "", wtd->prefix);
|
|
|
|
|
output_mangled_typename (d->of, f);
|
2003-01-31 02:42:38 +01:00
|
|
|
|
oprintf (d->of, " (%s%s);\n", cast, d->val);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if (d->reorder_fn && wtd->reorder_note_routine)
|
2003-06-01 17:59:10 +02:00
|
|
|
|
oprintf (d->of, "%*s%s (%s%s, %s%s, %s);\n", d->indent, "",
|
2003-01-31 02:42:38 +01:00
|
|
|
|
wtd->reorder_note_routine, cast, d->val, cast, d->val,
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d->reorder_fn);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TYPE_SCALAR:
|
|
|
|
|
break;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
default:
|
Makefile.in (gengtype): Use $(BUILD_ERRORS).
* Makefile.in (gengtype): Use $(BUILD_ERRORS).
(gengtype.o): Depend on errors.h.
* genattrtab.c (strcmp_check): Use gcc_assert and gcc_unreachable.
(attr_rtx_1, attr_printf, attr_copy_rtx, evaluate_eq_attr,
attr_alt_subset_p, attr_alt_subset_of_compl_p,
attr_alt_intersection, attr_alt_union, optimize_attrs, gen_insn,
write_test_expr, write_attr_value, write_eligible_delay,
make_internal_attr, make_numeric_value): Likewise.
* genautomata.c (regexp_name, get_str_vect,
gen_presence_absence_set, automaton_decl_hash,
automaton_decl_eq_p, insn_decl_hash, insn_decl_eq_p, decl_hash,
decl_eq_p, process_regexp, loop_in_regexp, check_loops_in_regexps,
process_regexp_cycles, reserv_sets_cmp, set_unit_reserv,
test_unit_reserv, it_is_empty_reserv_sets,
reserv_sets_are_intersected, reserv_sets_shift, reserv_sets_or,
reserv_sets_and, output_cycle_reservs, get_free_state,
intersected_state_reservs_p, states_union, remove_arc,
copy_insn_regexp, transform_1, transform_2, transform_3,
regexp_transform_func, store_alt_unit_usage,
check_regexp_units_distribution, process_seq_for_forming_states,
process_alts_for_forming_states, make_automaton,
form_arcs_marked_by_insn, create_composed_state,
set_out_arc_insns_equiv_num, partition_equiv_class,
process_insn_equiv_class, set_insn_equiv_classes,
units_to_automata_heuristic_distr, form_regexp,
longest_path_length, output_dfa_max_issue_rate, add_vect,
out_state_arcs_num, add_vect_el, output_trans_table,
output_state_alts_table, output_dead_lock_vect,
output_max_insn_queue_index_def,
output_min_insn_conflict_delay_func,
output_internal_insn_latency_func, output_print_reservation_func,
output_cpu_unit_reservation_p, output_state_arcs,
make_insn_alts_attr, make_internal_dfa_insn_code_attr,
make_default_insn_latency_attr,
form_important_insn_automata_lists): Likewise.
* genemit.c (gen_exp, output_add_clobbers,
output_added_clobbers_hard_reg_p): Likewise.
* genextract.c (print_path, main): Likewise.
* genflags.c (gen_macro): Likewise.
* gengenrtl.c: Include errors.h
(type_from_format, accessor_from_format): Likewise.
* gengtype.c (get_file_basename, output_mangled_typename,
walk_type, write_types_process_field,
write_types_local_process_field): Likewise.
* genmodes.c (complete_mode): Likewise.
* genopinit.c (gen_insn): Likewise.
* genoutput.c (output_insn_data, check_constraint_len,
constraint_len): Likewise.
* genpreds.c (add_mode_tests):Likewise.
* gen-protos.c (add_hash): Likewise.
* genrecog.c (find_operand, find_matching_operand,
validate_pattern, add_to_sequence, maybe_both_true,
nodes_identical_1, merge_trees, write_switch, write_cond,
write_action, is_unconditional, make_insn_sequence,
debug_decision_2): Likewise.
* gensupport.c (is_predicable, collect_insn_data,
alter_predicate_for_insn, maybe_eval_c_test): Likewise.
From-SVN: r87236
2004-09-09 15:22:38 +02:00
|
|
|
|
gcc_unreachable ();
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2005-04-29 23:42:27 +02:00
|
|
|
|
/* A subroutine of write_func_for_structure. Write the enum tag for S. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
output_type_enum (outf_p of, type_p s)
|
|
|
|
|
{
|
|
|
|
|
if (s->kind == TYPE_PARAM_STRUCT && s->u.s.line.file != NULL)
|
|
|
|
|
{
|
|
|
|
|
oprintf (of, ", gt_e_");
|
|
|
|
|
output_mangled_typename (of, s);
|
|
|
|
|
}
|
|
|
|
|
else if (UNION_OR_STRUCT_P (s) && s->u.s.line.file != NULL)
|
|
|
|
|
{
|
|
|
|
|
oprintf (of, ", gt_ggc_e_");
|
|
|
|
|
output_mangled_typename (of, s);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
oprintf (of, ", gt_types_enum_last");
|
|
|
|
|
}
|
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
/* For S, a structure that's part of ORIG_S, and using parameters
|
|
|
|
|
PARAM, write out a routine that:
|
|
|
|
|
- Takes a parameter, a void * but actually of type *S
|
|
|
|
|
- If SEEN_ROUTINE returns nonzero, calls write_types_process_field on each
|
|
|
|
|
field of S or its substructures and (in some cases) things
|
|
|
|
|
that are pointed to by S.
|
|
|
|
|
*/
|
2002-06-07 04:15:39 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
static void
|
2004-01-19 09:38:38 +01:00
|
|
|
|
write_func_for_structure (type_p orig_s, type_p s, type_p *param,
|
|
|
|
|
const struct write_types_data *wtd)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2002-09-16 20:33:23 +02:00
|
|
|
|
const char *fn = s->u.s.line.file;
|
|
|
|
|
int i;
|
|
|
|
|
const char *chain_next = NULL;
|
|
|
|
|
const char *chain_prev = NULL;
|
2007-01-19 18:56:18 +01:00
|
|
|
|
const char *mark_hook_name = NULL;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
options_p opt;
|
2003-01-10 03:22:34 +01:00
|
|
|
|
struct walk_type_data d;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
/* This is a hack, and not the good kind either. */
|
|
|
|
|
for (i = NUM_PARAM - 1; i >= 0; i--)
|
2003-06-01 17:59:10 +02:00
|
|
|
|
if (param && param[i] && param[i]->kind == TYPE_POINTER
|
2002-09-16 20:33:23 +02:00
|
|
|
|
&& UNION_OR_STRUCT_P (param[i]->u.p))
|
|
|
|
|
fn = param[i]->u.p->u.s.line.file;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
memset (&d, 0, sizeof (d));
|
|
|
|
|
d.of = get_output_file_with_visibility (fn);
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
for (opt = s->u.s.opt; opt; opt = opt->next)
|
|
|
|
|
if (strcmp (opt->name, "chain_next") == 0)
|
2004-08-02 14:48:49 +02:00
|
|
|
|
chain_next = opt->info;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else if (strcmp (opt->name, "chain_prev") == 0)
|
2004-08-02 14:48:49 +02:00
|
|
|
|
chain_prev = opt->info;
|
2007-01-19 18:56:18 +01:00
|
|
|
|
else if (strcmp (opt->name, "mark_hook") == 0)
|
|
|
|
|
mark_hook_name = opt->info;
|
2002-09-16 20:33:23 +02:00
|
|
|
|
|
|
|
|
|
if (chain_prev != NULL && chain_next == NULL)
|
|
|
|
|
error_at_line (&s->u.s.line, "chain_prev without chain_next");
|
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d.process_field = write_types_process_field;
|
|
|
|
|
d.cookie = wtd;
|
|
|
|
|
d.orig_s = orig_s;
|
|
|
|
|
d.opt = s->u.s.opt;
|
|
|
|
|
d.line = &s->u.s.line;
|
|
|
|
|
d.bitmap = s->u.s.bitmap;
|
|
|
|
|
d.param = param;
|
|
|
|
|
d.prev_val[0] = "*x";
|
2004-01-16 02:44:06 +01:00
|
|
|
|
d.prev_val[1] = "not valid postage"; /* Guarantee an error. */
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d.prev_val[3] = "x";
|
|
|
|
|
d.val = "(*x)";
|
|
|
|
|
|
|
|
|
|
oprintf (d.of, "\n");
|
|
|
|
|
oprintf (d.of, "void\n");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
if (param == NULL)
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d.of, "gt_%sx_%s", wtd->prefix, orig_s->u.s.tag);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
else
|
2002-09-16 20:33:23 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d.of, "gt_%s_", wtd->prefix);
|
|
|
|
|
output_mangled_typename (d.of, orig_s);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
2003-07-05 07:27:22 +02:00
|
|
|
|
oprintf (d.of, " (void *x_p)\n");
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d.of, "{\n");
|
|
|
|
|
oprintf (d.of, " %s %s * %sx = (%s %s *)x_p;\n",
|
2002-06-04 09:11:05 +02:00
|
|
|
|
s->kind == TYPE_UNION ? "union" : "struct", s->u.s.tag,
|
2002-09-16 20:33:23 +02:00
|
|
|
|
chain_next == NULL ? "const " : "",
|
2002-06-04 09:11:05 +02:00
|
|
|
|
s->kind == TYPE_UNION ? "union" : "struct", s->u.s.tag);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
if (chain_next != NULL)
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d.of, " %s %s * xlimit = x;\n",
|
2002-09-16 20:33:23 +02:00
|
|
|
|
s->kind == TYPE_UNION ? "union" : "struct", s->u.s.tag);
|
|
|
|
|
if (chain_next == NULL)
|
2003-01-10 03:22:34 +01:00
|
|
|
|
{
|
|
|
|
|
oprintf (d.of, " if (%s (x", wtd->marker_routine);
|
|
|
|
|
if (wtd->param_prefix)
|
|
|
|
|
{
|
|
|
|
|
oprintf (d.of, ", x, gt_%s_", wtd->param_prefix);
|
|
|
|
|
output_mangled_typename (d.of, orig_s);
|
2005-04-29 23:42:27 +02:00
|
|
|
|
output_type_enum (d.of, orig_s);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
}
|
|
|
|
|
oprintf (d.of, "))\n");
|
|
|
|
|
}
|
2002-09-16 20:33:23 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d.of, " while (%s (xlimit", wtd->marker_routine);
|
|
|
|
|
if (wtd->param_prefix)
|
|
|
|
|
{
|
|
|
|
|
oprintf (d.of, ", xlimit, gt_%s_", wtd->param_prefix);
|
|
|
|
|
output_mangled_typename (d.of, orig_s);
|
2005-04-29 23:42:27 +02:00
|
|
|
|
output_type_enum (d.of, orig_s);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
}
|
|
|
|
|
oprintf (d.of, "))\n");
|
2007-01-19 18:56:18 +01:00
|
|
|
|
if (mark_hook_name && !wtd->skip_hooks)
|
|
|
|
|
{
|
|
|
|
|
oprintf (d.of, " {\n");
|
|
|
|
|
oprintf (d.of, " %s (xlimit);\n ", mark_hook_name);
|
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d.of, " xlimit = (");
|
|
|
|
|
d.prev_val[2] = "*xlimit";
|
|
|
|
|
output_escaped_param (&d, chain_next, "chain_next");
|
|
|
|
|
oprintf (d.of, ");\n");
|
2007-01-19 18:56:18 +01:00
|
|
|
|
if (mark_hook_name && !wtd->skip_hooks)
|
|
|
|
|
oprintf (d.of, " }\n");
|
2002-09-16 20:33:23 +02:00
|
|
|
|
if (chain_prev != NULL)
|
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d.of, " if (x != xlimit)\n");
|
|
|
|
|
oprintf (d.of, " for (;;)\n");
|
|
|
|
|
oprintf (d.of, " {\n");
|
|
|
|
|
oprintf (d.of, " %s %s * const xprev = (",
|
2002-09-16 20:33:23 +02:00
|
|
|
|
s->kind == TYPE_UNION ? "union" : "struct", s->u.s.tag);
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d.prev_val[2] = "*x";
|
|
|
|
|
output_escaped_param (&d, chain_prev, "chain_prev");
|
|
|
|
|
oprintf (d.of, ");\n");
|
|
|
|
|
oprintf (d.of, " if (xprev == NULL) break;\n");
|
|
|
|
|
oprintf (d.of, " x = xprev;\n");
|
2003-06-01 17:59:10 +02:00
|
|
|
|
oprintf (d.of, " (void) %s (xprev",
|
2003-01-10 03:22:34 +01:00
|
|
|
|
wtd->marker_routine);
|
|
|
|
|
if (wtd->param_prefix)
|
|
|
|
|
{
|
|
|
|
|
oprintf (d.of, ", xprev, gt_%s_", wtd->param_prefix);
|
|
|
|
|
output_mangled_typename (d.of, orig_s);
|
2005-04-29 23:42:27 +02:00
|
|
|
|
output_type_enum (d.of, orig_s);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
}
|
|
|
|
|
oprintf (d.of, ");\n");
|
|
|
|
|
oprintf (d.of, " }\n");
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d.of, " while (x != xlimit)\n");
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d.of, " {\n");
|
2007-01-19 18:56:18 +01:00
|
|
|
|
if (mark_hook_name && chain_next == NULL && !wtd->skip_hooks)
|
|
|
|
|
{
|
|
|
|
|
oprintf (d.of, " %s (x);\n", mark_hook_name);
|
|
|
|
|
}
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d.prev_val[2] = "*x";
|
|
|
|
|
d.indent = 6;
|
|
|
|
|
walk_type (s, &d);
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
if (chain_next != NULL)
|
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d.of, " x = (");
|
|
|
|
|
output_escaped_param (&d, chain_next, "chain_next");
|
|
|
|
|
oprintf (d.of, ");\n");
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d.of, " }\n");
|
|
|
|
|
oprintf (d.of, "}\n");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2002-06-07 04:15:39 +02:00
|
|
|
|
|
|
|
|
|
/* Write out marker routines for STRUCTURES and PARAM_STRUCTS. */
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
write_types (type_p structures, type_p param_structs,
|
|
|
|
|
const struct write_types_data *wtd)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
type_p s;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (header_file, "\n/* %s*/\n", wtd->comment);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (s = structures; s; s = s->next)
|
|
|
|
|
if (s->gc_used == GC_POINTED_TO
|
|
|
|
|
|| s->gc_used == GC_MAYBE_POINTED_TO)
|
|
|
|
|
{
|
|
|
|
|
options_p opt;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
if (s->gc_used == GC_MAYBE_POINTED_TO
|
|
|
|
|
&& s->u.s.line.file == NULL)
|
|
|
|
|
continue;
|
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (header_file, "#define gt_%s_", wtd->prefix);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
output_mangled_typename (header_file, s);
|
|
|
|
|
oprintf (header_file, "(X) do { \\\n");
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (header_file,
|
2003-06-01 17:59:10 +02:00
|
|
|
|
" if (X != NULL) gt_%sx_%s (X);\\\n", wtd->prefix,
|
2003-01-10 03:22:34 +01:00
|
|
|
|
s->u.s.tag);
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (header_file,
|
2002-06-04 09:11:05 +02:00
|
|
|
|
" } while (0)\n");
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (opt = s->u.s.opt; opt; opt = opt->next)
|
|
|
|
|
if (strcmp (opt->name, "ptr_alias") == 0)
|
|
|
|
|
{
|
|
|
|
|
type_p t = (type_p) opt->info;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
if (t->kind == TYPE_STRUCT
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|| t->kind == TYPE_UNION
|
|
|
|
|
|| t->kind == TYPE_LANG_STRUCT)
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (header_file,
|
2003-01-10 03:22:34 +01:00
|
|
|
|
"#define gt_%sx_%s gt_%sx_%s\n",
|
|
|
|
|
wtd->prefix, s->u.s.tag, wtd->prefix, t->u.s.tag);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
else
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (&s->u.s.line,
|
2002-06-04 09:11:05 +02:00
|
|
|
|
"structure alias is not a structure");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
if (opt)
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
/* Declare the marker procedure only once. */
|
2003-06-01 17:59:10 +02:00
|
|
|
|
oprintf (header_file,
|
|
|
|
|
"extern void gt_%sx_%s (void *);\n",
|
2003-01-10 03:22:34 +01:00
|
|
|
|
wtd->prefix, s->u.s.tag);
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
if (s->u.s.line.file == NULL)
|
|
|
|
|
{
|
2003-06-01 17:59:10 +02:00
|
|
|
|
fprintf (stderr, "warning: structure `%s' used but not defined\n",
|
2002-06-04 09:11:05 +02:00
|
|
|
|
s->u.s.tag);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
if (s->kind == TYPE_LANG_STRUCT)
|
|
|
|
|
{
|
|
|
|
|
type_p ss;
|
|
|
|
|
for (ss = s->u.s.lang_struct; ss; ss = ss->next)
|
2003-01-10 03:22:34 +01:00
|
|
|
|
write_func_for_structure (s, ss, NULL, wtd);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
2003-01-10 03:22:34 +01:00
|
|
|
|
write_func_for_structure (s, s, NULL, wtd);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (s = param_structs; s; s = s->next)
|
|
|
|
|
if (s->gc_used == GC_POINTED_TO)
|
|
|
|
|
{
|
2002-09-16 20:33:23 +02:00
|
|
|
|
type_p * param = s->u.param_struct.param;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
type_p stru = s->u.param_struct.stru;
|
|
|
|
|
|
|
|
|
|
/* Declare the marker procedure. */
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (header_file, "extern void gt_%s_", wtd->prefix);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
output_mangled_typename (header_file, s);
|
2003-06-01 17:59:10 +02:00
|
|
|
|
oprintf (header_file, " (void *);\n");
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
if (stru->u.s.line.file == NULL)
|
|
|
|
|
{
|
2003-06-01 17:59:10 +02:00
|
|
|
|
fprintf (stderr, "warning: structure `%s' used but not defined\n",
|
2002-06-04 09:11:05 +02:00
|
|
|
|
s->u.s.tag);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
if (stru->kind == TYPE_LANG_STRUCT)
|
|
|
|
|
{
|
|
|
|
|
type_p ss;
|
|
|
|
|
for (ss = stru->u.s.lang_struct; ss; ss = ss->next)
|
2003-01-10 03:22:34 +01:00
|
|
|
|
write_func_for_structure (s, ss, param, wtd);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
write_func_for_structure (s, stru, param, wtd);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static const struct write_types_data ggc_wtd =
|
|
|
|
|
{
|
|
|
|
|
"ggc_m", NULL, "ggc_mark", "ggc_test_and_set_mark", NULL,
|
2007-01-19 18:56:18 +01:00
|
|
|
|
"GC marker procedures. ",
|
|
|
|
|
FALSE
|
2003-01-10 03:22:34 +01:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static const struct write_types_data pch_wtd =
|
|
|
|
|
{
|
|
|
|
|
"pch_n", "pch_p", "gt_pch_note_object", "gt_pch_note_object",
|
|
|
|
|
"gt_pch_note_reorder",
|
2007-01-19 18:56:18 +01:00
|
|
|
|
"PCH type-walking procedures. ",
|
|
|
|
|
TRUE
|
2003-01-10 03:22:34 +01:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Write out the local pointer-walking routines. */
|
|
|
|
|
|
|
|
|
|
/* process_field routine for local pointer-walking. */
|
|
|
|
|
|
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
write_types_local_process_field (type_p f, const struct walk_type_data *d)
|
2003-01-10 03:22:34 +01:00
|
|
|
|
{
|
|
|
|
|
switch (f->kind)
|
|
|
|
|
{
|
|
|
|
|
case TYPE_POINTER:
|
|
|
|
|
case TYPE_STRUCT:
|
|
|
|
|
case TYPE_UNION:
|
|
|
|
|
case TYPE_LANG_STRUCT:
|
|
|
|
|
case TYPE_PARAM_STRUCT:
|
|
|
|
|
case TYPE_STRING:
|
|
|
|
|
oprintf (d->of, "%*sif ((void *)(%s) == this_obj)\n", d->indent, "",
|
|
|
|
|
d->prev_val[3]);
|
|
|
|
|
oprintf (d->of, "%*s op (&(%s), cookie);\n", d->indent, "", d->val);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TYPE_SCALAR:
|
|
|
|
|
break;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
default:
|
Makefile.in (gengtype): Use $(BUILD_ERRORS).
* Makefile.in (gengtype): Use $(BUILD_ERRORS).
(gengtype.o): Depend on errors.h.
* genattrtab.c (strcmp_check): Use gcc_assert and gcc_unreachable.
(attr_rtx_1, attr_printf, attr_copy_rtx, evaluate_eq_attr,
attr_alt_subset_p, attr_alt_subset_of_compl_p,
attr_alt_intersection, attr_alt_union, optimize_attrs, gen_insn,
write_test_expr, write_attr_value, write_eligible_delay,
make_internal_attr, make_numeric_value): Likewise.
* genautomata.c (regexp_name, get_str_vect,
gen_presence_absence_set, automaton_decl_hash,
automaton_decl_eq_p, insn_decl_hash, insn_decl_eq_p, decl_hash,
decl_eq_p, process_regexp, loop_in_regexp, check_loops_in_regexps,
process_regexp_cycles, reserv_sets_cmp, set_unit_reserv,
test_unit_reserv, it_is_empty_reserv_sets,
reserv_sets_are_intersected, reserv_sets_shift, reserv_sets_or,
reserv_sets_and, output_cycle_reservs, get_free_state,
intersected_state_reservs_p, states_union, remove_arc,
copy_insn_regexp, transform_1, transform_2, transform_3,
regexp_transform_func, store_alt_unit_usage,
check_regexp_units_distribution, process_seq_for_forming_states,
process_alts_for_forming_states, make_automaton,
form_arcs_marked_by_insn, create_composed_state,
set_out_arc_insns_equiv_num, partition_equiv_class,
process_insn_equiv_class, set_insn_equiv_classes,
units_to_automata_heuristic_distr, form_regexp,
longest_path_length, output_dfa_max_issue_rate, add_vect,
out_state_arcs_num, add_vect_el, output_trans_table,
output_state_alts_table, output_dead_lock_vect,
output_max_insn_queue_index_def,
output_min_insn_conflict_delay_func,
output_internal_insn_latency_func, output_print_reservation_func,
output_cpu_unit_reservation_p, output_state_arcs,
make_insn_alts_attr, make_internal_dfa_insn_code_attr,
make_default_insn_latency_attr,
form_important_insn_automata_lists): Likewise.
* genemit.c (gen_exp, output_add_clobbers,
output_added_clobbers_hard_reg_p): Likewise.
* genextract.c (print_path, main): Likewise.
* genflags.c (gen_macro): Likewise.
* gengenrtl.c: Include errors.h
(type_from_format, accessor_from_format): Likewise.
* gengtype.c (get_file_basename, output_mangled_typename,
walk_type, write_types_process_field,
write_types_local_process_field): Likewise.
* genmodes.c (complete_mode): Likewise.
* genopinit.c (gen_insn): Likewise.
* genoutput.c (output_insn_data, check_constraint_len,
constraint_len): Likewise.
* genpreds.c (add_mode_tests):Likewise.
* gen-protos.c (add_hash): Likewise.
* genrecog.c (find_operand, find_matching_operand,
validate_pattern, add_to_sequence, maybe_both_true,
nodes_identical_1, merge_trees, write_switch, write_cond,
write_action, is_unconditional, make_insn_sequence,
debug_decision_2): Likewise.
* gensupport.c (is_predicable, collect_insn_data,
alter_predicate_for_insn, maybe_eval_c_test): Likewise.
From-SVN: r87236
2004-09-09 15:22:38 +02:00
|
|
|
|
gcc_unreachable ();
|
2003-01-10 03:22:34 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* For S, a structure that's part of ORIG_S, and using parameters
|
|
|
|
|
PARAM, write out a routine that:
|
|
|
|
|
- Is of type gt_note_pointers
|
2004-06-09 22:10:13 +02:00
|
|
|
|
- Calls PROCESS_FIELD on each field of S or its substructures.
|
2003-01-10 03:22:34 +01:00
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
write_local_func_for_structure (type_p orig_s, type_p s, type_p *param)
|
2003-01-10 03:22:34 +01:00
|
|
|
|
{
|
|
|
|
|
const char *fn = s->u.s.line.file;
|
|
|
|
|
int i;
|
|
|
|
|
struct walk_type_data d;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
/* This is a hack, and not the good kind either. */
|
|
|
|
|
for (i = NUM_PARAM - 1; i >= 0; i--)
|
2003-06-01 17:59:10 +02:00
|
|
|
|
if (param && param[i] && param[i]->kind == TYPE_POINTER
|
2003-01-10 03:22:34 +01:00
|
|
|
|
&& UNION_OR_STRUCT_P (param[i]->u.p))
|
|
|
|
|
fn = param[i]->u.p->u.s.line.file;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
memset (&d, 0, sizeof (d));
|
|
|
|
|
d.of = get_output_file_with_visibility (fn);
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d.process_field = write_types_local_process_field;
|
|
|
|
|
d.opt = s->u.s.opt;
|
|
|
|
|
d.line = &s->u.s.line;
|
|
|
|
|
d.bitmap = s->u.s.bitmap;
|
|
|
|
|
d.param = param;
|
|
|
|
|
d.prev_val[0] = d.prev_val[2] = "*x";
|
2004-01-16 02:44:06 +01:00
|
|
|
|
d.prev_val[1] = "not valid postage"; /* Guarantee an error. */
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d.prev_val[3] = "x";
|
|
|
|
|
d.val = "(*x)";
|
2004-06-09 22:10:13 +02:00
|
|
|
|
d.fn_wants_lvalue = true;
|
2003-01-10 03:22:34 +01:00
|
|
|
|
|
|
|
|
|
oprintf (d.of, "\n");
|
|
|
|
|
oprintf (d.of, "void\n");
|
|
|
|
|
oprintf (d.of, "gt_pch_p_");
|
|
|
|
|
output_mangled_typename (d.of, orig_s);
|
2004-07-25 02:13:01 +02:00
|
|
|
|
oprintf (d.of, " (ATTRIBUTE_UNUSED void *this_obj,\n"
|
|
|
|
|
"\tvoid *x_p,\n"
|
|
|
|
|
"\tATTRIBUTE_UNUSED gt_pointer_operator op,\n"
|
|
|
|
|
"\tATTRIBUTE_UNUSED void *cookie)\n");
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d.of, "{\n");
|
|
|
|
|
oprintf (d.of, " %s %s * const x ATTRIBUTE_UNUSED = (%s %s *)x_p;\n",
|
|
|
|
|
s->kind == TYPE_UNION ? "union" : "struct", s->u.s.tag,
|
|
|
|
|
s->kind == TYPE_UNION ? "union" : "struct", s->u.s.tag);
|
|
|
|
|
d.indent = 2;
|
|
|
|
|
walk_type (s, &d);
|
|
|
|
|
oprintf (d.of, "}\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Write out local marker routines for STRUCTURES and PARAM_STRUCTS. */
|
|
|
|
|
|
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
write_local (type_p structures, type_p param_structs)
|
2003-01-10 03:22:34 +01:00
|
|
|
|
{
|
|
|
|
|
type_p s;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (header_file, "\n/* Local pointer-walking routines. */\n");
|
|
|
|
|
for (s = structures; s; s = s->next)
|
|
|
|
|
if (s->gc_used == GC_POINTED_TO
|
|
|
|
|
|| s->gc_used == GC_MAYBE_POINTED_TO)
|
|
|
|
|
{
|
|
|
|
|
options_p opt;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if (s->u.s.line.file == NULL)
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
for (opt = s->u.s.opt; opt; opt = opt->next)
|
|
|
|
|
if (strcmp (opt->name, "ptr_alias") == 0)
|
|
|
|
|
{
|
|
|
|
|
type_p t = (type_p) opt->info;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
if (t->kind == TYPE_STRUCT
|
2003-01-10 03:22:34 +01:00
|
|
|
|
|| t->kind == TYPE_UNION
|
|
|
|
|
|| t->kind == TYPE_LANG_STRUCT)
|
|
|
|
|
{
|
|
|
|
|
oprintf (header_file, "#define gt_pch_p_");
|
|
|
|
|
output_mangled_typename (header_file, s);
|
|
|
|
|
oprintf (header_file, " gt_pch_p_");
|
|
|
|
|
output_mangled_typename (header_file, t);
|
|
|
|
|
oprintf (header_file, "\n");
|
|
|
|
|
}
|
|
|
|
|
else
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (&s->u.s.line,
|
2003-01-10 03:22:34 +01:00
|
|
|
|
"structure alias is not a structure");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
if (opt)
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
/* Declare the marker procedure only once. */
|
|
|
|
|
oprintf (header_file, "extern void gt_pch_p_");
|
|
|
|
|
output_mangled_typename (header_file, s);
|
2003-06-01 17:59:10 +02:00
|
|
|
|
oprintf (header_file,
|
|
|
|
|
"\n (void *, void *, gt_pointer_operator, void *);\n");
|
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if (s->kind == TYPE_LANG_STRUCT)
|
|
|
|
|
{
|
|
|
|
|
type_p ss;
|
|
|
|
|
for (ss = s->u.s.lang_struct; ss; ss = ss->next)
|
|
|
|
|
write_local_func_for_structure (s, ss, NULL);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
write_local_func_for_structure (s, s, NULL);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (s = param_structs; s; s = s->next)
|
|
|
|
|
if (s->gc_used == GC_POINTED_TO)
|
|
|
|
|
{
|
|
|
|
|
type_p * param = s->u.param_struct.param;
|
|
|
|
|
type_p stru = s->u.param_struct.stru;
|
|
|
|
|
|
|
|
|
|
/* Declare the marker procedure. */
|
|
|
|
|
oprintf (header_file, "extern void gt_pch_p_");
|
|
|
|
|
output_mangled_typename (header_file, s);
|
2003-06-01 17:59:10 +02:00
|
|
|
|
oprintf (header_file,
|
|
|
|
|
"\n (void *, void *, gt_pointer_operator, void *);\n");
|
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if (stru->u.s.line.file == NULL)
|
|
|
|
|
{
|
2003-06-01 17:59:10 +02:00
|
|
|
|
fprintf (stderr, "warning: structure `%s' used but not defined\n",
|
2003-01-10 03:22:34 +01:00
|
|
|
|
s->u.s.tag);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
if (stru->kind == TYPE_LANG_STRUCT)
|
|
|
|
|
{
|
|
|
|
|
type_p ss;
|
|
|
|
|
for (ss = stru->u.s.lang_struct; ss; ss = ss->next)
|
|
|
|
|
write_local_func_for_structure (s, ss, param);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
2003-01-10 03:22:34 +01:00
|
|
|
|
write_local_func_for_structure (s, stru, param);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Write out the 'enum' definition for gt_types_enum. */
|
|
|
|
|
|
|
|
|
|
static void
|
2004-01-19 09:38:38 +01:00
|
|
|
|
write_enum_defn (type_p structures, type_p param_structs)
|
2002-09-16 20:33:23 +02:00
|
|
|
|
{
|
|
|
|
|
type_p s;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-09-16 20:33:23 +02:00
|
|
|
|
oprintf (header_file, "\n/* Enumeration of types known. */\n");
|
|
|
|
|
oprintf (header_file, "enum gt_types_enum {\n");
|
|
|
|
|
for (s = structures; s; s = s->next)
|
|
|
|
|
if (s->gc_used == GC_POINTED_TO
|
|
|
|
|
|| s->gc_used == GC_MAYBE_POINTED_TO)
|
|
|
|
|
{
|
|
|
|
|
if (s->gc_used == GC_MAYBE_POINTED_TO
|
|
|
|
|
&& s->u.s.line.file == NULL)
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
oprintf (header_file, " gt_ggc_e_");
|
|
|
|
|
output_mangled_typename (header_file, s);
|
|
|
|
|
oprintf (header_file, ", \n");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2002-09-16 20:33:23 +02:00
|
|
|
|
for (s = param_structs; s; s = s->next)
|
|
|
|
|
if (s->gc_used == GC_POINTED_TO)
|
|
|
|
|
{
|
|
|
|
|
oprintf (header_file, " gt_e_");
|
|
|
|
|
output_mangled_typename (header_file, s);
|
|
|
|
|
oprintf (header_file, ", \n");
|
|
|
|
|
}
|
|
|
|
|
oprintf (header_file, " gt_types_enum_last\n");
|
|
|
|
|
oprintf (header_file, "};\n");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
/* Might T contain any non-pointer elements? */
|
|
|
|
|
|
|
|
|
|
static int
|
2003-06-01 17:59:10 +02:00
|
|
|
|
contains_scalar_p (type_p t)
|
2003-01-10 03:22:34 +01:00
|
|
|
|
{
|
|
|
|
|
switch (t->kind)
|
|
|
|
|
{
|
|
|
|
|
case TYPE_STRING:
|
|
|
|
|
case TYPE_POINTER:
|
|
|
|
|
return 0;
|
|
|
|
|
case TYPE_ARRAY:
|
|
|
|
|
return contains_scalar_p (t->u.a.p);
|
|
|
|
|
default:
|
|
|
|
|
/* Could also check for structures that have no non-pointer
|
|
|
|
|
fields, but there aren't enough of those to worry about. */
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
2002-09-16 20:33:23 +02:00
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Mangle FN and print it to F. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
put_mangled_filename (outf_p f, const char *fn)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
const char *name = get_output_file_name (fn);
|
|
|
|
|
for (; *name != 0; name++)
|
2002-06-09 04:12:21 +02:00
|
|
|
|
if (ISALNUM (*name))
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, "%c", *name);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
else
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, "%c", '_');
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Finish off the currently-created root tables in FLP. PFX, TNAME,
|
|
|
|
|
LASTNAME, and NAME are all strings to insert in various places in
|
|
|
|
|
the resulting code. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
finish_root_table (struct flist *flp, const char *pfx, const char *lastname,
|
|
|
|
|
const char *tname, const char *name)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
struct flist *fli2;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (fli2 = flp; fli2; fli2 = fli2->next)
|
|
|
|
|
if (fli2->started_p)
|
|
|
|
|
{
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (fli2->f, " %s\n", lastname);
|
|
|
|
|
oprintf (fli2->f, "};\n\n");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (fli2 = flp; fli2; fli2 = fli2->next)
|
|
|
|
|
if (fli2->started_p)
|
|
|
|
|
{
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
lang_bitmap bitmap = get_lang_bitmap (fli2->name);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
int fnum;
|
|
|
|
|
|
|
|
|
|
for (fnum = 0; bitmap != 0; fnum++, bitmap >>= 1)
|
|
|
|
|
if (bitmap & 1)
|
|
|
|
|
{
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (base_files[fnum],
|
2003-01-10 03:22:34 +01:00
|
|
|
|
"extern const struct %s gt_%s_",
|
2002-06-04 09:11:05 +02:00
|
|
|
|
tname, pfx);
|
|
|
|
|
put_mangled_filename (base_files[fnum], fli2->name);
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (base_files[fnum], "[];\n");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
{
|
|
|
|
|
size_t fnum;
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
for (fnum = 0; fnum < num_lang_dirs; fnum++)
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (base_files [fnum],
|
|
|
|
|
"const struct %s * const %s[] = {\n",
|
|
|
|
|
tname, name);
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
|
|
|
|
for (fli2 = flp; fli2; fli2 = fli2->next)
|
|
|
|
|
if (fli2->started_p)
|
|
|
|
|
{
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
lang_bitmap bitmap = get_lang_bitmap (fli2->name);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
int fnum;
|
|
|
|
|
|
|
|
|
|
fli2->started_p = 0;
|
|
|
|
|
|
|
|
|
|
for (fnum = 0; bitmap != 0; fnum++, bitmap >>= 1)
|
|
|
|
|
if (bitmap & 1)
|
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (base_files[fnum], " gt_%s_", pfx);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
put_mangled_filename (base_files[fnum], fli2->name);
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (base_files[fnum], ",\n");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
size_t fnum;
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
for (fnum = 0; fnum < num_lang_dirs; fnum++)
|
2003-01-10 03:22:34 +01:00
|
|
|
|
{
|
|
|
|
|
oprintf (base_files[fnum], " NULL\n");
|
|
|
|
|
oprintf (base_files[fnum], "};\n");
|
|
|
|
|
}
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Write out to F the table entry and any marker routines needed to
|
|
|
|
|
mark NAME as TYPE. The original variable is V, at LINE.
|
|
|
|
|
HAS_LENGTH is nonzero iff V was a variable-length array. IF_MARKED
|
|
|
|
|
is nonzero iff we are building the root table for hash table caches. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
write_root (outf_p f, pair_p v, type_p type, const char *name, int has_length,
|
|
|
|
|
struct fileloc *line, const char *if_marked)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
switch (type->kind)
|
|
|
|
|
{
|
|
|
|
|
case TYPE_STRUCT:
|
|
|
|
|
{
|
|
|
|
|
pair_p fld;
|
|
|
|
|
for (fld = type->u.s.fields; fld; fld = fld->next)
|
|
|
|
|
{
|
|
|
|
|
int skip_p = 0;
|
|
|
|
|
const char *desc = NULL;
|
|
|
|
|
options_p o;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (o = fld->opt; o; o = o->next)
|
|
|
|
|
if (strcmp (o->name, "skip") == 0)
|
|
|
|
|
skip_p = 1;
|
|
|
|
|
else if (strcmp (o->name, "desc") == 0)
|
2004-08-02 14:48:49 +02:00
|
|
|
|
desc = o->info;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
else
|
|
|
|
|
error_at_line (line,
|
|
|
|
|
"field `%s' of global `%s' has unknown option `%s'",
|
|
|
|
|
fld->name, name, o->name);
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
if (skip_p)
|
|
|
|
|
continue;
|
|
|
|
|
else if (desc && fld->type->kind == TYPE_UNION)
|
|
|
|
|
{
|
|
|
|
|
pair_p validf = NULL;
|
|
|
|
|
pair_p ufld;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (ufld = fld->type->u.s.fields; ufld; ufld = ufld->next)
|
|
|
|
|
{
|
|
|
|
|
const char *tag = NULL;
|
|
|
|
|
options_p oo;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (oo = ufld->opt; oo; oo = oo->next)
|
|
|
|
|
if (strcmp (oo->name, "tag") == 0)
|
2004-08-02 14:48:49 +02:00
|
|
|
|
tag = oo->info;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
if (tag == NULL || strcmp (tag, desc) != 0)
|
|
|
|
|
continue;
|
|
|
|
|
if (validf != NULL)
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (line,
|
2002-06-04 09:11:05 +02:00
|
|
|
|
"both `%s.%s.%s' and `%s.%s.%s' have tag `%s'",
|
|
|
|
|
name, fld->name, validf->name,
|
|
|
|
|
name, fld->name, ufld->name,
|
|
|
|
|
tag);
|
|
|
|
|
validf = ufld;
|
|
|
|
|
}
|
|
|
|
|
if (validf != NULL)
|
|
|
|
|
{
|
|
|
|
|
char *newname;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
newname = xasprintf ("%s.%s.%s",
|
2002-06-13 00:57:45 +02:00
|
|
|
|
name, fld->name, validf->name);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
write_root (f, v, validf->type, newname, 0, line,
|
|
|
|
|
if_marked);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
free (newname);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (desc)
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (line,
|
2002-06-04 09:11:05 +02:00
|
|
|
|
"global `%s.%s' has `desc' option but is not union",
|
|
|
|
|
name, fld->name);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
char *newname;
|
2002-06-13 00:57:45 +02:00
|
|
|
|
newname = xasprintf ("%s.%s", name, fld->name);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
write_root (f, v, fld->type, newname, 0, line, if_marked);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
free (newname);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TYPE_ARRAY:
|
|
|
|
|
{
|
|
|
|
|
char *newname;
|
2002-06-13 00:57:45 +02:00
|
|
|
|
newname = xasprintf ("%s[0]", name);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
write_root (f, v, type->u.a.p, newname, has_length, line, if_marked);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
free (newname);
|
|
|
|
|
}
|
|
|
|
|
break;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
case TYPE_POINTER:
|
|
|
|
|
{
|
|
|
|
|
type_p ap, tp;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, " {\n");
|
|
|
|
|
oprintf (f, " &%s,\n", name);
|
|
|
|
|
oprintf (f, " 1");
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (ap = v->type; ap->kind == TYPE_ARRAY; ap = ap->u.a.p)
|
|
|
|
|
if (ap->u.a.len[0])
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, " * (%s)", ap->u.a.len);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
else if (ap == v->type)
|
2002-06-20 19:38:23 +02:00
|
|
|
|
oprintf (f, " * ARRAY_SIZE (%s)", v->name);
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, ",\n");
|
|
|
|
|
oprintf (f, " sizeof (%s", v->name);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (ap = v->type; ap->kind == TYPE_ARRAY; ap = ap->u.a.p)
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, "[0]");
|
|
|
|
|
oprintf (f, "),\n");
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
tp = type->u.p;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
if (! has_length && UNION_OR_STRUCT_P (tp))
|
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (f, " >_ggc_mx_%s,\n", tp->u.s.tag);
|
|
|
|
|
oprintf (f, " >_pch_nx_%s", tp->u.s.tag);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
else if (! has_length && tp->kind == TYPE_PARAM_STRUCT)
|
|
|
|
|
{
|
2002-09-16 20:33:23 +02:00
|
|
|
|
oprintf (f, " >_ggc_m_");
|
|
|
|
|
output_mangled_typename (f, tp);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (f, ",\n >_pch_n_");
|
|
|
|
|
output_mangled_typename (f, tp);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
else if (has_length
|
2002-06-05 00:25:29 +02:00
|
|
|
|
&& (tp->kind == TYPE_POINTER || UNION_OR_STRUCT_P (tp)))
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (f, " >_ggc_ma_%s,\n", name);
|
|
|
|
|
oprintf (f, " >_pch_na_%s", name);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (line,
|
2002-06-04 09:11:05 +02:00
|
|
|
|
"global `%s' is pointer to unimplemented type",
|
|
|
|
|
name);
|
|
|
|
|
}
|
|
|
|
|
if (if_marked)
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, ",\n &%s", if_marked);
|
|
|
|
|
oprintf (f, "\n },\n");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TYPE_STRING:
|
2003-01-10 03:22:34 +01:00
|
|
|
|
{
|
|
|
|
|
oprintf (f, " {\n");
|
|
|
|
|
oprintf (f, " &%s,\n", name);
|
|
|
|
|
oprintf (f, " 1, \n");
|
|
|
|
|
oprintf (f, " sizeof (%s),\n", v->name);
|
|
|
|
|
oprintf (f, " >_ggc_m_S,\n");
|
2003-01-31 02:42:38 +01:00
|
|
|
|
oprintf (f, " (gt_pointer_walker) >_pch_n_S\n");
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (f, " },\n");
|
|
|
|
|
}
|
|
|
|
|
break;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
case TYPE_SCALAR:
|
2002-06-04 09:11:05 +02:00
|
|
|
|
break;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
default:
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (line,
|
2002-06-04 09:11:05 +02:00
|
|
|
|
"global `%s' is unimplemented type",
|
|
|
|
|
name);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
/* This generates a routine to walk an array. */
|
|
|
|
|
|
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
write_array (outf_p f, pair_p v, const struct write_types_data *wtd)
|
2003-01-10 03:22:34 +01:00
|
|
|
|
{
|
|
|
|
|
struct walk_type_data d;
|
|
|
|
|
char *prevval3;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
memset (&d, 0, sizeof (d));
|
|
|
|
|
d.of = f;
|
|
|
|
|
d.cookie = wtd;
|
|
|
|
|
d.indent = 2;
|
|
|
|
|
d.line = &v->line;
|
|
|
|
|
d.opt = v->opt;
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
d.bitmap = get_lang_bitmap (v->line.file);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
d.param = NULL;
|
|
|
|
|
|
|
|
|
|
d.prev_val[3] = prevval3 = xasprintf ("&%s", v->name);
|
|
|
|
|
|
|
|
|
|
if (wtd->param_prefix)
|
|
|
|
|
{
|
|
|
|
|
oprintf (f, "static void gt_%sa_%s\n", wtd->param_prefix, v->name);
|
2003-06-01 17:59:10 +02:00
|
|
|
|
oprintf (f,
|
|
|
|
|
" (void *, void *, gt_pointer_operator, void *);\n");
|
2004-07-25 02:13:01 +02:00
|
|
|
|
oprintf (f, "static void gt_%sa_%s (ATTRIBUTE_UNUSED void *this_obj,\n",
|
2003-01-10 03:22:34 +01:00
|
|
|
|
wtd->param_prefix, v->name);
|
2004-07-25 02:13:01 +02:00
|
|
|
|
oprintf (d.of,
|
|
|
|
|
" ATTRIBUTE_UNUSED void *x_p,\n"
|
|
|
|
|
" ATTRIBUTE_UNUSED gt_pointer_operator op,\n"
|
|
|
|
|
" ATTRIBUTE_UNUSED void * cookie)\n");
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (d.of, "{\n");
|
|
|
|
|
d.prev_val[0] = d.prev_val[1] = d.prev_val[2] = d.val = v->name;
|
|
|
|
|
d.process_field = write_types_local_process_field;
|
|
|
|
|
walk_type (v->type, &d);
|
|
|
|
|
oprintf (f, "}\n\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
d.opt = v->opt;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
oprintf (f, "static void gt_%sa_%s (void *);\n",
|
2003-01-10 03:22:34 +01:00
|
|
|
|
wtd->prefix, v->name);
|
2004-07-25 02:13:01 +02:00
|
|
|
|
oprintf (f, "static void\ngt_%sa_%s (ATTRIBUTE_UNUSED void *x_p)\n",
|
2003-01-10 03:22:34 +01:00
|
|
|
|
wtd->prefix, v->name);
|
|
|
|
|
oprintf (f, "{\n");
|
|
|
|
|
d.prev_val[0] = d.prev_val[1] = d.prev_val[2] = d.val = v->name;
|
|
|
|
|
d.process_field = write_types_process_field;
|
|
|
|
|
walk_type (v->type, &d);
|
|
|
|
|
free (prevval3);
|
|
|
|
|
oprintf (f, "}\n\n");
|
|
|
|
|
}
|
|
|
|
|
|
2002-06-07 04:15:39 +02:00
|
|
|
|
/* Output a table describing the locations and types of VARIABLES. */
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
static void
|
2003-06-01 17:59:10 +02:00
|
|
|
|
write_roots (pair_p variables)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
|
|
|
|
pair_p v;
|
|
|
|
|
struct flist *flp = NULL;
|
|
|
|
|
|
|
|
|
|
for (v = variables; v; v = v->next)
|
|
|
|
|
{
|
2002-06-13 00:57:45 +02:00
|
|
|
|
outf_p f = get_output_file_with_visibility (v->line.file);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
struct flist *fli;
|
|
|
|
|
const char *length = NULL;
|
|
|
|
|
int deletable_p = 0;
|
|
|
|
|
options_p o;
|
|
|
|
|
|
|
|
|
|
for (o = v->opt; o; o = o->next)
|
|
|
|
|
if (strcmp (o->name, "length") == 0)
|
2004-08-02 14:48:49 +02:00
|
|
|
|
length = o->info;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
else if (strcmp (o->name, "deletable") == 0)
|
|
|
|
|
deletable_p = 1;
|
|
|
|
|
else if (strcmp (o->name, "param_is") == 0)
|
|
|
|
|
;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
else if (strncmp (o->name, "param", 5) == 0
|
2002-09-16 20:33:23 +02:00
|
|
|
|
&& ISDIGIT (o->name[5])
|
|
|
|
|
&& strcmp (o->name + 6, "_is") == 0)
|
|
|
|
|
;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
else if (strcmp (o->name, "if_marked") == 0)
|
|
|
|
|
;
|
|
|
|
|
else
|
2003-06-01 17:59:10 +02:00
|
|
|
|
error_at_line (&v->line,
|
2002-06-04 09:11:05 +02:00
|
|
|
|
"global `%s' has unknown option `%s'",
|
|
|
|
|
v->name, o->name);
|
|
|
|
|
|
|
|
|
|
for (fli = flp; fli; fli = fli->next)
|
|
|
|
|
if (fli->f == f)
|
|
|
|
|
break;
|
|
|
|
|
if (fli == NULL)
|
|
|
|
|
{
|
2004-07-25 22:43:23 +02:00
|
|
|
|
fli = XNEW (struct flist);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
fli->f = f;
|
|
|
|
|
fli->next = flp;
|
|
|
|
|
fli->started_p = 0;
|
|
|
|
|
fli->name = v->line.file;
|
|
|
|
|
flp = fli;
|
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, "\n/* GC roots. */\n\n");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! deletable_p
|
|
|
|
|
&& length
|
|
|
|
|
&& v->type->kind == TYPE_POINTER
|
|
|
|
|
&& (v->type->u.p->kind == TYPE_POINTER
|
|
|
|
|
|| v->type->u.p->kind == TYPE_STRUCT))
|
|
|
|
|
{
|
2003-01-10 03:22:34 +01:00
|
|
|
|
write_array (f, v, &ggc_wtd);
|
|
|
|
|
write_array (f, v, &pch_wtd);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (v = variables; v; v = v->next)
|
|
|
|
|
{
|
2002-06-13 00:57:45 +02:00
|
|
|
|
outf_p f = get_output_file_with_visibility (v->line.file);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
struct flist *fli;
|
|
|
|
|
int skip_p = 0;
|
|
|
|
|
int length_p = 0;
|
|
|
|
|
options_p o;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (o = v->opt; o; o = o->next)
|
|
|
|
|
if (strcmp (o->name, "length") == 0)
|
|
|
|
|
length_p = 1;
|
|
|
|
|
else if (strcmp (o->name, "deletable") == 0
|
|
|
|
|
|| strcmp (o->name, "if_marked") == 0)
|
|
|
|
|
skip_p = 1;
|
|
|
|
|
|
|
|
|
|
if (skip_p)
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
for (fli = flp; fli; fli = fli->next)
|
|
|
|
|
if (fli->f == f)
|
|
|
|
|
break;
|
|
|
|
|
if (! fli->started_p)
|
|
|
|
|
{
|
|
|
|
|
fli->started_p = 1;
|
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, "const struct ggc_root_tab gt_ggc_r_");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
put_mangled_filename (f, v->line.file);
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, "[] = {\n");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
write_root (f, v, v->type, v->name, length_p, &v->line, NULL);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2003-06-01 17:59:10 +02:00
|
|
|
|
finish_root_table (flp, "ggc_r", "LAST_GGC_ROOT_TAB", "ggc_root_tab",
|
2002-06-04 09:11:05 +02:00
|
|
|
|
"gt_ggc_rtab");
|
|
|
|
|
|
|
|
|
|
for (v = variables; v; v = v->next)
|
|
|
|
|
{
|
2002-06-13 00:57:45 +02:00
|
|
|
|
outf_p f = get_output_file_with_visibility (v->line.file);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
struct flist *fli;
|
|
|
|
|
int skip_p = 1;
|
|
|
|
|
options_p o;
|
|
|
|
|
|
|
|
|
|
for (o = v->opt; o; o = o->next)
|
|
|
|
|
if (strcmp (o->name, "deletable") == 0)
|
|
|
|
|
skip_p = 0;
|
|
|
|
|
else if (strcmp (o->name, "if_marked") == 0)
|
|
|
|
|
skip_p = 1;
|
|
|
|
|
|
|
|
|
|
if (skip_p)
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
for (fli = flp; fli; fli = fli->next)
|
|
|
|
|
if (fli->f == f)
|
|
|
|
|
break;
|
|
|
|
|
if (! fli->started_p)
|
|
|
|
|
{
|
|
|
|
|
fli->started_p = 1;
|
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, "const struct ggc_root_tab gt_ggc_rd_");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
put_mangled_filename (f, v->line.file);
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, "[] = {\n");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (f, " { &%s, 1, sizeof (%s), NULL, NULL },\n",
|
2002-06-04 09:11:05 +02:00
|
|
|
|
v->name, v->name);
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
finish_root_table (flp, "ggc_rd", "LAST_GGC_ROOT_TAB", "ggc_root_tab",
|
2002-06-04 09:11:05 +02:00
|
|
|
|
"gt_ggc_deletable_rtab");
|
|
|
|
|
|
|
|
|
|
for (v = variables; v; v = v->next)
|
|
|
|
|
{
|
2002-06-13 00:57:45 +02:00
|
|
|
|
outf_p f = get_output_file_with_visibility (v->line.file);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
struct flist *fli;
|
|
|
|
|
const char *if_marked = NULL;
|
|
|
|
|
int length_p = 0;
|
|
|
|
|
options_p o;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
for (o = v->opt; o; o = o->next)
|
|
|
|
|
if (strcmp (o->name, "length") == 0)
|
|
|
|
|
length_p = 1;
|
|
|
|
|
else if (strcmp (o->name, "if_marked") == 0)
|
2004-08-02 14:48:49 +02:00
|
|
|
|
if_marked = o->info;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
|
|
|
|
if (if_marked == NULL)
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
if (v->type->kind != TYPE_POINTER
|
|
|
|
|
|| v->type->u.p->kind != TYPE_PARAM_STRUCT
|
|
|
|
|
|| v->type->u.p->u.param_struct.stru != find_structure ("htab", 0))
|
|
|
|
|
{
|
|
|
|
|
error_at_line (&v->line, "if_marked option used but not hash table");
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (fli = flp; fli; fli = fli->next)
|
|
|
|
|
if (fli->f == f)
|
|
|
|
|
break;
|
|
|
|
|
if (! fli->started_p)
|
|
|
|
|
{
|
|
|
|
|
fli->started_p = 1;
|
|
|
|
|
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, "const struct ggc_cache_tab gt_ggc_rc_");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
put_mangled_filename (f, v->line.file);
|
2002-06-13 00:57:45 +02:00
|
|
|
|
oprintf (f, "[] = {\n");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
write_root (f, v, v->type->u.p->u.param_struct.param[0],
|
2002-06-04 09:11:05 +02:00
|
|
|
|
v->name, length_p, &v->line, if_marked);
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
finish_root_table (flp, "ggc_rc", "LAST_GGC_CACHE_TAB", "ggc_cache_tab",
|
2002-06-04 09:11:05 +02:00
|
|
|
|
"gt_ggc_cache_rtab");
|
2003-01-10 03:22:34 +01:00
|
|
|
|
|
|
|
|
|
for (v = variables; v; v = v->next)
|
|
|
|
|
{
|
|
|
|
|
outf_p f = get_output_file_with_visibility (v->line.file);
|
|
|
|
|
struct flist *fli;
|
|
|
|
|
int length_p = 0;
|
|
|
|
|
int if_marked_p = 0;
|
|
|
|
|
options_p o;
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
for (o = v->opt; o; o = o->next)
|
|
|
|
|
if (strcmp (o->name, "length") == 0)
|
|
|
|
|
length_p = 1;
|
|
|
|
|
else if (strcmp (o->name, "if_marked") == 0)
|
|
|
|
|
if_marked_p = 1;
|
|
|
|
|
|
|
|
|
|
if (! if_marked_p)
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
for (fli = flp; fli; fli = fli->next)
|
|
|
|
|
if (fli->f == f)
|
|
|
|
|
break;
|
|
|
|
|
if (! fli->started_p)
|
|
|
|
|
{
|
|
|
|
|
fli->started_p = 1;
|
|
|
|
|
|
|
|
|
|
oprintf (f, "const struct ggc_root_tab gt_pch_rc_");
|
|
|
|
|
put_mangled_filename (f, v->line.file);
|
|
|
|
|
oprintf (f, "[] = {\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
write_root (f, v, v->type, v->name, length_p, &v->line, NULL);
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
finish_root_table (flp, "pch_rc", "LAST_GGC_ROOT_TAB", "ggc_root_tab",
|
|
|
|
|
"gt_pch_cache_rtab");
|
|
|
|
|
|
|
|
|
|
for (v = variables; v; v = v->next)
|
|
|
|
|
{
|
|
|
|
|
outf_p f = get_output_file_with_visibility (v->line.file);
|
|
|
|
|
struct flist *fli;
|
|
|
|
|
int skip_p = 0;
|
|
|
|
|
options_p o;
|
|
|
|
|
|
|
|
|
|
for (o = v->opt; o; o = o->next)
|
|
|
|
|
if (strcmp (o->name, "deletable") == 0
|
|
|
|
|
|| strcmp (o->name, "if_marked") == 0)
|
|
|
|
|
skip_p = 1;
|
|
|
|
|
|
|
|
|
|
if (skip_p)
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
if (! contains_scalar_p (v->type))
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
for (fli = flp; fli; fli = fli->next)
|
|
|
|
|
if (fli->f == f)
|
|
|
|
|
break;
|
|
|
|
|
if (! fli->started_p)
|
|
|
|
|
{
|
|
|
|
|
fli->started_p = 1;
|
|
|
|
|
|
|
|
|
|
oprintf (f, "const struct ggc_root_tab gt_pch_rs_");
|
|
|
|
|
put_mangled_filename (f, v->line.file);
|
|
|
|
|
oprintf (f, "[] = {\n");
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
oprintf (f, " { &%s, 1, sizeof (%s), NULL, NULL },\n",
|
|
|
|
|
v->name, v->name);
|
|
|
|
|
}
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
2003-01-10 03:22:34 +01:00
|
|
|
|
finish_root_table (flp, "pch_rs", "LAST_GGC_ROOT_TAB", "ggc_root_tab",
|
|
|
|
|
"gt_pch_scalar_rtab");
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|
|
|
|
|
|
2007-03-26 22:49:17 +02:00
|
|
|
|
/* Record the definition of a generic VEC structure, as if we had expanded
|
|
|
|
|
the macros in vec.h:
|
|
|
|
|
|
|
|
|
|
typedef struct VEC_<type>_base GTY(()) {
|
|
|
|
|
unsigned num;
|
|
|
|
|
unsigned alloc;
|
|
|
|
|
<type> GTY((length ("%h.num"))) vec[1];
|
|
|
|
|
} VEC_<type>_base
|
|
|
|
|
|
|
|
|
|
where the GTY(()) tags are only present if is_scalar is _false_. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
note_def_vec (const char *typename, bool is_scalar, struct fileloc *pos)
|
|
|
|
|
{
|
2007-03-26 23:04:59 +02:00
|
|
|
|
pair_p fields;
|
2007-03-26 22:49:17 +02:00
|
|
|
|
type_p t;
|
|
|
|
|
options_p o;
|
2007-03-26 23:04:59 +02:00
|
|
|
|
type_p len_ty = create_scalar_type ("unsigned");
|
2007-03-26 22:49:17 +02:00
|
|
|
|
const char *name = concat ("VEC_", typename, "_base", (char *)0);
|
|
|
|
|
|
|
|
|
|
if (is_scalar)
|
|
|
|
|
{
|
2007-03-26 22:55:10 +02:00
|
|
|
|
t = create_scalar_type (typename);
|
2007-03-26 22:49:17 +02:00
|
|
|
|
o = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
t = resolve_typedef (typename, pos);
|
|
|
|
|
o = create_option (0, "length", "%h.num");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* We assemble the field list in reverse order. */
|
2007-03-26 23:04:59 +02:00
|
|
|
|
fields = create_field_at (0, create_array (t, "1"), "vec", o, pos);
|
|
|
|
|
fields = create_field_at (fields, len_ty, "alloc", 0, pos);
|
|
|
|
|
fields = create_field_at (fields, len_ty, "num", 0, pos);
|
2007-03-26 22:49:17 +02:00
|
|
|
|
|
|
|
|
|
do_typedef (name, new_structure (name, 0, pos, fields, 0), pos);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Record the definition of an allocation-specific VEC structure, as if
|
|
|
|
|
we had expanded the macros in vec.h:
|
|
|
|
|
|
|
|
|
|
typedef struct VEC_<type>_<astrat> {
|
|
|
|
|
VEC_<type>_base base;
|
|
|
|
|
} VEC_<type>_<astrat>;
|
|
|
|
|
*/
|
|
|
|
|
void
|
|
|
|
|
note_def_vec_alloc (const char *type, const char *astrat, struct fileloc *pos)
|
|
|
|
|
{
|
|
|
|
|
const char *astratname = concat ("VEC_", type, "_", astrat, (char *)0);
|
|
|
|
|
const char *basename = concat ("VEC_", type, "_base", (char *)0);
|
|
|
|
|
|
2007-03-26 23:04:59 +02:00
|
|
|
|
pair_p field = create_field_at (0, resolve_typedef (basename, pos),
|
|
|
|
|
"base", 0, pos);
|
2007-03-26 22:49:17 +02:00
|
|
|
|
|
|
|
|
|
do_typedef (astratname, new_structure (astratname, 0, pos, field, 0), pos);
|
|
|
|
|
}
|
|
|
|
|
|
2007-03-26 23:18:43 +02:00
|
|
|
|
/* Yet more temporary kludge since gengtype doesn't understand conditionals.
|
|
|
|
|
This must be kept in sync with input.h. */
|
|
|
|
|
static void
|
|
|
|
|
define_location_structures (void)
|
|
|
|
|
{
|
|
|
|
|
pair_p fields;
|
|
|
|
|
type_p locs;
|
|
|
|
|
static struct fileloc pos = { this_file, __LINE__ };
|
|
|
|
|
do_scalar_typedef ("source_location", &pos);
|
|
|
|
|
|
|
|
|
|
#ifdef USE_MAPPED_LOCATION
|
|
|
|
|
fields = create_field (0, &scalar_nonchar, "column");
|
|
|
|
|
fields = create_field (fields, &scalar_nonchar, "line");
|
|
|
|
|
fields = create_field (fields, &string_type, "file");
|
|
|
|
|
locs = new_structure ("anon:expanded_location", 0, &pos, fields, 0);
|
|
|
|
|
|
|
|
|
|
do_typedef ("expanded_location", locs, &pos);
|
|
|
|
|
do_scalar_typedef ("location_t", &pos);
|
|
|
|
|
do_scalar_typedef ("source_locus", &pos);
|
|
|
|
|
#else
|
|
|
|
|
fields = create_field (0, &scalar_nonchar, "line");
|
|
|
|
|
fields = create_field (fields, &string_type, "file");
|
|
|
|
|
locs = new_structure ("location_s", 0, &pos, fields, 0);
|
|
|
|
|
|
|
|
|
|
do_typedef ("expanded_location", locs, &pos);
|
|
|
|
|
do_typedef ("location_t", locs, &pos);
|
|
|
|
|
do_typedef ("source_locus", create_pointer (locs), &pos);
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2003-06-01 17:59:10 +02:00
|
|
|
|
int
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
main (int argc, char **argv)
|
2002-06-04 09:11:05 +02:00
|
|
|
|
{
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
size_t i;
|
2007-03-26 23:18:43 +02:00
|
|
|
|
static struct fileloc pos = { this_file, 0 };
|
2003-06-01 17:59:10 +02:00
|
|
|
|
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
/* fatal uses this */
|
|
|
|
|
progname = "gengtype";
|
|
|
|
|
|
|
|
|
|
if (argc != 3)
|
|
|
|
|
fatal ("usage: gengtype srcdir input-list");
|
|
|
|
|
|
|
|
|
|
srcdir = argv[1];
|
2002-07-14 03:59:15 +02:00
|
|
|
|
srcdir_len = strlen (srcdir);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
read_input_list (argv[2]);
|
|
|
|
|
if (hit_error)
|
|
|
|
|
return 1;
|
|
|
|
|
|
2007-03-26 22:55:10 +02:00
|
|
|
|
scalar_char.u.scalar_is_char = true;
|
|
|
|
|
scalar_nonchar.u.scalar_is_char = false;
|
|
|
|
|
gen_rtx_next ();
|
|
|
|
|
|
2007-03-26 23:18:43 +02:00
|
|
|
|
/* These types are set up with #define or else outside of where
|
|
|
|
|
we can see them. */
|
|
|
|
|
pos.line = __LINE__ + 1;
|
|
|
|
|
do_scalar_typedef ("CUMULATIVE_ARGS", &pos); pos.line++;
|
|
|
|
|
do_scalar_typedef ("REAL_VALUE_TYPE", &pos); pos.line++;
|
|
|
|
|
do_scalar_typedef ("double_int", &pos); pos.line++;
|
|
|
|
|
do_scalar_typedef ("uint8", &pos); pos.line++;
|
|
|
|
|
do_scalar_typedef ("jword", &pos); pos.line++;
|
|
|
|
|
do_scalar_typedef ("JCF_u2", &pos); pos.line++;
|
|
|
|
|
do_scalar_typedef ("void", &pos); pos.line++;
|
basic-block.h (BLOCK_HEAD, BLOCK_END): Remove.
2003-12-11 Steven Bosscher <steven@gcc.gnu.org>
* basic-block.h (BLOCK_HEAD, BLOCK_END): Remove.
(BLOCK_HEAD_TREE, BLOCK_END_TREE): Remove.
(basic_block_def): Rename `head' to `head_' and `end' to `end_'.
(BB_HEAD, BB_END): New accessor macros for the `head_' and `end_'
fields of a basic block.
* bb-reorder.c, bt-load.c, caller-save.c, cfg.c, cfganal.c,
cfgbuild.c, cfgcleanup.c, cfglayout.c, cfgloop.c, cfgloopanal.c,
cfgloopmanip.c, cfgrtl.c, combine.c, conflict.c, df.c, emit-rtl.c,
final.c, flow.c, function.c, gcse.c, global.c, graph.c,
haifa-sched.c, ifcvt.c, lcm.c, local-alloc.c, loop-unswitch.c,
loop.c, postreload.c, predict.c, profile.c, ra-build.c, ra-debug.c,
ra-rewrite.c, ra.c, recog.c, reg-stack.c, regclass.c, regmove.c,
regrename.c, reload1.c, resource.c, sched-ebb.c, sched-rgn.c,
sibcall.c, tracer.c, config/frv/frv.c, config/i386/i386.c,
config/ia64/ia64.c: Use the BB_HEAD and BB_END macros instead of
accessing the `head' and `end' fields of a basic block directly.
* gengtype.c: Add missing piece from earlier patch. Dunno what
I was thinking...
From-SVN: r74520
2003-12-11 01:20:51 +01:00
|
|
|
|
do_typedef ("PTR", create_pointer (resolve_typedef ("void", &pos)), &pos);
|
2007-03-26 23:18:43 +02:00
|
|
|
|
define_location_structures ();
|
[multiple changes]
2002-07-15 Michael Matz <matz@suse.de>,
Daniel Berlin <dberlin@dberlin.org>,
Denis Chertykov <denisc@overta.ru>
Add a new register allocator.
* ra.c: New file.
* ra.h: New file.
* ra-build.c: New file.
* ra-colorize.c: New file.
* ra-debug.c: New file.
* ra-rewrite.c: New file.
* Makefile.in (ra.o, ra-build.o, ra-colorize.o, ra-debug.o,
(ra-rewrite.o): New .o files for libbackend.a.
(GTFILES): Add basic-block.h.
* toplev.c (flag_new_regalloc): New.
(f_options): New option "new-ra".
(rest_of_compilation): Call initialize_uninitialized_subregs()
only for the old allocator. If flag_new_regalloc is set, call
new allocator, instead of local_alloc(), global_alloc() and
friends.
* doc/invoke.texi: Document -fnew-ra.
* basic-block.h (FOR_ALL_BB): New.
* config/rs6000/rs6000.c (print_operand): Write small constants
as @l+80.
* df.c (read_modify_subreg_p): Narrow down cases for a rmw subreg.
(df_reg_table_realloc): Make size at least as large as max_reg_num().
(df_insn_table_realloc): Size argument now is absolute, not relative.
Changed all callers.
* gengtype.c (main): Add the pseudo-type "HARD_REG_SET".
* regclass.c (reg_scan_mark_refs): Ignore NULL rtx's.
2002-06-20 Michael Matz <matz@suse.de>
* df.h (struct ref.id): Make unsigned.
* df.c (df_bb_reg_def_chain_create): Remove unsigned cast.
2002-06-13 Michael Matz <matz@suse.de>
* df.h (DF_REF_MODE_CHANGE): New flag.
* df.c (df_def_record_1, df_uses_record): Set this flag for refs
involving subregs with invalid mode changes, when
CLASS_CANNOT_CHANGE_MODE is defined.
2002-05-07 Michael Matz <matz@suse.de>
* reload1.c (fixup_abnormal_edges): Don't insert on NULL edge.
2002-05-03 Michael Matz <matz@suse.de>
* sbitmap.c (sbitmap_difference): Accept sbitmaps of different size.
Sat Feb 2 18:58:07 2002 Denis Chertykov <denisc@overta.ru>
* regclass.c (regclass): Work with all regs which have sets or
refs.
(reg_scan_mark_refs): Count regs inside (clobber ...).
2002-01-04 Michael Matz <matzmich@cs.tu-berlin.de>
* df.c (df_ref_record): Correctly calculate SUBREGs of hardregs.
(df_bb_reg_def_chain_create, df_bb_reg_use_chain_create): Only
add new refs.
(df_bb_refs_update): Don't clear insns_modified here, ...
(df_analyse): ... but here.
* sbitmap.c (dump_sbitmap_file): New.
(debug_sbitmap): Use it.
* sbitmap.h (dump_sbitmap_file): Add prototype.
2001-08-07 Daniel Berlin <dan@cgsoftware.com>
* df.c (df_insn_modify): Grow the UID table if necessary, rather
than assume all emits go through df_insns_modify.
2001-07-26 Daniel Berlin <dan@cgsoftware.com>
* regclass.c (reg_scan_mark_refs): When we increase REG_N_SETS,
increase REG_N_REFS (like flow does), so that regclass doesn't
think a reg is useless, and thus, not calculate a class, when it
really should have.
2001-01-28 Daniel Berlin <dberlin@redhat.com>
* sbitmap.h (EXECUTE_IF_SET_IN_SBITMAP_REV): New macro, needed for
dataflow analysis.
From-SVN: r55458
2002-07-15 16:07:06 +02:00
|
|
|
|
|
gengtype.c: Don't include gtyp-gen.h.
* gengtype.c: Don't include gtyp-gen.h.
(srcdir): Declare here.
(base_files, lang_dir_names): Allocate dynamically.
(gt_files, num_gt_files, num_lang_dirs): New globals.
(measure_input_list, read_input_line, read_input_list)
(set_lang_bitmap): New functions.
(get_base_file_bitmap): Rename get_lang_bitmap and drastically
simplify, relying on read_input_list to set up the bitmaps.
(main): Arguments are no longer unused. Check for correct number
of command line arguments, set srcdir and srcdir_len, then call
read_input_list, before doing anything else. No need to worry
about duplicates in main loop.
* configure.ac: Simplify the calculation of all_gtfiles.
Put language tags in there. Don't set or substitute
all_gtfiles_files_langs or all_gtfiles_files_frags.
* Makefile.in: Revamp the way gengtype is invoked, now that it
takes a file on its command line with a much simpler format.
Remove or replace with gtyp-input.list all references to gtyp-gen.h.
(GTFILES): Remove duplicates and C source files.
* c-config-lang.in, cp/config-lang.in, objc/config-lang.in
* objcp/config-lang.in: Add c-pragma.h to gtfiles.
* configure: Regenerate.
From-SVN: r123234
2007-03-26 23:07:27 +02:00
|
|
|
|
for (i = 0; i < num_gt_files; i++)
|
2007-03-26 23:18:43 +02:00
|
|
|
|
parse_file (gt_files[i]);
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
2007-03-26 23:18:43 +02:00
|
|
|
|
if (hit_error)
|
2007-03-26 23:04:59 +02:00
|
|
|
|
return 1;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
|
|
|
|
|
set_gc_used (variables);
|
|
|
|
|
|
|
|
|
|
open_base_files ();
|
2002-09-16 20:33:23 +02:00
|
|
|
|
write_enum_defn (structures, param_structs);
|
2003-01-10 03:22:34 +01:00
|
|
|
|
write_types (structures, param_structs, &ggc_wtd);
|
|
|
|
|
write_types (structures, param_structs, &pch_wtd);
|
|
|
|
|
write_local (structures, param_structs);
|
|
|
|
|
write_roots (variables);
|
2002-09-16 20:33:23 +02:00
|
|
|
|
write_rtx_next ();
|
2002-06-04 09:11:05 +02:00
|
|
|
|
close_output_files ();
|
|
|
|
|
|
2007-03-26 23:18:43 +02:00
|
|
|
|
if (hit_error)
|
|
|
|
|
return 1;
|
|
|
|
|
return 0;
|
2002-06-04 09:11:05 +02:00
|
|
|
|
}
|