1996-09-18 05:35:50 +00:00
/* Top level of GNU C compiler
2001-02-17 09:06:31 +00:00
Copyright ( C ) 1987 , 1988 , 1989 , 1992 , 1993 , 1994 , 1995 , 1996 , 1997 , 1998 ,
1999 , 2000 , 2001 Free Software Foundation , Inc .
1996-09-18 05:35:50 +00:00
This file is part of GNU CC .
GNU CC 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 .
GNU CC 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 GNU CC ; see the file COPYING . If not , write to
the Free Software Foundation , 59 Temple Place - Suite 330 ,
Boston , MA 02111 - 1307 , USA . */
1999-10-27 09:31:52 +00:00
/* $FreeBSD$ */
1996-09-18 05:35:50 +00:00
/* This is the top level of cc1/c++.
It parses command args , opens files , invokes the various passes
in the proper order , and counts the time used by each .
Error messages and low - level interface to malloc also handled here . */
# include "config.h"
1999-08-30 04:01:02 +00:00
# undef FLOAT /* This is for hpux. They should change hpux. */
# undef FFS /* Some systems define this in param.h. */
# include "system.h"
1996-09-18 05:35:50 +00:00
# include <signal.h>
# include <setjmp.h>
1999-08-30 04:01:02 +00:00
# ifdef HAVE_SYS_RESOURCE_H
# include <sys / resource.h>
1996-09-18 05:35:50 +00:00
# endif
1999-08-30 04:01:02 +00:00
# ifdef HAVE_SYS_TIMES_H
# include <sys / times.h>
1996-09-18 05:35:50 +00:00
# endif
# include "input.h"
# include "tree.h"
# include "rtl.h"
# include "flags.h"
# include "insn-attr.h"
1999-08-30 04:01:02 +00:00
# include "insn-codes.h"
# include "insn-config.h"
# include "recog.h"
1996-09-18 05:35:50 +00:00
# include "defaults.h"
# include "output.h"
1999-08-30 04:01:02 +00:00
# include "except.h"
# include "toplev.h"
1999-10-27 09:31:52 +00:00
# include "expr.h"
# include "basic-block.h"
# include "intl.h"
1999-08-30 04:01:02 +00:00
# ifdef DWARF_DEBUGGING_INFO
# include "dwarfout.h"
# endif
# if defined (DWARF2_UNWIND_INFO) || defined (DWARF2_DEBUGGING_INFO)
# include "dwarf2out.h"
# endif
# if defined(DBX_DEBUGGING_INFO) || defined(XCOFF_DEBUGGING_INFO)
# include "dbxout.h"
# endif
# ifdef SDB_DEBUGGING_INFO
# include "sdbout.h"
# endif
1996-09-18 05:35:50 +00:00
# ifdef XCOFF_DEBUGGING_INFO
# include "xcoffout.h"
# endif
# ifdef VMS
/* The extra parameters substantially improve the I/O performance. */
static FILE *
vms_fopen ( fname , type )
char * fname ;
char * type ;
{
/* The <stdio.h> in the gcc-vms-1.42 distribution prototypes fopen with two
fixed arguments , which matches ANSI ' s specification but not VAXCRTL ' s
pre - ANSI implementation . This hack circumvents the mismatch problem . */
FILE * ( * vmslib_fopen ) ( ) = ( FILE * ( * ) ( ) ) fopen ;
if ( * type = = ' w ' )
return ( * vmslib_fopen ) ( fname , type , " mbc=32 " ,
" deq=64 " , " fop=tef " , " shr=nil " ) ;
else
return ( * vmslib_fopen ) ( fname , type , " mbc=32 " ) ;
}
# define fopen vms_fopen
# endif /* VMS */
# ifndef DEFAULT_GDB_EXTENSIONS
# define DEFAULT_GDB_EXTENSIONS 1
# endif
1999-08-30 04:01:02 +00:00
/* If more than one debugging type is supported, you must define
PREFERRED_DEBUGGING_TYPE to choose a format in a system - dependent way .
This is one long line cause VAXC can ' t handle a \ - newline . */
# if 1 < (defined (DBX_DEBUGGING_INFO) + defined (SDB_DEBUGGING_INFO) + defined (DWARF_DEBUGGING_INFO) + defined (DWARF2_DEBUGGING_INFO) + defined (XCOFF_DEBUGGING_INFO))
# ifndef PREFERRED_DEBUGGING_TYPE
You Lose ! You must define PREFERRED_DEBUGGING_TYPE !
# endif /* no PREFERRED_DEBUGGING_TYPE */
# else / * Only one debugging format supported. Define PREFERRED_DEBUGGING_TYPE
so the following code needn ' t care . */
# ifdef DBX_DEBUGGING_INFO
# define PREFERRED_DEBUGGING_TYPE DBX_DEBUG
# endif
# ifdef SDB_DEBUGGING_INFO
# define PREFERRED_DEBUGGING_TYPE SDB_DEBUG
# endif
# ifdef DWARF_DEBUGGING_INFO
# define PREFERRED_DEBUGGING_TYPE DWARF_DEBUG
# endif
# ifdef DWARF2_DEBUGGING_INFO
# define PREFERRED_DEBUGGING_TYPE DWARF2_DEBUG
# endif
# ifdef XCOFF_DEBUGGING_INFO
# define PREFERRED_DEBUGGING_TYPE XCOFF_DEBUG
# endif
# endif /* More than one debugger format enabled. */
/* If still not defined, must have been because no debugging formats
are supported . */
# ifndef PREFERRED_DEBUGGING_TYPE
# define PREFERRED_DEBUGGING_TYPE NO_DEBUG
# endif
1999-10-27 09:31:52 +00:00
# ifndef DIR_SEPARATOR
# define DIR_SEPARATOR ' / '
# endif
1996-09-18 05:35:50 +00:00
extern int rtx_equal_function_value_matters ;
# if ! (defined (VMS) || defined (OS2))
extern char * * environ ;
# endif
extern char * version_string , * language_string ;
/* Carry information from ASM_DECLARE_OBJECT_NAME
to ASM_FINISH_DECLARE_OBJECT . */
extern int size_directive_output ;
extern tree last_assemble_variable_decl ;
1999-08-30 04:01:02 +00:00
extern char * init_parse PVPROTO ( ( char * ) ) ;
extern void finish_parse ( ) ;
1996-09-18 05:35:50 +00:00
extern void init_decl_processing ( ) ;
extern void init_obstacks ( ) ;
extern void init_tree_codes ( ) ;
extern void init_rtl ( ) ;
extern void init_regs ( ) ;
extern void init_optabs ( ) ;
extern void init_stmt ( ) ;
extern void init_reg_sets ( ) ;
extern void dump_flow_info ( ) ;
extern void dump_sched_info ( ) ;
extern void dump_local_alloc ( ) ;
1999-08-30 04:01:02 +00:00
extern void regset_release_memory ( ) ;
extern void print_rtl ( ) ;
extern void print_rtl_with_bb ( ) ;
1996-09-18 05:35:50 +00:00
void rest_of_decl_compilation ( ) ;
1999-10-27 09:31:52 +00:00
void error_with_file_and_line PVPROTO ( ( const char * file ,
int line , const char * s , . . . ) ) ;
void error_with_decl PVPROTO ( ( tree decl , const char * s , . . . ) ) ;
void error_for_asm PVPROTO ( ( rtx insn , const char * s , . . . ) ) ;
void notice PVPROTO ( ( const char * s , . . . ) ) ;
void error PVPROTO ( ( const char * s , . . . ) ) ;
void fatal PVPROTO ( ( const char * s , . . . ) ) ;
void warning_with_file_and_line PVPROTO ( ( const char * file ,
int line , const char * s , . . . ) ) ;
void warning_with_decl PVPROTO ( ( tree decl , const char * s , . . . ) ) ;
void warning PVPROTO ( ( const char * s , . . . ) ) ;
void pedwarn PVPROTO ( ( const char * s , . . . ) ) ;
void pedwarn_with_decl PVPROTO ( ( tree decl , const char * s , . . . ) ) ;
void pedwarn_with_file_and_line PVPROTO ( ( const char * file ,
int line , const char * s , . . . ) ) ;
void sorry PVPROTO ( ( const char * s , . . . ) ) ;
static void set_target_switch PROTO ( ( const char * ) ) ;
1999-08-30 04:01:02 +00:00
static char * decl_name PROTO ( ( tree , int ) ) ;
1999-10-27 09:31:52 +00:00
static void vmessage PROTO ( ( const char * , const char * , va_list ) ) ;
static void v_message_with_file_and_line PROTO ( ( const char * , int , int ,
const char * , va_list ) ) ;
static void v_message_with_decl PROTO ( ( tree , int , const char * , va_list ) ) ;
1999-08-30 04:01:02 +00:00
static void file_and_line_for_asm PROTO ( ( rtx , char * * , int * ) ) ;
1999-10-27 09:31:52 +00:00
static void v_error_with_file_and_line PROTO ( ( const char * , int ,
const char * , va_list ) ) ;
static void v_error_with_decl PROTO ( ( tree , const char * , va_list ) ) ;
static void v_error_for_asm PROTO ( ( rtx , const char * , va_list ) ) ;
static void verror PROTO ( ( const char * , va_list ) ) ;
static void vfatal PROTO ( ( const char * , va_list ) ) ATTRIBUTE_NORETURN ;
static void v_warning_with_file_and_line PROTO ( ( const char * , int ,
const char * , va_list ) ) ;
static void v_warning_with_decl PROTO ( ( tree , const char * , va_list ) ) ;
static void v_warning_for_asm PROTO ( ( rtx , const char * , va_list ) ) ;
static void vwarning PROTO ( ( const char * , va_list ) ) ;
static void vpedwarn PROTO ( ( const char * , va_list ) ) ;
static void v_pedwarn_with_decl PROTO ( ( tree , const char * , va_list ) ) ;
static void v_pedwarn_with_file_and_line PROTO ( ( const char * , int ,
const char * , va_list ) ) ;
static void vsorry PROTO ( ( const char * , va_list ) ) ;
static void float_signal PROTO ( ( int ) ) ATTRIBUTE_NORETURN ;
static void pipe_closed PROTO ( ( int ) ) ATTRIBUTE_NORETURN ;
# ifdef ASM_IDENTIFY_LANGUAGE
/* This might or might not be used in ASM_IDENTIFY_LANGUAGE. */
static void output_lang_identify PROTO ( ( FILE * ) ) ATTRIBUTE_UNUSED ;
# endif
static void open_dump_file PROTO ( ( const char * , const char * ) ) ;
1999-08-30 04:01:02 +00:00
static void close_dump_file PROTO ( ( void ( * ) ( FILE * , rtx ) , rtx ) ) ;
1999-10-27 09:31:52 +00:00
static void dump_rtl PROTO ( ( const char * , tree , void ( * ) ( FILE * , rtx ) , rtx ) ) ;
static void clean_dump_file PROTO ( ( const char * ) ) ;
1999-08-30 04:01:02 +00:00
static void compile_file PROTO ( ( char * ) ) ;
static void display_help PROTO ( ( void ) ) ;
1999-10-27 09:31:52 +00:00
static void print_version PROTO ( ( FILE * , const char * ) ) ;
static int print_single_switch PROTO ( ( FILE * , int , int , const char * ,
const char * , const char * ,
const char * , const char * ) ) ;
static void print_switch_values PROTO ( ( FILE * , int , int , const char * ,
const char * , const char * ) ) ;
void print_rtl_graph_with_bb PROTO ( ( const char * , const char * , rtx ) ) ;
void clean_graph_dump_file PROTO ( ( const char * , const char * ) ) ;
void finish_graph_dump_file PROTO ( ( const char * , const char * ) ) ;
1999-08-30 04:01:02 +00:00
/* Length of line when printing switch values. */
# define MAX_LINE 75
1996-09-18 05:35:50 +00:00
/* Name of program invoked, sans directories. */
char * progname ;
/* Copy of arguments to main. */
int save_argc ;
char * * save_argv ;
/* Name of current original source file (what was input to cpp).
This comes from each # - command in the actual input . */
char * input_filename ;
/* Name of top-level original source file (what was input to cpp).
This comes from the # - command at the beginning of the actual input .
If there isn ' t any there , then this is the cc1 input file name . */
char * main_input_filename ;
/* Current line number in real source file. */
int lineno ;
1999-10-27 09:31:52 +00:00
/* Nonzero if it is unsafe to create any new pseudo registers. */
int no_new_pseudos ;
1996-09-18 05:35:50 +00:00
/* Stack of currently pending input files. */
struct file_stack * input_file_stack ;
/* Incremented on each change to input_file_stack. */
int input_file_stack_tick ;
/* FUNCTION_DECL for function now being parsed or compiled. */
extern tree current_function_decl ;
/* Name to use as base of names for dump output files. */
1999-10-27 09:31:52 +00:00
const char * dump_base_name ;
1996-09-18 05:35:50 +00:00
/* Bit flags that specify the machine subtype we are compiling for.
Bits are tested using macros TARGET_ . . . defined in the tm . h file
and set by ` - m . . . ' switches . Must be defined in rtlanal . c . */
extern int target_flags ;
/* Flags saying which kinds of debugging dump have been requested. */
int rtl_dump = 0 ;
int rtl_dump_and_exit = 0 ;
int jump_opt_dump = 0 ;
1999-08-30 04:01:02 +00:00
int addressof_dump = 0 ;
1996-09-18 05:35:50 +00:00
int cse_dump = 0 ;
1999-08-30 04:01:02 +00:00
int gcse_dump = 0 ;
1996-09-18 05:35:50 +00:00
int loop_dump = 0 ;
int cse2_dump = 0 ;
1999-08-30 04:01:02 +00:00
int branch_prob_dump = 0 ;
1996-09-18 05:35:50 +00:00
int flow_dump = 0 ;
int combine_dump = 0 ;
1999-08-30 04:01:02 +00:00
int regmove_dump = 0 ;
1996-09-18 05:35:50 +00:00
int sched_dump = 0 ;
int local_reg_dump = 0 ;
int global_reg_dump = 0 ;
1999-10-27 09:31:52 +00:00
int flow2_dump = 0 ;
1996-09-18 05:35:50 +00:00
int sched2_dump = 0 ;
int jump2_opt_dump = 0 ;
1999-08-30 04:01:02 +00:00
# ifdef DELAY_SLOTS
1996-09-18 05:35:50 +00:00
int dbr_sched_dump = 0 ;
1999-08-30 04:01:02 +00:00
# endif
1996-09-18 05:35:50 +00:00
int flag_print_asm_name = 0 ;
1999-08-30 04:01:02 +00:00
# ifdef STACK_REGS
1996-09-18 05:35:50 +00:00
int stack_reg_dump = 0 ;
1999-08-30 04:01:02 +00:00
# endif
# ifdef MACHINE_DEPENDENT_REORG
int mach_dep_reorg_dump = 0 ;
# endif
1999-10-27 09:31:52 +00:00
enum graph_dump_types graph_dump_format ;
1996-09-18 05:35:50 +00:00
/* Name for output file of assembly code, specified with -o. */
char * asm_file_name ;
/* Value of the -G xx switch, and whether it was passed or not. */
int g_switch_value ;
int g_switch_set ;
/* Type(s) of debugging information we are producing (if any).
See flags . h for the definitions of the different possible
types of debugging information . */
enum debug_info_type write_symbols = NO_DEBUG ;
/* Level of debugging information we are producing. See flags.h
for the definitions of the different possible levels . */
enum debug_info_level debug_info_level = DINFO_LEVEL_NONE ;
/* Nonzero means use GNU-only extensions in the generated symbolic
debugging information . */
/* Currently, this only has an effect when write_symbols is set to
DBX_DEBUG , XCOFF_DEBUG , or DWARF_DEBUG . */
int use_gnu_debug_info_extensions = 0 ;
/* Nonzero means do optimizations. -O.
Particular numeric values stand for particular amounts of optimization ;
thus , - O2 stores 2 here . However , the optimizations beyond the basic
ones are not controlled directly by this variable . Instead , they are
controlled by individual ` flag_ . . . ' variables that are defaulted
based on this variable . */
int optimize = 0 ;
1999-08-30 04:01:02 +00:00
/* Nonzero means optimize for size. -Os.
The only valid values are zero and non - zero . When optimize_size is
non - zero , optimize defaults to 2 , but certain individual code
bloating optimizations are disabled . */
int optimize_size = 0 ;
1996-09-18 05:35:50 +00:00
/* Number of error messages and warning messages so far. */
int errorcount = 0 ;
int warningcount = 0 ;
int sorrycount = 0 ;
1999-08-30 04:01:02 +00:00
/* Pointer to function to compute the name to use to print a declaration.
DECL is the declaration in question .
VERBOSITY determines what information will be printed :
0 : DECL_NAME , demangled as necessary .
1 : and scope information .
2 : and any other information that might be interesting , such as function
parameter types in C + + . */
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
char * ( * decl_printable_name ) PROTO ( ( tree , int ) ) ;
1996-09-18 05:35:50 +00:00
/* Pointer to function to compute rtl for a language-specific tree code. */
1999-10-27 09:31:52 +00:00
typedef rtx ( * lang_expand_expr_t )
PROTO ( ( union tree_node * , rtx , enum machine_mode ,
enum expand_modifier modifier ) ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
lang_expand_expr_t lang_expand_expr = 0 ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
tree ( * lang_expand_constant ) PROTO ( ( tree ) ) = 0 ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
/* Pointer to function to finish handling an incomplete decl at the
end of compilation . */
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
void ( * incomplete_decl_finalize_hook ) PROTO ( ( tree ) ) = 0 ;
1996-09-18 05:35:50 +00:00
/* Nonzero if generating code to do profiling. */
int profile_flag = 0 ;
/* Nonzero if generating code to do profiling on a line-by-line basis. */
int profile_block_flag ;
1999-08-30 04:01:02 +00:00
/* Nonzero if generating code to profile program flow graph arcs. */
int profile_arc_flag = 0 ;
/* Nonzero if generating info for gcov to calculate line test coverage. */
int flag_test_coverage = 0 ;
/* Nonzero indicates that branch taken probabilities should be calculated. */
int flag_branch_probabilities = 0 ;
1996-09-18 05:35:50 +00:00
/* Nonzero for -pedantic switch: warn about anything
that standard spec forbids . */
int pedantic = 0 ;
/* Temporarily suppress certain warnings.
This is set while reading code from a system header file . */
int in_system_header = 0 ;
/* Nonzero means do stupid register allocation.
Currently , this is 1 if ` optimize ' is 0. */
int obey_regdecls = 0 ;
/* Don't print functions as they are compiled and don't print
times taken by the various passes . - quiet . */
int quiet_flag = 0 ;
/* -f flags. */
/* Nonzero means `char' should be signed. */
int flag_signed_char ;
/* Nonzero means give an enum type only as many bytes as it needs. */
int flag_short_enums ;
/* Nonzero for -fcaller-saves: allocate values in regs that need to
be saved across function calls , if that produces overall better code .
Optional now , so people can test it . */
# ifdef DEFAULT_CALLER_SAVES
int flag_caller_saves = 1 ;
# else
int flag_caller_saves = 0 ;
# endif
/* Nonzero if structures and unions should be returned in memory.
This should only be defined if compatibility with another compiler or
with an ABI is needed , because it results in slower code . */
# ifndef DEFAULT_PCC_STRUCT_RETURN
# define DEFAULT_PCC_STRUCT_RETURN 1
# endif
/* Nonzero for -fpcc-struct-return: return values the same way PCC does. */
int flag_pcc_struct_return = DEFAULT_PCC_STRUCT_RETURN ;
/* Nonzero for -fforce-mem: load memory value into a register
before arithmetic on it . This makes better cse but slower compilation . */
int flag_force_mem = 0 ;
/* Nonzero for -fforce-addr: load memory address into a register before
reference to memory . This makes better cse but slower compilation . */
int flag_force_addr = 0 ;
/* Nonzero for -fdefer-pop: don't pop args after each function call;
instead save them up to pop many calls ' args with one insns . */
int flag_defer_pop = 0 ;
/* Nonzero for -ffloat-store: don't allocate floats and doubles
in extended - precision registers . */
int flag_float_store = 0 ;
/* Nonzero for -fcse-follow-jumps:
have cse follow jumps to do a more extensive job . */
int flag_cse_follow_jumps ;
/* Nonzero for -fcse-skip-blocks:
have cse follow a branch around a block . */
int flag_cse_skip_blocks ;
/* Nonzero for -fexpensive-optimizations:
perform miscellaneous relatively - expensive optimizations . */
int flag_expensive_optimizations ;
/* Nonzero for -fthread-jumps:
have jump optimize output of loop . */
int flag_thread_jumps ;
/* Nonzero enables strength-reduction in loop.c. */
int flag_strength_reduce = 0 ;
/* Nonzero enables loop unrolling in unroll.c. Only loops for which the
number of iterations can be calculated at compile - time ( UNROLL_COMPLETELY ,
UNROLL_MODULO ) or at run - time ( preconditioned to be UNROLL_MODULO ) are
unrolled . */
int flag_unroll_loops ;
/* Nonzero enables loop unrolling in unroll.c. All loops are unrolled.
This is generally not a win . */
int flag_unroll_all_loops ;
1999-08-30 04:01:02 +00:00
/* Nonzero forces all invariant computations in loops to be moved
outside the loop . */
int flag_move_all_movables = 0 ;
/* Nonzero forces all general induction variables in loops to be
strength reduced . */
int flag_reduce_all_givs = 0 ;
/* Nonzero to perform full register move optimization passes. This is the
default for - O2 . */
int flag_regmove = 0 ;
1996-09-18 05:35:50 +00:00
/* Nonzero for -fwritable-strings:
store string constants in data segment and don ' t uniquize them . */
int flag_writable_strings = 0 ;
/* Nonzero means don't put addresses of constant functions in registers.
Used for compiling the Unix kernel , where strange substitutions are
done on the assembly output . */
int flag_no_function_cse = 0 ;
/* Nonzero for -fomit-frame-pointer:
don ' t make a frame pointer in simple functions that don ' t require one . */
int flag_omit_frame_pointer = 0 ;
1999-08-30 04:01:02 +00:00
/* Nonzero means place each function into its own section on those platforms
which support arbitrary section names and unlimited numbers of sections . */
int flag_function_sections = 0 ;
1999-10-27 09:31:52 +00:00
/* ... and similar for data. */
int flag_data_sections = 0 ;
1996-09-18 05:35:50 +00:00
/* Nonzero to inhibit use of define_optimization peephole opts. */
int flag_no_peephole = 0 ;
/* Nonzero allows GCC to violate some IEEE or ANSI rules regarding math
operations in the interest of optimization . For example it allows
GCC to assume arguments to sqrt are nonnegative numbers , allowing
1999-08-30 04:01:02 +00:00
faster code for sqrt to be generated . */
1996-09-18 05:35:50 +00:00
int flag_fast_math = 0 ;
1999-10-27 09:31:52 +00:00
/* Nonzero means the front end generally wants `errno' maintained by math
operations , like built - in SQRT , unless overridden by flag_fast_math . */
int flag_errno_math = 1 ;
/* 0 means straightforward implementation of complex divide acceptable.
1 means wide ranges of inputs must work for complex divide .
2 means C9X - like requirements for complex divide ( not yet implemented ) . */
int flag_complex_divide_method = 0 ;
1996-09-18 05:35:50 +00:00
/* Nonzero means all references through pointers are volatile. */
int flag_volatile ;
1999-10-27 09:31:52 +00:00
/* Nonzero means treat all global and extern variables as volatile. */
1996-09-18 05:35:50 +00:00
int flag_volatile_global ;
1999-10-27 09:31:52 +00:00
/* Nonzero means treat all static variables as volatile. */
int flag_volatile_static ;
1996-09-18 05:35:50 +00:00
/* Nonzero means just do syntax checking; don't output anything. */
int flag_syntax_only = 0 ;
1999-08-30 04:01:02 +00:00
/* Nonzero means perform global cse. */
static int flag_gcse ;
1996-09-18 05:35:50 +00:00
/* Nonzero means to rerun cse after loop optimization. This increases
compilation time about 20 % and picks up a few more common expressions . */
static int flag_rerun_cse_after_loop ;
1999-08-30 04:01:02 +00:00
/* Nonzero means to run loop optimizations twice. */
int flag_rerun_loop_opt ;
1996-09-18 05:35:50 +00:00
/* Nonzero for -finline-functions: ok to inline functions that look like
good inline candidates . */
int flag_inline_functions ;
/* Nonzero for -fkeep-inline-functions: even if we make a function
go inline everywhere , keep its definition around for debugging
purposes . */
int flag_keep_inline_functions ;
/* Nonzero means that functions will not be inlined. */
int flag_no_inline ;
1999-08-30 04:01:02 +00:00
/* Nonzero means that we should emit static const variables
regardless of whether or not optimization is turned on . */
int flag_keep_static_consts = 1 ;
1996-09-18 05:35:50 +00:00
/* Nonzero means we should be saving declaration info into a .X file. */
int flag_gen_aux_info = 0 ;
/* Specified name of aux-info file. */
static char * aux_info_file_name ;
/* Nonzero means make the text shared if supported. */
int flag_shared_data ;
/* Nonzero means schedule into delayed branch slots if supported. */
int flag_delayed_branch ;
/* Nonzero if we are compiling pure (sharable) code.
Value is 1 if we are doing reasonable ( i . e . simple
offset into offset table ) pic . Value is 2 if we can
only perform register offsets . */
int flag_pic ;
1999-08-30 04:01:02 +00:00
/* Nonzero means generate extra code for exception handling and enable
exception handling . */
int flag_exceptions ;
/* Nonzero means use the new model for exception handling. Replaces
- DNEW_EH_MODEL as a compile option . */
int flag_new_exceptions = 0 ;
/* Nonzero means don't place uninitialized global data in common storage
by default . */
1996-09-18 05:35:50 +00:00
int flag_no_common ;
/* Nonzero means pretend it is OK to examine bits of target floats,
even if that isn ' t true . The resulting code will have incorrect constants ,
but the same series of instructions that the native compiler would make . */
int flag_pretend_float ;
/* Nonzero means change certain warnings into errors.
Usually these are warnings about failure to conform to some standard . */
int flag_pedantic_errors = 0 ;
/* flag_schedule_insns means schedule insns within basic blocks (before
local_alloc ) .
flag_schedule_insns_after_reload means schedule insns after
global_alloc . */
int flag_schedule_insns = 0 ;
int flag_schedule_insns_after_reload = 0 ;
1999-08-30 04:01:02 +00:00
# ifdef HAIFA
/* The following flags have effect only for scheduling before register
allocation :
flag_schedule_interblock means schedule insns accross basic blocks .
flag_schedule_speculative means allow speculative motion of non - load insns .
flag_schedule_speculative_load means allow speculative motion of some
load insns .
flag_schedule_speculative_load_dangerous allows speculative motion of more
load insns . */
int flag_schedule_interblock = 1 ;
int flag_schedule_speculative = 1 ;
int flag_schedule_speculative_load = 0 ;
int flag_schedule_speculative_load_dangerous = 0 ;
1999-10-27 09:31:52 +00:00
# endif /* HAIFA */
1999-08-30 04:01:02 +00:00
/* flag_on_branch_count_reg means try to replace add-1,compare,branch tupple
by a cheaper branch , on a count register . */
int flag_branch_on_count_reg ;
1996-09-18 05:35:50 +00:00
/* -finhibit-size-directive inhibits output of .size for ELF.
This is used only for compiling crtstuff . c ,
and it may be extended to other effects
needed for crtstuff . c on other systems . */
int flag_inhibit_size_directive = 0 ;
/* -fverbose-asm causes extra commentary information to be produced in
the generated assembly code ( to make it more readable ) . This option
is generally only of use to those who actually need to read the
1999-08-30 04:01:02 +00:00
generated assembly code ( perhaps while debugging the compiler itself ) .
- fno - verbose - asm , the default , causes the extra information
to be omitted and is useful when comparing two assembler files . */
1996-09-18 05:35:50 +00:00
int flag_verbose_asm = 0 ;
1999-08-30 04:01:02 +00:00
/* -dA causes debug commentary information to be produced in
the generated assembly code ( to make it more readable ) . This option
is generally only of use to those who actually need to read the
generated assembly code ( perhaps while debugging the compiler itself ) .
Currently , this switch is only used by dwarfout . c ; however , it is intended
to be a catchall for printing debug information in the assembler file . */
int flag_debug_asm = 0 ;
1996-09-18 05:35:50 +00:00
/* -fgnu-linker specifies use of the GNU linker for initializations.
( Or , more generally , a linker that handles initializations . )
- fno - gnu - linker says that collect2 will be used . */
# ifdef USE_COLLECT2
int flag_gnu_linker = 0 ;
# else
int flag_gnu_linker = 1 ;
# endif
/* Tag all structures with __attribute__(packed) */
int flag_pack_struct = 0 ;
1998-08-24 06:33:52 +00:00
/* Nonzero means that -Wformat accepts certain system-dependent formats. */
int flag_format_extensions = 0 ;
1999-08-30 04:01:02 +00:00
/* Emit code to check for stack overflow; also may cause large objects
to be allocated dynamically . */
int flag_stack_check ;
/* -fcheck-memory-usage causes extra code to be generated in order to check
memory accesses . This is used by a detector of bad memory accesses such
as Checker . */
int flag_check_memory_usage = 0 ;
/* -fprefix-function-name causes function name to be prefixed. This
can be used with - fcheck - memory - usage to isolate code compiled with
- fcheck - memory - usage . */
int flag_prefix_function_name = 0 ;
/* 0 if pointer arguments may alias each other. True in C.
1 if pointer arguments may not alias each other but may alias
global variables .
2 if pointer arguments may not alias each other and may not
alias global variables . True in Fortran .
This defaults to 0 for C . */
int flag_argument_noalias = 0 ;
/* Nonzero if we should do (language-dependent) alias analysis.
Typically , this analysis will assume that expressions of certain
types do not alias expressions of certain other types . Only used
if alias analysis ( in general ) is enabled . */
int flag_strict_aliasing = 0 ;
1999-10-27 09:31:52 +00:00
/* Instrument functions with calls at entry and exit, for profiling. */
int flag_instrument_function_entry_exit = 0 ;
/* Nonzero means ignore `#ident' directives. 0 means handle them.
On SVR4 targets , it also controls whether or not to emit a
string identifying the compiler . */
1999-08-30 04:01:02 +00:00
1999-10-27 09:31:52 +00:00
int flag_no_ident = 0 ;
1999-08-30 04:01:02 +00:00
/* Table of supported debugging formats. */
static struct
{
1999-10-27 09:31:52 +00:00
const char * arg ;
1999-08-30 04:01:02 +00:00
/* Since PREFERRED_DEBUGGING_TYPE isn't necessarily a
constant expression , we use NO_DEBUG in its place . */
enum debug_info_type debug_type ;
int use_extensions_p ;
1999-10-27 09:31:52 +00:00
const char * description ;
1999-08-30 04:01:02 +00:00
} * da ,
debug_args [ ] =
{
{ " g " , NO_DEBUG , DEFAULT_GDB_EXTENSIONS ,
" Generate default debug format output " } ,
{ " ggdb " , NO_DEBUG , 1 , " Generate default extended debug format output " } ,
# ifdef DBX_DEBUGGING_INFO
{ " gstabs " , DBX_DEBUG , 0 , " Generate STABS format debug output " } ,
{ " gstabs+ " , DBX_DEBUG , 1 , " Generate extended STABS format debug output " } ,
# endif
# ifdef DWARF_DEBUGGING_INFO
{ " gdwarf " , DWARF_DEBUG , 0 , " Generate DWARF-1 format debug output " } ,
{ " gdwarf+ " , DWARF_DEBUG , 1 ,
" Generated extended DWARF-1 format debug output " } ,
# endif
# ifdef DWARF2_DEBUGGING_INFO
{ " gdwarf-2 " , DWARF2_DEBUG , 0 , " Enable DWARF-2 debug output " } ,
# endif
# ifdef XCOFF_DEBUGGING_INFO
{ " gxcoff " , XCOFF_DEBUG , 0 , " Generate XCOFF format debug output " } ,
{ " gxcoff+ " , XCOFF_DEBUG , 1 , " Generate extended XCOFF format debug output " } ,
# endif
# ifdef SDB_DEBUGGING_INFO
{ " gcoff " , SDB_DEBUG , 0 , " Generate COFF format debug output " } ,
# endif
1999-10-27 09:31:52 +00:00
{ 0 , 0 , 0 , 0 }
1999-08-30 04:01:02 +00:00
} ;
typedef struct
{
1999-10-27 09:31:52 +00:00
const char * string ;
1999-08-30 04:01:02 +00:00
int * variable ;
int on_value ;
1999-10-27 09:31:52 +00:00
const char * description ;
1999-08-30 04:01:02 +00:00
}
lang_independent_options ;
1999-10-27 09:31:52 +00:00
/* Add or remove a leading underscore from user symbols. */
int flag_leading_underscore = - 1 ;
/* The user symbol prefix after having resolved same. */
const char * user_label_prefix ;
/* A default for same. */
# ifndef USER_LABEL_PREFIX
# define USER_LABEL_PREFIX ""
# endif
1996-09-18 05:35:50 +00:00
/* Table of language-independent -f options.
STRING is the option name . VARIABLE is the address of the variable .
ON_VALUE is the value to store in VARIABLE
if ` - fSTRING ' is seen as an option .
( If ` - fno - STRING ' is seen as an option , the opposite value is stored . ) */
1999-08-30 04:01:02 +00:00
lang_independent_options f_options [ ] =
{
{ " float-store " , & flag_float_store , 1 ,
" Do not store floats in registers " } ,
{ " volatile " , & flag_volatile , 1 ,
" Consider all mem refs through pointers as volatile " } ,
{ " volatile-global " , & flag_volatile_global , 1 ,
" Consider all mem refs to global data to be volatile " } ,
1999-10-27 09:31:52 +00:00
{ " volatile-static " , & flag_volatile_static , 1 ,
" Consider all mem refs to static data to be volatile " } ,
1999-08-30 04:01:02 +00:00
{ " defer-pop " , & flag_defer_pop , 1 ,
" Defer popping functions args from stack until later " } ,
{ " omit-frame-pointer " , & flag_omit_frame_pointer , 1 ,
" When possible do not generate stack frames " } ,
{ " cse-follow-jumps " , & flag_cse_follow_jumps , 1 ,
" When running CSE, follow jumps to their targets " } ,
{ " cse-skip-blocks " , & flag_cse_skip_blocks , 1 ,
" When running CSE, follow conditional jumps " } ,
{ " expensive-optimizations " , & flag_expensive_optimizations , 1 ,
" Perform a number of minor, expensive optimisations " } ,
{ " thread-jumps " , & flag_thread_jumps , 1 ,
" Perform jump threading optimisations " } ,
{ " strength-reduce " , & flag_strength_reduce , 1 ,
" Perform strength reduction optimisations " } ,
{ " unroll-loops " , & flag_unroll_loops , 1 ,
1999-10-27 09:31:52 +00:00
" Perform loop unrolling when iteration count is known " } ,
1999-08-30 04:01:02 +00:00
{ " unroll-all-loops " , & flag_unroll_all_loops , 1 ,
1999-10-27 09:31:52 +00:00
" Perform loop unrolling for all loops " } ,
1999-08-30 04:01:02 +00:00
{ " move-all-movables " , & flag_move_all_movables , 1 ,
" Force all loop invariant computations out of loops " } ,
{ " reduce-all-givs " , & flag_reduce_all_givs , 1 ,
" Strength reduce all loop general induction variables " } ,
{ " writable-strings " , & flag_writable_strings , 1 ,
" Store strings in writable data section " } ,
{ " peephole " , & flag_no_peephole , 0 ,
" Enable machine specific peephole optimisations " } ,
{ " force-mem " , & flag_force_mem , 1 ,
" Copy memory operands into registers before using " } ,
{ " force-addr " , & flag_force_addr , 1 ,
" Copy memory address constants into regs before using " } ,
{ " function-cse " , & flag_no_function_cse , 0 ,
" Allow function addresses to be held in registers " } ,
{ " inline-functions " , & flag_inline_functions , 1 ,
" Integrate simple functions into their callers " } ,
{ " keep-inline-functions " , & flag_keep_inline_functions , 1 ,
" Generate code for funcs even if they are fully inlined " } ,
{ " inline " , & flag_no_inline , 0 ,
" Pay attention to the 'inline' keyword " } ,
{ " keep-static-consts " , & flag_keep_static_consts , 1 ,
" Emit static const variables even if they are not used " } ,
{ " syntax-only " , & flag_syntax_only , 1 ,
" Check for syntax errors, then stop " } ,
{ " shared-data " , & flag_shared_data , 1 ,
" Mark data as shared rather than private " } ,
{ " caller-saves " , & flag_caller_saves , 1 ,
" Enable saving registers around function calls " } ,
{ " pcc-struct-return " , & flag_pcc_struct_return , 1 ,
" Return 'short' aggregates in memory, not registers " } ,
{ " reg-struct-return " , & flag_pcc_struct_return , 0 ,
" Return 'short' aggregates in registers " } ,
{ " delayed-branch " , & flag_delayed_branch , 1 ,
" Attempt to fill delay slots of branch instructions " } ,
{ " gcse " , & flag_gcse , 1 ,
" Perform the global common subexpression elimination " } ,
{ " rerun-cse-after-loop " , & flag_rerun_cse_after_loop , 1 ,
" Run CSE pass after loop optimisations " } ,
{ " rerun-loop-opt " , & flag_rerun_loop_opt , 1 ,
" Run the loop optimiser twice " } ,
{ " pretend-float " , & flag_pretend_float , 1 ,
" Pretend that host and target use the same FP format " } ,
{ " schedule-insns " , & flag_schedule_insns , 1 ,
" Reschedule instructions to avoid pipeline stalls " } ,
{ " schedule-insns2 " , & flag_schedule_insns_after_reload , 1 ,
" Run two passes of the instruction scheduler " } ,
# ifdef HAIFA
{ " sched-interblock " , & flag_schedule_interblock , 1 ,
" Enable scheduling across basic blocks " } ,
{ " sched-spec " , & flag_schedule_speculative , 1 ,
" Allow speculative motion of non-loads " } ,
{ " sched-spec-load " , & flag_schedule_speculative_load , 1 ,
" Allow speculative motion of some loads " } ,
{ " sched-spec-load-dangerous " , & flag_schedule_speculative_load_dangerous , 1 ,
" Allow speculative motion of more loads " } ,
1999-10-27 09:31:52 +00:00
# endif /* HAIFA */
1999-08-30 04:01:02 +00:00
{ " branch-count-reg " , & flag_branch_on_count_reg , 1 ,
" Replace add,compare,branch with branch on count reg " } ,
{ " pic " , & flag_pic , 1 ,
" Generate position independent code, if possible " } ,
{ " PIC " , & flag_pic , 2 , " " } ,
{ " exceptions " , & flag_exceptions , 1 ,
" Enable exception handling " } ,
{ " new-exceptions " , & flag_new_exceptions , 1 ,
" Use the new model for exception handling " } ,
{ " sjlj-exceptions " , & exceptions_via_longjmp , 1 ,
" Use setjmp/longjmp to handle exceptions " } ,
{ " asynchronous-exceptions " , & asynchronous_exceptions , 1 ,
" Support asynchronous exceptions " } ,
{ " profile-arcs " , & profile_arc_flag , 1 ,
" Insert arc based program profiling code " } ,
{ " test-coverage " , & flag_test_coverage , 1 ,
" Create data files needed by gcov " } ,
{ " branch-probabilities " , & flag_branch_probabilities , 1 ,
1999-10-27 09:31:52 +00:00
" Use profiling information for branch probabilities " } ,
1999-08-30 04:01:02 +00:00
{ " fast-math " , & flag_fast_math , 1 ,
" Improve FP speed by violating ANSI & IEEE rules " } ,
{ " common " , & flag_no_common , 0 ,
" Do not put unitialised globals in the common section " } ,
{ " inhibit-size-directive " , & flag_inhibit_size_directive , 1 ,
" Do not generate .size directives " } ,
{ " function-sections " , & flag_function_sections , 1 ,
" place each function into its own section " } ,
1999-10-27 09:31:52 +00:00
{ " data-sections " , & flag_data_sections , 1 ,
" place data items into their own section " } ,
1999-08-30 04:01:02 +00:00
{ " verbose-asm " , & flag_verbose_asm , 1 ,
" Add extra commentry to assembler output " } ,
{ " gnu-linker " , & flag_gnu_linker , 1 ,
" Output GNU ld formatted global initialisers " } ,
{ " regmove " , & flag_regmove , 1 ,
1999-10-27 09:31:52 +00:00
" Enables a register move optimisation " } ,
{ " optimize-register-move " , & flag_regmove , 1 ,
" Do the full regmove optimization pass " } ,
1999-08-30 04:01:02 +00:00
{ " pack-struct " , & flag_pack_struct , 1 ,
" Pack structure members together without holes " } ,
{ " format-extensions " , & flag_format_extensions , 1 ,
" -Wformat accepts certain FreeBSD system-dependent formats " } ,
{ " stack-check " , & flag_stack_check , 1 ,
" Insert stack checking code into the program " } ,
{ " argument-alias " , & flag_argument_noalias , 0 ,
" Specify that arguments may alias each other & globals " } ,
{ " argument-noalias " , & flag_argument_noalias , 1 ,
" Assume arguments may alias globals but not each other " } ,
{ " argument-noalias-global " , & flag_argument_noalias , 2 ,
" Assume arguments do not alias each other or globals " } ,
{ " strict-aliasing " , & flag_strict_aliasing , 1 ,
" Assume strict aliasing rules apply " } ,
{ " check-memory-usage " , & flag_check_memory_usage , 1 ,
" Generate code to check every memory access " } ,
{ " prefix-function-name " , & flag_prefix_function_name , 1 ,
" Add a prefix to all function names " } ,
1999-10-27 09:31:52 +00:00
{ " dump-unnumbered " , & flag_dump_unnumbered , 1 ,
" Suppress output of instruction numbers and line number notes in debugging dumps " } ,
{ " instrument-functions " , & flag_instrument_function_entry_exit , 1 ,
" Instrument function entry/exit with profiling calls " } ,
{ " leading-underscore " , & flag_leading_underscore , 1 ,
" External symbols have a leading underscore " } ,
{ " ident " , & flag_no_ident , 0 ,
" Process #ident directives " }
1996-09-18 05:35:50 +00:00
} ;
1999-08-30 04:01:02 +00:00
# define NUM_ELEM(a) (sizeof (a) / sizeof ((a)[0]))
1996-09-18 05:35:50 +00:00
/* Table of language-specific options. */
1999-08-30 04:01:02 +00:00
static struct lang_opt
{
1999-10-27 09:31:52 +00:00
const char * option ;
const char * description ;
1999-08-30 04:01:02 +00:00
}
documented_lang_options [ ] =
{
/* In order not to overload the --help output, the convention
used here is to only describe those options which are not
enabled by default . */
{ " -ansi " , " Compile just for ANSI C " } ,
{ " -fallow-single-precision " ,
" Do not promote floats to double if using -traditional " } ,
1999-10-27 09:31:52 +00:00
{ " -std= " , " Determine language standard " } ,
1999-08-30 04:01:02 +00:00
{ " -fsigned-bitfields " , " " } ,
{ " -funsigned-bitfields " , " Make bitfields by unsigned by default " } ,
{ " -fno-signed-bitfields " , " " } ,
{ " -fno-unsigned-bitfields " , " " } ,
{ " -fsigned-char " , " Make 'char' be signed by default " } ,
{ " -funsigned-char " , " Make 'char' be unsigned by default " } ,
{ " -fno-signed-char " , " " } ,
{ " -fno-unsigned-char " , " " } ,
{ " -ftraditional " , " " } ,
{ " -traditional " , " Attempt to support traditional K&R style C " } ,
{ " -fnotraditional " , " " } ,
{ " -fno-traditional " , " " } ,
{ " -fasm " , " " } ,
{ " -fno-asm " , " Do not recognise the 'asm' keyword " } ,
{ " -fbuiltin " , " " } ,
{ " -fno-builtin " , " Do not recognise any built in functions " } ,
{ " -fhosted " , " Assume normal C execution environment " } ,
{ " -fno-hosted " , " " } ,
{ " -ffreestanding " ,
" Assume that standard libraries & main might not exist " } ,
{ " -fno-freestanding " , " " } ,
{ " -fcond-mismatch " , " Allow different types as args of ? operator " } ,
{ " -fno-cond-mismatch " , " " } ,
1999-10-27 09:31:52 +00:00
{ " -fdollars-in-identifiers " , " Allow the use of $ inside identifiers " } ,
1999-08-30 04:01:02 +00:00
{ " -fno-dollars-in-identifiers " , " " } ,
{ " -fshort-double " , " Use the same size for double as for float " } ,
{ " -fno-short-double " , " " } ,
{ " -fshort-enums " , " Use the smallest fitting integer to hold enums " } ,
{ " -fno-short-enums " , " " } ,
{ " -Wall " , " Enable most warning messages " } ,
{ " -Wbad-function-cast " ,
" Warn about casting functions to incompatible types " } ,
{ " -Wno-bad-function-cast " , " " } ,
1999-10-27 09:31:52 +00:00
{ " -Wmissing-noreturn " ,
" Warn about functions which might be candidates for attribute noreturn " } ,
{ " -Wno-missing-noreturn " , " " } ,
1999-08-30 04:01:02 +00:00
{ " -Wcast-qual " , " Warn about casts which discard qualifiers " } ,
{ " -Wno-cast-qual " , " " } ,
1999-10-27 09:31:52 +00:00
{ " -Wchar-subscripts " , " Warn about subscripts whose type is 'char' " } ,
1999-08-30 04:01:02 +00:00
{ " -Wno-char-subscripts " , " " } ,
{ " -Wcomment " , " Warn if nested comments are detected " } ,
1999-10-27 09:31:52 +00:00
{ " -Wno-comment " , " " } ,
{ " -Wcomments " , " Warn if nested comments are detected " } ,
{ " -Wno-comments " , " " } ,
1999-08-30 04:01:02 +00:00
{ " -Wconversion " , " Warn about possibly confusing type conversions " } ,
{ " -Wno-conversion " , " " } ,
{ " -Wformat " , " Warn about printf format anomalies " } ,
{ " -Wno-format " , " " } ,
{ " -Wimplicit-function-declaration " ,
" Warn about implicit function declarations " } ,
{ " -Wno-implicit-function-declaration " , " " } ,
{ " -Werror-implicit-function-declaration " , " " } ,
{ " -Wimplicit-int " , " Warn when a declaration does not specify a type " } ,
{ " -Wno-implicit-int " , " " } ,
{ " -Wimplicit " , " " } ,
{ " -Wno-implicit " , " " } ,
{ " -Wimport " , " Warn about the use of the #import directive " } ,
{ " -Wno-import " , " " } ,
{ " -Wlong-long " , " " } ,
{ " -Wno-long-long " , " Do not warn about using 'long long' when -pedantic " } ,
{ " -Wmain " , " Warn about suspicious declarations of main " } ,
{ " -Wno-main " , " " } ,
{ " -Wmissing-braces " ,
" Warn about possibly missing braces around initialisers " } ,
{ " -Wno-missing-braces " , " " } ,
{ " -Wmissing-declarations " ,
" Warn about global funcs without previous declarations " } ,
{ " -Wno-missing-declarations " , " " } ,
{ " -Wmissing-prototypes " , " Warn about global funcs without prototypes " } ,
{ " -Wno-missing-prototypes " , " " } ,
{ " -Wmultichar " , " Warn about use of multicharacter literals " } ,
{ " -Wno-multichar " , " " } ,
{ " -Wnested-externs " , " Warn about externs not at file scope level " } ,
{ " -Wno-nested-externs " , " " } ,
{ " -Wparentheses " , " Warn about possible missing parentheses " } ,
{ " -Wno-parentheses " , " " } ,
{ " -Wpointer-arith " , " Warn about function pointer arithmetic " } ,
{ " -Wno-pointer-arith " , " " } ,
{ " -Wredundant-decls " ,
" Warn about multiple declarations of the same object " } ,
{ " -Wno-redundant-decls " , " " } ,
{ " -Wsign-compare " , " Warn about signed/unsigned comparisons " } ,
{ " -Wno-sign-compare " , " " } ,
{ " -Wunknown-pragmas " , " Warn about unrecognised pragmas " } ,
{ " -Wno-unknown-pragmas " , " " } ,
{ " -Wstrict-prototypes " , " Warn about non-prototyped function decls " } ,
{ " -Wno-strict-prototypes " , " " } ,
1999-10-27 09:31:52 +00:00
{ " -Wtraditional " , " Warn about constructs whose meaning change in ANSI C " } ,
1999-08-30 04:01:02 +00:00
{ " -Wno-traditional " , " " } ,
{ " -Wtrigraphs " , " Warn when trigraphs are encountered " } ,
{ " -Wno-trigraphs " , " " } ,
{ " -Wundef " , " " } ,
{ " -Wno-undef " , " " } ,
{ " -Wwrite-strings " , " Mark strings as 'const char *' " } ,
{ " -Wno-write-strings " , " " } ,
/* These are for languages with USE_CPPLIB. */
/* These options are already documented in cpplib.c */
{ " --help " , " " } ,
{ " -A " , " " } ,
{ " -D " , " " } ,
{ " -I " , " " } ,
1999-10-27 09:31:52 +00:00
# if USE_CPPLIB
{ " -MD " , " Print dependencies to FILE.d " } ,
{ " -MMD " , " Print dependencies to FILE.d " } ,
{ " -M " , " Print dependencies to stdout " } ,
{ " -MM " , " Print dependencies to stdout " } ,
# endif /* USE_CPPLIB */
1999-08-30 04:01:02 +00:00
{ " -U " , " " } ,
1999-10-27 09:31:52 +00:00
{ " -H " , " " } ,
1999-08-30 04:01:02 +00:00
{ " -idirafter " , " " } ,
1999-10-27 09:31:52 +00:00
{ " -imacros " , " " } ,
{ " -include " , " " } ,
1999-08-30 04:01:02 +00:00
{ " -iprefix " , " " } ,
{ " -isystem " , " " } ,
1999-10-27 09:31:52 +00:00
{ " -iwithprefix " , " " } ,
{ " -iwithprefixbefore " , " " } ,
1999-08-30 04:01:02 +00:00
{ " -lang-c " , " " } ,
{ " -lang-c89 " , " " } ,
{ " -lang-c++ " , " " } ,
1999-10-27 09:31:52 +00:00
{ " -remap " , " " } ,
1999-08-30 04:01:02 +00:00
{ " -nostdinc " , " " } ,
{ " -nostdinc++ " , " " } ,
{ " -trigraphs " , " " } ,
{ " -undef " , " " } ,
# define DEFINE_LANG_NAME(NAME) { NULL, NAME },
/* These are for obj c. */
DEFINE_LANG_NAME ( " Objective C " )
{ " -lang-objc " , " " } ,
{ " -gen-decls " , " Dump decls to a .decl file " } ,
1999-10-27 09:31:52 +00:00
{ " -fgnu-runtime " , " Generate code for GNU runtime environment " } ,
1999-08-30 04:01:02 +00:00
{ " -fno-gnu-runtime " , " " } ,
{ " -fnext-runtime " , " Generate code for NeXT runtime environment " } ,
{ " -fno-next-runtime " , " " } ,
{ " -Wselector " , " Warn if a selector has multiple methods " } ,
{ " -Wno-selector " , " " } ,
{ " -Wprotocol " , " " } ,
{ " -Wno-protocol " , " Do not warn if inherited methods are unimplemented " } ,
{ " -print-objc-runtime-info " ,
" Generate C header of platform specific features " } ,
1996-09-18 05:35:50 +00:00
# include "options.h"
1999-08-30 04:01:02 +00:00
1996-09-18 05:35:50 +00:00
} ;
1999-08-30 04:01:02 +00:00
/* Here is a table, controlled by the tm.h file, listing each -m switch
and which bits in ` target_switches ' it should set or clear .
If VALUE is positive , it is bits to set .
If VALUE is negative , - VALUE is bits to clear .
( The sign bit is not used so there is no confusion . ) */
struct
{
1999-10-27 09:31:52 +00:00
const char * name ;
1999-08-30 04:01:02 +00:00
int value ;
1999-10-27 09:31:52 +00:00
const char * description ;
1999-08-30 04:01:02 +00:00
}
target_switches [ ] = TARGET_SWITCHES ;
/* This table is similar, but allows the switch to have a value. */
# ifdef TARGET_OPTIONS
struct
{
1999-10-27 09:31:52 +00:00
const char * prefix ;
const char * * variable ;
const char * description ;
1999-08-30 04:01:02 +00:00
}
target_options [ ] = TARGET_OPTIONS ;
# endif
1996-09-18 05:35:50 +00:00
/* Options controlling warnings */
/* Don't print warning messages. -w. */
int inhibit_warnings = 0 ;
/* Print various extra warnings. -W. */
int extra_warnings = 0 ;
/* Treat warnings as errors. -Werror. */
int warnings_are_errors = 0 ;
/* Nonzero to warn about unused local variables. */
int warn_unused ;
/* Nonzero to warn about variables used before they are initialized. */
int warn_uninitialized ;
/* Nonzero means warn about all declarations which shadow others. */
int warn_shadow ;
/* Warn if a switch on an enum fails to have a case for every enum value. */
int warn_switch ;
/* Nonzero means warn about function definitions that default the return type
or that use a null return and have a return - type other than void . */
int warn_return_type ;
/* Nonzero means warn about pointer casts that increase the required
alignment of the target type ( and might therefore lead to a crash
due to a misaligned access ) . */
int warn_cast_align ;
/* Nonzero means warn about any identifiers that match in the first N
characters . The value N is in ` id_clash_len ' . */
int warn_id_clash ;
unsigned id_clash_len ;
/* Nonzero means warn about any objects definitions whose size is larger
than N bytes . Also want about function definitions whose returned
values are larger than N bytes . The value N is in ` larger_than_size ' . */
int warn_larger_than ;
unsigned larger_than_size ;
/* Nonzero means warn if inline function is too large. */
int warn_inline ;
/* Warn if a function returns an aggregate,
since there are often incompatible calling conventions for doing this . */
int warn_aggregate_return ;
/* Likewise for -W. */
1999-08-30 04:01:02 +00:00
lang_independent_options W_options [ ] =
1996-09-18 05:35:50 +00:00
{
1999-08-30 04:01:02 +00:00
{ " unused " , & warn_unused , 1 , " Warn when a variable is unused " } ,
{ " error " , & warnings_are_errors , 1 , " " } ,
{ " shadow " , & warn_shadow , 1 , " Warn when one local variable shadows another " } ,
{ " switch " , & warn_switch , 1 ,
" Warn about enumerated switches missing a specific case " } ,
{ " aggregate-return " , & warn_aggregate_return , 1 ,
" Warn about returning structures, unions or arrays " } ,
{ " cast-align " , & warn_cast_align , 1 ,
" Warn about pointer casts which increase alignment " } ,
{ " uninitialized " , & warn_uninitialized , 1 ,
" Warn about unitialized automatic variables " } ,
{ " inline " , & warn_inline , 1 ,
" Warn when an inlined function cannot be inlined " }
1996-09-18 05:35:50 +00:00
} ;
/* Output files for assembler code (real compiler output)
and debugging dumps . */
FILE * asm_out_file ;
FILE * aux_info_file ;
1999-08-30 04:01:02 +00:00
FILE * rtl_dump_file = NULL ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
/* Decode the string P as an integral parameter.
If the string is indeed an integer return its numeric value else
issue an Invalid Option error for the option PNAME and return DEFVAL .
If PNAME is zero just return DEFVAL , do not call error . */
int
read_integral_parameter ( p , pname , defval )
const char * p ;
const char * pname ;
const int defval ;
{
const char * endp = p ;
while ( * endp )
{
if ( * endp > = ' 0 ' & & * endp < = ' 9 ' )
endp + + ;
else
break ;
}
if ( * endp ! = 0 )
{
if ( pname ! = 0 )
error ( " Invalid option `%s' " , pname ) ;
return defval ;
}
return atoi ( p ) ;
}
1996-09-18 05:35:50 +00:00
/* Time accumulators, to count the total time spent in various passes. */
int parse_time ;
int varconst_time ;
int integration_time ;
int jump_time ;
int cse_time ;
1999-08-30 04:01:02 +00:00
int gcse_time ;
1996-09-18 05:35:50 +00:00
int loop_time ;
int cse2_time ;
1999-08-30 04:01:02 +00:00
int branch_prob_time ;
1996-09-18 05:35:50 +00:00
int flow_time ;
int combine_time ;
1999-08-30 04:01:02 +00:00
int regmove_time ;
1996-09-18 05:35:50 +00:00
int sched_time ;
int local_alloc_time ;
int global_alloc_time ;
1999-10-27 09:31:52 +00:00
int flow2_time ;
1996-09-18 05:35:50 +00:00
int sched2_time ;
1999-08-30 04:01:02 +00:00
# ifdef DELAY_SLOTS
1996-09-18 05:35:50 +00:00
int dbr_sched_time ;
1999-08-30 04:01:02 +00:00
# endif
1996-09-18 05:35:50 +00:00
int shorten_branch_time ;
int stack_reg_time ;
int final_time ;
int symout_time ;
int dump_time ;
/* Return time used so far, in microseconds. */
1999-10-27 09:31:52 +00:00
long
1996-09-18 05:35:50 +00:00
get_run_time ( )
{
if ( quiet_flag )
return 0 ;
1999-08-30 04:01:02 +00:00
# ifdef __BEOS__
return 0 ;
# else /* not BeOS */
1999-10-27 09:31:52 +00:00
# if defined (_WIN32) && !defined (__CYGWIN__)
1996-09-18 05:35:50 +00:00
if ( clock ( ) < 0 )
return 0 ;
else
return ( clock ( ) * 1000 ) ;
# else /* not _WIN32 */
1999-08-30 04:01:02 +00:00
# ifdef _SC_CLK_TCK
{
static int tick ;
struct tms tms ;
if ( tick = = 0 )
tick = 1000000 / sysconf ( _SC_CLK_TCK ) ;
times ( & tms ) ;
return ( tms . tms_utime + tms . tms_stime ) * tick ;
}
# else
1996-09-18 05:35:50 +00:00
# ifdef USG
1999-08-30 04:01:02 +00:00
{
struct tms tms ;
# if HAVE_SYSCONF && defined _SC_CLK_TCK
# define TICKS_PER_SECOND sysconf (_SC_CLK_TCK) /* POSIX 1003.1-1996 */
# else
# ifdef CLK_TCK
# define TICKS_PER_SECOND CLK_TCK /* POSIX 1003.1-1988; obsolescent */
# else
# define TICKS_PER_SECOND HZ /* traditional UNIX */
# endif
# endif
times ( & tms ) ;
return ( tms . tms_utime + tms . tms_stime ) * ( 1000000 / TICKS_PER_SECOND ) ;
}
1996-09-18 05:35:50 +00:00
# else
# ifndef VMS
1999-08-30 04:01:02 +00:00
{
struct rusage rusage ;
getrusage ( 0 , & rusage ) ;
return ( rusage . ru_utime . tv_sec * 1000000 + rusage . ru_utime . tv_usec
+ rusage . ru_stime . tv_sec * 1000000 + rusage . ru_stime . tv_usec ) ;
}
1996-09-18 05:35:50 +00:00
# else /* VMS */
1999-08-30 04:01:02 +00:00
{
struct
{
int proc_user_time ;
int proc_system_time ;
int child_user_time ;
int child_system_time ;
} vms_times ;
times ( ( void * ) & vms_times ) ;
return ( vms_times . proc_user_time + vms_times . proc_system_time ) * 10000 ;
}
# endif /* VMS */
# endif /* USG */
# endif /* _SC_CLK_TCK */
# endif /* _WIN32 */
# endif /* __BEOS__ */
1996-09-18 05:35:50 +00:00
}
# define TIMEVAR(VAR, BODY) \
do { int otime = get_run_time ( ) ; BODY ; VAR + = get_run_time ( ) - otime ; } while ( 0 )
void
print_time ( str , total )
1999-10-27 09:31:52 +00:00
const char * str ;
1996-09-18 05:35:50 +00:00
int total ;
{
fprintf ( stderr ,
" time in %s: %d.%06d \n " ,
str , total / 1000000 , total % 1000000 ) ;
}
/* Count an error or warning. Return 1 if the message should be printed. */
int
count_error ( warningp )
int warningp ;
{
if ( warningp & & inhibit_warnings )
return 0 ;
if ( warningp & & ! warnings_are_errors )
warningcount + + ;
else
{
static int warning_message = 0 ;
if ( warningp & & ! warning_message )
{
1999-10-27 09:31:52 +00:00
notice ( " %s: warnings being treated as errors \n " , progname ) ;
1996-09-18 05:35:50 +00:00
warning_message = 1 ;
}
errorcount + + ;
}
return 1 ;
}
/* Print a fatal error message. NAME is the text.
Also include a system error message based on ` errno ' . */
void
pfatal_with_name ( name )
1999-10-27 09:31:52 +00:00
const char * name ;
1996-09-18 05:35:50 +00:00
{
fprintf ( stderr , " %s: " , progname ) ;
perror ( name ) ;
exit ( FATAL_EXIT_CODE ) ;
}
void
fatal_io_error ( name )
1999-10-27 09:31:52 +00:00
const char * name ;
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
notice ( " %s: %s: I/O error \n " , progname , name ) ;
1996-09-18 05:35:50 +00:00
exit ( FATAL_EXIT_CODE ) ;
}
/* Called to give a better error message for a bad insn rather than
just calling abort ( ) . */
void
1999-10-27 09:31:52 +00:00
fatal_insn VPROTO ( ( const char * msgid , rtx insn , . . . ) )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
const char * msgid ;
rtx insn ;
# endif
va_list ap ;
VA_START ( ap , insn ) ;
# ifndef ANSI_PROTOTYPES
msgid = va_arg ( ap , const char * ) ;
insn = va_arg ( ap , rtx ) ;
# endif
verror ( msgid , ap ) ;
1999-08-30 04:01:02 +00:00
debug_rtx ( insn ) ;
1999-10-27 09:31:52 +00:00
exit ( FATAL_EXIT_CODE ) ;
1996-09-18 05:35:50 +00:00
}
/* Called to give a better error message when we don't have an insn to match
what we are looking for or if the insn ' s constraints aren ' t satisfied ,
rather than just calling abort ( ) . */
void
fatal_insn_not_found ( insn )
rtx insn ;
{
if ( INSN_CODE ( insn ) < 0 )
fatal_insn ( " internal error--unrecognizable insn: " , insn ) ;
else
fatal_insn ( " internal error--insn does not satisfy its constraints: " , insn ) ;
}
/* This is the default decl_printable_name function. */
static char *
1999-08-30 04:01:02 +00:00
decl_name ( decl , verbosity )
1996-09-18 05:35:50 +00:00
tree decl ;
1999-10-27 09:31:52 +00:00
int verbosity ATTRIBUTE_UNUSED ;
1996-09-18 05:35:50 +00:00
{
return IDENTIFIER_POINTER ( DECL_NAME ( decl ) ) ;
}
static int need_error_newline ;
/* Function of last error message;
more generally , function such that if next error message is in it
then we don ' t have to mention the function name . */
static tree last_error_function = NULL ;
/* Used to detect when input_file_stack has changed since last described. */
static int last_error_tick ;
/* Called when the start of a function definition is parsed,
this function prints on stderr the name of the function . */
void
announce_function ( decl )
tree decl ;
{
if ( ! quiet_flag )
{
if ( rtl_dump_and_exit )
fprintf ( stderr , " %s " , IDENTIFIER_POINTER ( DECL_NAME ( decl ) ) ) ;
else
1999-08-30 04:01:02 +00:00
fprintf ( stderr , " %s " , ( * decl_printable_name ) ( decl , 2 ) ) ;
1996-09-18 05:35:50 +00:00
fflush ( stderr ) ;
need_error_newline = 1 ;
last_error_function = current_function_decl ;
}
}
/* The default function to print out name of current function that caused
an error . */
void
default_print_error_function ( file )
1999-10-27 09:31:52 +00:00
const char * file ;
1996-09-18 05:35:50 +00:00
{
if ( last_error_function ! = current_function_decl )
{
if ( file )
fprintf ( stderr , " %s: " , file ) ;
if ( current_function_decl = = NULL )
1999-10-27 09:31:52 +00:00
notice ( " At top level: \n " ) ;
1996-09-18 05:35:50 +00:00
else
1999-10-27 09:31:52 +00:00
notice ( ( TREE_CODE ( TREE_TYPE ( current_function_decl ) ) = = METHOD_TYPE
? " In method `%s': \n "
: " In function `%s': \n " ) ,
( * decl_printable_name ) ( current_function_decl , 2 ) ) ;
1996-09-18 05:35:50 +00:00
last_error_function = current_function_decl ;
}
}
/* Called by report_error_function to print out function name.
1999-08-30 04:01:02 +00:00
* Default may be overridden by language front - ends . */
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
void ( * print_error_function ) PROTO ( ( const char * ) ) =
default_print_error_function ;
1996-09-18 05:35:50 +00:00
/* Prints out, if necessary, the name of the current function
1999-10-27 09:31:52 +00:00
that caused an error . Called from all error and warning functions .
We ignore the FILE parameter , as it cannot be relied upon . */
1996-09-18 05:35:50 +00:00
void
report_error_function ( file )
1999-10-27 09:31:52 +00:00
const char * file ATTRIBUTE_UNUSED ;
1996-09-18 05:35:50 +00:00
{
struct file_stack * p ;
if ( need_error_newline )
{
fprintf ( stderr , " \n " ) ;
need_error_newline = 0 ;
}
if ( input_file_stack & & input_file_stack - > next ! = 0
1999-10-27 09:31:52 +00:00
& & input_file_stack_tick ! = last_error_tick )
1996-09-18 05:35:50 +00:00
{
for ( p = input_file_stack - > next ; p ; p = p - > next )
1999-10-27 09:31:52 +00:00
notice ( ( p = = input_file_stack - > next
? " In file included from %s:%d "
: " , \n from %s:%d " ) ,
p - > name , p - > line ) ;
1996-09-18 05:35:50 +00:00
fprintf ( stderr , " : \n " ) ;
last_error_tick = input_file_stack_tick ;
}
1999-10-27 09:31:52 +00:00
( * print_error_function ) ( input_filename ) ;
1996-09-18 05:35:50 +00:00
}
/* Print a message. */
static void
1999-10-27 09:31:52 +00:00
vnotice ( file , msgid , ap )
FILE * file ;
char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
1999-10-27 09:31:52 +00:00
vfprintf ( file , _ ( msgid ) , ap ) ;
}
void
notice VPROTO ( ( const char * msgid , . . . ) )
{
# ifndef ANSI_PROTOTYPES
char * msgid ;
# endif
va_list ap ;
VA_START ( ap , msgid ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
msgid = va_arg ( ap , char * ) ;
# endif
vnotice ( stderr , msgid , ap ) ;
va_end ( ap ) ;
1996-09-18 05:35:50 +00:00
}
1999-10-27 09:31:52 +00:00
void
fnotice VPROTO ( ( FILE * file , const char * msgid , . . . ) )
{
# ifndef ANSI_PROTOTYPES
FILE * file ;
const char * msgid ;
# endif
va_list ap ;
VA_START ( ap , msgid ) ;
# ifndef ANSI_PROTOTYPES
file = va_arg ( ap , FILE * ) ;
msgid = va_arg ( ap , const char * ) ;
# endif
vnotice ( file , msgid , ap ) ;
va_end ( ap ) ;
}
/* Report FILE and LINE (or program name), and optionally just WARN. */
1996-09-18 05:35:50 +00:00
static void
1999-10-27 09:31:52 +00:00
report_file_and_line ( file , line , warn )
1996-09-18 05:35:50 +00:00
char * file ;
int line ;
1999-10-27 09:31:52 +00:00
int warn ;
1996-09-18 05:35:50 +00:00
{
if ( file )
fprintf ( stderr , " %s:%d: " , file , line ) ;
else
fprintf ( stderr , " %s: " , progname ) ;
1999-10-27 09:31:52 +00:00
if ( warn )
notice ( " warning: " ) ;
}
/* Print a message. */
static void
vmessage ( prefix , msgid , ap )
const char * prefix ;
const char * msgid ;
va_list ap ;
{
if ( prefix )
fprintf ( stderr , " %s: " , prefix ) ;
vfprintf ( stderr , msgid , ap ) ;
}
/* Print a message relevant to line LINE of file FILE. */
static void
v_message_with_file_and_line ( file , line , warn , msgid , ap )
const char * file ;
int line ;
int warn ;
const char * msgid ;
va_list ap ;
{
report_file_and_line ( file , line , warn ) ;
vnotice ( stderr , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
fputc ( ' \n ' , stderr ) ;
}
/* Print a message relevant to the given DECL. */
static void
1999-10-27 09:31:52 +00:00
v_message_with_decl ( decl , warn , msgid , ap )
1996-09-18 05:35:50 +00:00
tree decl ;
1999-10-27 09:31:52 +00:00
int warn ;
const char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
1999-10-27 09:31:52 +00:00
const char * p ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
report_file_and_line ( DECL_SOURCE_FILE ( decl ) ,
DECL_SOURCE_LINE ( decl ) , warn ) ;
1996-09-18 05:35:50 +00:00
/* Do magic to get around lack of varargs support for insertion
of arguments into existing list . We know that the decl is first ;
we ass_u_me that it will be printed with " %s " . */
1999-10-27 09:31:52 +00:00
for ( p = _ ( msgid ) ; * p ; + + p )
1996-09-18 05:35:50 +00:00
{
if ( * p = = ' % ' )
{
if ( * ( p + 1 ) = = ' % ' )
+ + p ;
1999-10-27 09:31:52 +00:00
else if ( * ( p + 1 ) ! = ' s ' )
abort ( ) ;
1996-09-18 05:35:50 +00:00
else
break ;
}
}
1999-10-27 09:31:52 +00:00
if ( p > _ ( msgid ) ) /* Print the left-hand substring. */
1996-09-18 05:35:50 +00:00
{
char fmt [ sizeof " %.255s " ] ;
1999-10-27 09:31:52 +00:00
long width = p - _ ( msgid ) ;
1996-09-18 05:35:50 +00:00
if ( width > 255L ) width = 255L ; /* arbitrary */
sprintf ( fmt , " %%.%lds " , width ) ;
1999-10-27 09:31:52 +00:00
fprintf ( stderr , fmt , _ ( msgid ) ) ;
1996-09-18 05:35:50 +00:00
}
if ( * p = = ' % ' ) /* Print the name. */
{
1999-10-27 09:31:52 +00:00
const char * n = ( DECL_NAME ( decl )
1999-08-30 04:01:02 +00:00
? ( * decl_printable_name ) ( decl , 2 )
1996-09-18 05:35:50 +00:00
: " ((anonymous)) " ) ;
fputs ( n , stderr ) ;
while ( * p )
{
+ + p ;
1999-08-30 04:01:02 +00:00
if ( ISALPHA ( * ( p - 1 ) & 0xFF ) )
1996-09-18 05:35:50 +00:00
break ;
}
}
if ( * p ) /* Print the rest of the message. */
vmessage ( ( char * ) NULL , p , ap ) ;
fputc ( ' \n ' , stderr ) ;
}
/* Figure file and line of the given INSN. */
static void
file_and_line_for_asm ( insn , pfile , pline )
rtx insn ;
char * * pfile ;
int * pline ;
{
rtx body = PATTERN ( insn ) ;
rtx asmop ;
/* Find the (or one of the) ASM_OPERANDS in the insn. */
if ( GET_CODE ( body ) = = SET & & GET_CODE ( SET_SRC ( body ) ) = = ASM_OPERANDS )
asmop = SET_SRC ( body ) ;
else if ( GET_CODE ( body ) = = ASM_OPERANDS )
asmop = body ;
else if ( GET_CODE ( body ) = = PARALLEL
& & GET_CODE ( XVECEXP ( body , 0 , 0 ) ) = = SET )
asmop = SET_SRC ( XVECEXP ( body , 0 , 0 ) ) ;
else if ( GET_CODE ( body ) = = PARALLEL
& & GET_CODE ( XVECEXP ( body , 0 , 0 ) ) = = ASM_OPERANDS )
asmop = XVECEXP ( body , 0 , 0 ) ;
else
asmop = NULL ;
if ( asmop )
{
* pfile = ASM_OPERANDS_SOURCE_FILE ( asmop ) ;
* pline = ASM_OPERANDS_SOURCE_LINE ( asmop ) ;
}
else
{
* pfile = input_filename ;
* pline = lineno ;
}
}
/* Report an error at line LINE of file FILE. */
static void
1999-10-27 09:31:52 +00:00
v_error_with_file_and_line ( file , line , msgid , ap )
const char * file ;
1996-09-18 05:35:50 +00:00
int line ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
count_error ( 0 ) ;
report_error_function ( file ) ;
1999-10-27 09:31:52 +00:00
v_message_with_file_and_line ( file , line , 0 , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
}
void
1999-10-27 09:31:52 +00:00
error_with_file_and_line VPROTO ( ( const char * file , int line ,
const char * msgid , . . . ) )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
const char * file ;
1996-09-18 05:35:50 +00:00
int line ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
# endif
va_list ap ;
1999-10-27 09:31:52 +00:00
VA_START ( ap , msgid ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
file = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
line = va_arg ( ap , int ) ;
1999-10-27 09:31:52 +00:00
msgid = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
v_error_with_file_and_line ( file , line , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
va_end ( ap ) ;
}
/* Report an error at the declaration DECL.
1999-10-27 09:31:52 +00:00
MSGID is a format string which uses % s to substitute the declaration
1996-09-18 05:35:50 +00:00
name ; subsequent substitutions are a la printf . */
static void
1999-10-27 09:31:52 +00:00
v_error_with_decl ( decl , msgid , ap )
1996-09-18 05:35:50 +00:00
tree decl ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
count_error ( 0 ) ;
report_error_function ( DECL_SOURCE_FILE ( decl ) ) ;
1999-10-27 09:31:52 +00:00
v_message_with_decl ( decl , 0 , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
}
void
1999-10-27 09:31:52 +00:00
error_with_decl VPROTO ( ( tree decl , const char * msgid , . . . ) )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
1996-09-18 05:35:50 +00:00
tree decl ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
# endif
va_list ap ;
1999-10-27 09:31:52 +00:00
VA_START ( ap , msgid ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
1996-09-18 05:35:50 +00:00
decl = va_arg ( ap , tree ) ;
1999-10-27 09:31:52 +00:00
msgid = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
v_error_with_decl ( decl , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
va_end ( ap ) ;
}
/* Report an error at the line number of the insn INSN.
This is used only when INSN is an ` asm ' with operands ,
and each ASM_OPERANDS records its own source file and line . */
static void
1999-10-27 09:31:52 +00:00
v_error_for_asm ( insn , msgid , ap )
1996-09-18 05:35:50 +00:00
rtx insn ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
char * file ;
int line ;
count_error ( 0 ) ;
file_and_line_for_asm ( insn , & file , & line ) ;
report_error_function ( file ) ;
1999-10-27 09:31:52 +00:00
v_message_with_file_and_line ( file , line , 0 , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
}
void
1999-10-27 09:31:52 +00:00
error_for_asm VPROTO ( ( rtx insn , const char * msgid , . . . ) )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
1996-09-18 05:35:50 +00:00
rtx insn ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
# endif
va_list ap ;
1999-10-27 09:31:52 +00:00
VA_START ( ap , msgid ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
1996-09-18 05:35:50 +00:00
insn = va_arg ( ap , rtx ) ;
1999-10-27 09:31:52 +00:00
msgid = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
v_error_for_asm ( insn , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
va_end ( ap ) ;
}
/* Report an error at the current line number. */
static void
1999-10-27 09:31:52 +00:00
verror ( msgid , ap )
const char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
1999-10-27 09:31:52 +00:00
v_error_with_file_and_line ( input_filename , lineno , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
}
void
1999-10-27 09:31:52 +00:00
error VPROTO ( ( const char * msgid , . . . ) )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
const char * msgid ;
1996-09-18 05:35:50 +00:00
# endif
va_list ap ;
1999-10-27 09:31:52 +00:00
VA_START ( ap , msgid ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
msgid = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
verror ( msgid , ap ) ;
1996-09-18 05:35:50 +00:00
va_end ( ap ) ;
}
/* Report a fatal error at the current line number. */
static void
1999-10-27 09:31:52 +00:00
vfatal ( msgid , ap )
const char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
1999-10-27 09:31:52 +00:00
verror ( msgid , ap ) ;
1996-09-18 05:35:50 +00:00
exit ( FATAL_EXIT_CODE ) ;
}
void
1999-10-27 09:31:52 +00:00
fatal VPROTO ( ( const char * msgid , . . . ) )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
const char * msgid ;
1996-09-18 05:35:50 +00:00
# endif
va_list ap ;
1999-10-27 09:31:52 +00:00
VA_START ( ap , msgid ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
msgid = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
vfatal ( msgid , ap ) ;
1996-09-18 05:35:50 +00:00
va_end ( ap ) ;
}
/* Report a warning at line LINE of file FILE. */
static void
1999-10-27 09:31:52 +00:00
v_warning_with_file_and_line ( file , line , msgid , ap )
const char * file ;
1996-09-18 05:35:50 +00:00
int line ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
if ( count_error ( 1 ) )
{
report_error_function ( file ) ;
1999-10-27 09:31:52 +00:00
v_message_with_file_and_line ( file , line , 1 , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
}
}
void
1999-10-27 09:31:52 +00:00
warning_with_file_and_line VPROTO ( ( const char * file , int line ,
const char * msgid , . . . ) )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
const char * file ;
1996-09-18 05:35:50 +00:00
int line ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
# endif
va_list ap ;
1999-10-27 09:31:52 +00:00
VA_START ( ap , msgid ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
file = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
line = va_arg ( ap , int ) ;
1999-10-27 09:31:52 +00:00
msgid = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
v_warning_with_file_and_line ( file , line , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
va_end ( ap ) ;
}
/* Report a warning at the declaration DECL.
1999-10-27 09:31:52 +00:00
MSGID is a format string which uses % s to substitute the declaration
1996-09-18 05:35:50 +00:00
name ; subsequent substitutions are a la printf . */
static void
1999-10-27 09:31:52 +00:00
v_warning_with_decl ( decl , msgid , ap )
1996-09-18 05:35:50 +00:00
tree decl ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
if ( count_error ( 1 ) )
{
report_error_function ( DECL_SOURCE_FILE ( decl ) ) ;
1999-10-27 09:31:52 +00:00
v_message_with_decl ( decl , 1 , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
}
}
void
1999-10-27 09:31:52 +00:00
warning_with_decl VPROTO ( ( tree decl , const char * msgid , . . . ) )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
1996-09-18 05:35:50 +00:00
tree decl ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
# endif
va_list ap ;
1999-10-27 09:31:52 +00:00
VA_START ( ap , msgid ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
1996-09-18 05:35:50 +00:00
decl = va_arg ( ap , tree ) ;
1999-10-27 09:31:52 +00:00
msgid = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
v_warning_with_decl ( decl , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
va_end ( ap ) ;
}
/* Report a warning at the line number of the insn INSN.
This is used only when INSN is an ` asm ' with operands ,
and each ASM_OPERANDS records its own source file and line . */
static void
1999-10-27 09:31:52 +00:00
v_warning_for_asm ( insn , msgid , ap )
1996-09-18 05:35:50 +00:00
rtx insn ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
if ( count_error ( 1 ) )
{
char * file ;
int line ;
file_and_line_for_asm ( insn , & file , & line ) ;
report_error_function ( file ) ;
1999-10-27 09:31:52 +00:00
v_message_with_file_and_line ( file , line , 1 , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
}
}
void
1999-10-27 09:31:52 +00:00
warning_for_asm VPROTO ( ( rtx insn , const char * msgid , . . . ) )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
1996-09-18 05:35:50 +00:00
rtx insn ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
# endif
va_list ap ;
1999-10-27 09:31:52 +00:00
VA_START ( ap , msgid ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
1996-09-18 05:35:50 +00:00
insn = va_arg ( ap , rtx ) ;
1999-10-27 09:31:52 +00:00
msgid = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
v_warning_for_asm ( insn , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
va_end ( ap ) ;
}
/* Report a warning at the current line number. */
static void
1999-10-27 09:31:52 +00:00
vwarning ( msgid , ap )
const char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
1999-10-27 09:31:52 +00:00
v_warning_with_file_and_line ( input_filename , lineno , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
}
void
1999-10-27 09:31:52 +00:00
warning VPROTO ( ( const char * msgid , . . . ) )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
const char * msgid ;
1996-09-18 05:35:50 +00:00
# endif
va_list ap ;
1999-10-27 09:31:52 +00:00
VA_START ( ap , msgid ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
msgid = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
vwarning ( msgid , ap ) ;
1996-09-18 05:35:50 +00:00
va_end ( ap ) ;
}
/* These functions issue either warnings or errors depending on
- pedantic - errors . */
static void
1999-10-27 09:31:52 +00:00
vpedwarn ( msgid , ap )
const char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
if ( flag_pedantic_errors )
1999-10-27 09:31:52 +00:00
verror ( msgid , ap ) ;
1996-09-18 05:35:50 +00:00
else
1999-10-27 09:31:52 +00:00
vwarning ( msgid , ap ) ;
1996-09-18 05:35:50 +00:00
}
void
1999-10-27 09:31:52 +00:00
pedwarn VPROTO ( ( const char * msgid , . . . ) )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
const char * msgid ;
1996-09-18 05:35:50 +00:00
# endif
va_list ap ;
1999-10-27 09:31:52 +00:00
VA_START ( ap , msgid ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
msgid = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
vpedwarn ( msgid , ap ) ;
1996-09-18 05:35:50 +00:00
va_end ( ap ) ;
}
static void
1999-10-27 09:31:52 +00:00
v_pedwarn_with_decl ( decl , msgid , ap )
1996-09-18 05:35:50 +00:00
tree decl ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
/* We don't want -pedantic-errors to cause the compilation to fail from
" errors " in system header files . Sometimes fixincludes can ' t fix what ' s
broken ( eg : unsigned char bitfields - fixing it may change the alignment
which will cause programs to mysteriously fail because the C library
or kernel uses the original layout ) . There ' s no point in issuing a
warning either , it ' s just unnecessary noise . */
if ( ! DECL_IN_SYSTEM_HEADER ( decl ) )
{
if ( flag_pedantic_errors )
1999-10-27 09:31:52 +00:00
v_error_with_decl ( decl , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
else
1999-10-27 09:31:52 +00:00
v_warning_with_decl ( decl , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
}
}
void
1999-10-27 09:31:52 +00:00
pedwarn_with_decl VPROTO ( ( tree decl , const char * msgid , . . . ) )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
1996-09-18 05:35:50 +00:00
tree decl ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
# endif
va_list ap ;
1999-10-27 09:31:52 +00:00
VA_START ( ap , msgid ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
1996-09-18 05:35:50 +00:00
decl = va_arg ( ap , tree ) ;
1999-10-27 09:31:52 +00:00
msgid = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
v_pedwarn_with_decl ( decl , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
va_end ( ap ) ;
}
static void
1999-10-27 09:31:52 +00:00
v_pedwarn_with_file_and_line ( file , line , msgid , ap )
const char * file ;
1996-09-18 05:35:50 +00:00
int line ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
if ( flag_pedantic_errors )
1999-10-27 09:31:52 +00:00
v_error_with_file_and_line ( file , line , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
else
1999-10-27 09:31:52 +00:00
v_warning_with_file_and_line ( file , line , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
}
void
1999-10-27 09:31:52 +00:00
pedwarn_with_file_and_line VPROTO ( ( const char * file , int line ,
const char * msgid , . . . ) )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
const char * file ;
1996-09-18 05:35:50 +00:00
int line ;
1999-10-27 09:31:52 +00:00
const char * msgid ;
1996-09-18 05:35:50 +00:00
# endif
va_list ap ;
1999-10-27 09:31:52 +00:00
VA_START ( ap , msgid ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
file = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
line = va_arg ( ap , int ) ;
1999-10-27 09:31:52 +00:00
msgid = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
v_pedwarn_with_file_and_line ( file , line , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
va_end ( ap ) ;
}
/* Apologize for not implementing some feature. */
static void
1999-10-27 09:31:52 +00:00
vsorry ( msgid , ap )
const char * msgid ;
1996-09-18 05:35:50 +00:00
va_list ap ;
{
sorrycount + + ;
if ( input_filename )
fprintf ( stderr , " %s:%d: " , input_filename , lineno ) ;
else
fprintf ( stderr , " %s: " , progname ) ;
1999-10-27 09:31:52 +00:00
notice ( " sorry, not implemented: " ) ;
vnotice ( stderr , msgid , ap ) ;
1996-09-18 05:35:50 +00:00
fputc ( ' \n ' , stderr ) ;
}
void
1999-10-27 09:31:52 +00:00
sorry VPROTO ( ( const char * msgid , . . . ) )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
const char * msgid ;
1996-09-18 05:35:50 +00:00
# endif
va_list ap ;
1999-10-27 09:31:52 +00:00
VA_START ( ap , msgid ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifndef ANSI_PROTOTYPES
msgid = va_arg ( ap , const char * ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
vsorry ( msgid , ap ) ;
1996-09-18 05:35:50 +00:00
va_end ( ap ) ;
}
1999-10-27 09:31:52 +00:00
/* Given a partial pathname as input, return another pathname that shares
no elements with the pathname of __FILE__ . This is used by abort ( ) to
print ` Internal compiler error in expr . c ' instead of ` Internal compiler
error in . . / . . / egcs / gcc / expr . c ' . */
const char *
trim_filename ( name )
const char * name ;
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
static const char * this_file = __FILE__ ;
const char * p = name , * q = this_file ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
while ( * p = = * q & & * p ! = 0 & & * q ! = 0 ) p + + , q + + ;
while ( p > name & & p [ - 1 ] ! = DIR_SEPARATOR
# ifdef DIR_SEPARATOR_2
& & p [ - 1 ] ! = DIR_SEPARATOR_2
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
)
p - - ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
return p ;
1996-09-18 05:35:50 +00:00
}
1999-10-27 09:31:52 +00:00
1996-09-18 05:35:50 +00:00
/* More 'friendly' abort that prints the line and file.
config . h can # define abort fancy_abort if you like that sort of thing .
I don ' t think this is actually a good idea .
Other sorts of crashes will look a certain way .
It is a good thing if crashes from calling abort look the same way .
- - RMS */
void
fancy_abort ( )
{
fatal ( " internal gcc abort " ) ;
}
/* This calls abort and is used to avoid problems when abort if a macro.
It is used when we need to pass the address of abort . */
void
do_abort ( )
{
abort ( ) ;
}
/* When `malloc.c' is compiled with `rcheck' defined,
it calls this function to report clobberage . */
void
botch ( s )
1999-10-27 09:31:52 +00:00
const char * s ATTRIBUTE_UNUSED ;
1996-09-18 05:35:50 +00:00
{
abort ( ) ;
}
/* Same as `malloc' but report error if no memory available. */
1999-10-27 09:31:52 +00:00
PTR
1996-09-18 05:35:50 +00:00
xmalloc ( size )
1999-10-27 09:31:52 +00:00
size_t size ;
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
register PTR value ;
1999-08-30 04:01:02 +00:00
if ( size = = 0 )
size = 1 ;
1999-10-27 09:31:52 +00:00
value = ( PTR ) malloc ( size ) ;
1999-08-30 04:01:02 +00:00
if ( value = = 0 )
fatal ( " virtual memory exhausted " ) ;
return value ;
}
/* Same as `calloc' but report error if no memory available. */
1999-10-27 09:31:52 +00:00
PTR
1999-08-30 04:01:02 +00:00
xcalloc ( size1 , size2 )
1999-10-27 09:31:52 +00:00
size_t size1 , size2 ;
1999-08-30 04:01:02 +00:00
{
1999-10-27 09:31:52 +00:00
register PTR value ;
1999-08-30 04:01:02 +00:00
if ( size1 = = 0 | | size2 = = 0 )
size1 = size2 = 1 ;
1999-10-27 09:31:52 +00:00
value = ( PTR ) calloc ( size1 , size2 ) ;
1996-09-18 05:35:50 +00:00
if ( value = = 0 )
fatal ( " virtual memory exhausted " ) ;
return value ;
}
1999-08-30 04:01:02 +00:00
/* Same as `realloc' but report error if no memory available.
Also handle null PTR even if the vendor realloc gets it wrong . */
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
PTR
1996-09-18 05:35:50 +00:00
xrealloc ( ptr , size )
1999-10-27 09:31:52 +00:00
PTR ptr ;
size_t size ;
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
register PTR result ;
1999-08-30 04:01:02 +00:00
if ( size = = 0 )
size = 1 ;
1999-10-27 09:31:52 +00:00
result = ( ptr ? ( PTR ) realloc ( ptr , size ) : ( PTR ) malloc ( size ) ) ;
1999-08-30 04:01:02 +00:00
1996-09-18 05:35:50 +00:00
if ( ! result )
fatal ( " virtual memory exhausted " ) ;
1999-08-30 04:01:02 +00:00
return result ;
}
/* Same as `strdup' but report error if no memory available. */
char *
xstrdup ( s )
1999-10-27 09:31:52 +00:00
register const char * s ;
1999-08-30 04:01:02 +00:00
{
register char * result = ( char * ) malloc ( strlen ( s ) + 1 ) ;
if ( ! result )
fatal ( " virtual memory exhausted " ) ;
strcpy ( result , s ) ;
1996-09-18 05:35:50 +00:00
return result ;
}
/* Return the logarithm of X, base 2, considering X unsigned,
if X is a power of 2. Otherwise , returns - 1.
This should be used via the ` exact_log2 ' macro . */
int
exact_log2_wide ( x )
register unsigned HOST_WIDE_INT x ;
{
register int log = 0 ;
/* Test for 0 or a power of 2. */
if ( x = = 0 | | x ! = ( x & - x ) )
return - 1 ;
while ( ( x > > = 1 ) ! = 0 )
log + + ;
return log ;
}
/* Given X, an unsigned number, return the largest int Y such that 2**Y <= X.
If X is 0 , return - 1.
This should be used via the floor_log2 macro . */
int
floor_log2_wide ( x )
register unsigned HOST_WIDE_INT x ;
{
register int log = - 1 ;
while ( x ! = 0 )
log + + ,
x > > = 1 ;
return log ;
}
1999-08-30 04:01:02 +00:00
static int float_handler_set ;
1996-09-18 05:35:50 +00:00
int float_handled ;
jmp_buf float_handler ;
1999-08-30 04:01:02 +00:00
/* Signals actually come here. */
static void
float_signal ( signo )
/* If this is missing, some compilers complain. */
int signo ATTRIBUTE_UNUSED ;
{
if ( float_handled = = 0 )
abort ( ) ;
# if defined (USG) || defined (hpux)
signal ( SIGFPE , float_signal ) ; /* re-enable the signal catcher */
# endif
float_handled = 0 ;
signal ( SIGFPE , float_signal ) ;
longjmp ( float_handler , 1 ) ;
}
1996-09-18 05:35:50 +00:00
/* Specify where to longjmp to when a floating arithmetic error happens.
If HANDLER is 0 , it means don ' t handle the errors any more . */
void
set_float_handler ( handler )
jmp_buf handler ;
{
float_handled = ( handler ! = 0 ) ;
if ( handler )
bcopy ( ( char * ) handler , ( char * ) float_handler , sizeof ( float_handler ) ) ;
1999-08-30 04:01:02 +00:00
if ( float_handled & & ! float_handler_set )
{
signal ( SIGFPE , float_signal ) ;
float_handler_set = 1 ;
}
1996-09-18 05:35:50 +00:00
}
1999-10-27 09:31:52 +00:00
/* This is a wrapper function for code which might elicit an
arithmetic exception . That code should be passed in as a function
pointer FN , and one argument DATA . DATA is usually a struct which
contains the real input and output for function FN . This function
returns 0 ( failure ) if longjmp was called ( i . e . an exception
occured . ) It returns 1 ( success ) otherwise . */
int
do_float_handler ( fn , data )
void ( * fn ) PROTO ( ( PTR ) ) ;
PTR data ;
{
jmp_buf buf ;
if ( setjmp ( buf ) )
{
/* We got here via longjmp() caused by an exception in function fn() */
set_float_handler ( NULL ) ;
return 0 ;
}
set_float_handler ( buf ) ;
( * fn ) ( data ) ;
set_float_handler ( NULL ) ;
return 1 ;
}
1996-09-18 05:35:50 +00:00
/* Specify, in HANDLER, where to longjmp to when a floating arithmetic
error happens , pushing the previous specification into OLD_HANDLER .
Return an indication of whether there was a previous handler in effect . */
int
push_float_handler ( handler , old_handler )
jmp_buf handler , old_handler ;
{
int was_handled = float_handled ;
float_handled = 1 ;
if ( was_handled )
1999-10-27 09:31:52 +00:00
memcpy ( ( char * ) old_handler , ( char * ) float_handler ,
1996-09-18 05:35:50 +00:00
sizeof ( float_handler ) ) ;
1999-10-27 09:31:52 +00:00
memcpy ( ( char * ) float_handler , ( char * ) handler , sizeof ( float_handler ) ) ;
1996-09-18 05:35:50 +00:00
return was_handled ;
}
/* Restore the previous specification of whether and where to longjmp to
when a floating arithmetic error happens . */
void
pop_float_handler ( handled , handler )
int handled ;
jmp_buf handler ;
{
float_handled = handled ;
if ( handled )
bcopy ( ( char * ) handler , ( char * ) float_handler , sizeof ( float_handler ) ) ;
}
/* Handler for SIGPIPE. */
static void
pipe_closed ( signo )
/* If this is missing, some compilers complain. */
1999-08-30 04:01:02 +00:00
int signo ATTRIBUTE_UNUSED ;
1996-09-18 05:35:50 +00:00
{
fatal ( " output pipe has been closed " ) ;
}
/* Strip off a legitimate source ending from the input string NAME of
length LEN . Rather than having to know the names used by all of
1999-08-30 04:01:02 +00:00
our front ends , we strip off an ending of a period followed by
up to five characters . ( Java uses " .class " . ) */
1996-09-18 05:35:50 +00:00
void
strip_off_ending ( name , len )
char * name ;
int len ;
{
1999-08-30 04:01:02 +00:00
int i ;
for ( i = 2 ; i < 6 & & len > i ; i + + )
{
if ( name [ len - i ] = = ' . ' )
{
name [ len - i ] = ' \0 ' ;
break ;
}
}
1996-09-18 05:35:50 +00:00
}
/* Output a quoted string. */
1999-08-30 04:01:02 +00:00
1996-09-18 05:35:50 +00:00
void
output_quoted_string ( asm_file , string )
FILE * asm_file ;
1999-10-27 09:31:52 +00:00
const char * string ;
1996-09-18 05:35:50 +00:00
{
1999-08-30 04:01:02 +00:00
# ifdef OUTPUT_QUOTED_STRING
OUTPUT_QUOTED_STRING ( asm_file , string ) ;
# else
1996-09-18 05:35:50 +00:00
char c ;
putc ( ' \" ' , asm_file ) ;
while ( ( c = * string + + ) ! = 0 )
{
if ( c = = ' \" ' | | c = = ' \\ ' )
putc ( ' \\ ' , asm_file ) ;
putc ( c , asm_file ) ;
}
putc ( ' \" ' , asm_file ) ;
1999-08-30 04:01:02 +00:00
# endif
1996-09-18 05:35:50 +00:00
}
/* Output a file name in the form wanted by System V. */
void
output_file_directive ( asm_file , input_name )
FILE * asm_file ;
1999-10-27 09:31:52 +00:00
const char * input_name ;
1996-09-18 05:35:50 +00:00
{
int len = strlen ( input_name ) ;
1999-10-27 09:31:52 +00:00
const char * na = input_name + len ;
1996-09-18 05:35:50 +00:00
/* NA gets INPUT_NAME sans directory names. */
while ( na > input_name )
{
if ( na [ - 1 ] = = ' / ' )
break ;
1999-10-27 09:31:52 +00:00
# ifdef DIR_SEPARATOR
if ( na [ - 1 ] = = DIR_SEPARATOR )
break ;
# endif
1996-09-18 05:35:50 +00:00
na - - ;
}
# ifdef ASM_OUTPUT_MAIN_SOURCE_FILENAME
ASM_OUTPUT_MAIN_SOURCE_FILENAME ( asm_file , na ) ;
# else
# ifdef ASM_OUTPUT_SOURCE_FILENAME
ASM_OUTPUT_SOURCE_FILENAME ( asm_file , na ) ;
# else
fprintf ( asm_file , " \t .file \t " ) ;
output_quoted_string ( asm_file , na ) ;
fputc ( ' \n ' , asm_file ) ;
# endif
# endif
}
1999-10-27 09:31:52 +00:00
# ifdef ASM_IDENTIFY_LANGUAGE
1999-08-30 04:01:02 +00:00
/* Routine to build language identifier for object file. */
1996-09-18 05:35:50 +00:00
static void
output_lang_identify ( asm_out_file )
FILE * asm_out_file ;
{
int len = strlen ( lang_identify ( ) ) + sizeof ( " __gnu_compiled_ " ) + 1 ;
char * s = ( char * ) alloca ( len ) ;
sprintf ( s , " __gnu_compiled_%s " , lang_identify ( ) ) ;
ASM_OUTPUT_LABEL ( asm_out_file , s ) ;
}
1999-10-27 09:31:52 +00:00
# endif
1996-09-18 05:35:50 +00:00
/* Routine to open a dump file. */
1999-08-30 04:01:02 +00:00
static void
open_dump_file ( suffix , function_name )
1999-10-27 09:31:52 +00:00
const char * suffix ;
const char * function_name ;
1996-09-18 05:35:50 +00:00
{
1999-08-30 04:01:02 +00:00
char * dumpname ;
TIMEVAR
( dump_time ,
{
dumpname = ( char * ) xmalloc ( strlen ( dump_base_name ) + strlen ( suffix ) + 1 ) ;
if ( rtl_dump_file ! = NULL )
fclose ( rtl_dump_file ) ;
strcpy ( dumpname , dump_base_name ) ;
strcat ( dumpname , suffix ) ;
rtl_dump_file = fopen ( dumpname , " a " ) ;
if ( rtl_dump_file = = NULL )
pfatal_with_name ( dumpname ) ;
free ( dumpname ) ;
if ( function_name )
fprintf ( rtl_dump_file , " \n ;; Function %s \n \n " , function_name ) ;
} ) ;
return ;
}
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
/* Routine to close a dump file. */
static void
close_dump_file ( func , insns )
void ( * func ) PROTO ( ( FILE * , rtx ) ) ;
rtx insns ;
{
TIMEVAR
( dump_time ,
{
if ( func )
func ( rtl_dump_file , insns ) ;
fflush ( rtl_dump_file ) ;
fclose ( rtl_dump_file ) ;
rtl_dump_file = NULL ;
} ) ;
return ;
1996-09-18 05:35:50 +00:00
}
1999-08-30 04:01:02 +00:00
/* Routine to dump rtl into a file. */
static void
dump_rtl ( suffix , decl , func , insns )
1999-10-27 09:31:52 +00:00
const char * suffix ;
1999-08-30 04:01:02 +00:00
tree decl ;
void ( * func ) PROTO ( ( FILE * , rtx ) ) ;
rtx insns ;
{
open_dump_file ( suffix , decl_printable_name ( decl , 2 ) ) ;
close_dump_file ( func , insns ) ;
}
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
/* Routine to empty a dump file. */
1996-09-18 05:35:50 +00:00
static void
1999-08-30 04:01:02 +00:00
clean_dump_file ( suffix )
1999-10-27 09:31:52 +00:00
const char * suffix ;
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
char * dumpname ;
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
dumpname = ( char * ) xmalloc ( strlen ( dump_base_name ) + strlen ( suffix ) + 1 ) ;
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
strcpy ( dumpname , dump_base_name ) ;
strcat ( dumpname , suffix ) ;
rtl_dump_file = fopen ( dumpname , " w " ) ;
if ( rtl_dump_file = = NULL )
pfatal_with_name ( dumpname ) ;
free ( dumpname ) ;
fclose ( rtl_dump_file ) ;
rtl_dump_file = NULL ;
return ;
}
1999-10-27 09:31:52 +00:00
/* Do any final processing required for the declarations in VEC, of
which there are LEN . We write out inline functions and variables
that have been deferred until this point , but which are required .
Returns non - zero if anything was put out . */
int
wrapup_global_declarations ( vec , len )
tree * vec ;
int len ;
{
tree decl ;
int i ;
int reconsider ;
int output_something = 0 ;
for ( i = 0 ; i < len ; i + + )
{
decl = vec [ i ] ;
/* We're not deferring this any longer. */
DECL_DEFER_OUTPUT ( decl ) = 0 ;
if ( TREE_CODE ( decl ) = = VAR_DECL & & DECL_SIZE ( decl ) = = 0
& & incomplete_decl_finalize_hook ! = 0 )
( * incomplete_decl_finalize_hook ) ( decl ) ;
}
/* Now emit any global variables or functions that we have been
putting off . We need to loop in case one of the things emitted
here references another one which comes earlier in the list . */
do
{
reconsider = 0 ;
for ( i = 0 ; i < len ; i + + )
{
decl = vec [ i ] ;
if ( TREE_ASM_WRITTEN ( decl ) | | DECL_EXTERNAL ( decl ) )
continue ;
/* Don't write out static consts, unless we still need them.
We also keep static consts if not optimizing ( for debugging ) ,
unless the user specified - fno - keep - static - consts .
? ? ? They might be better written into the debug information .
This is possible when using DWARF .
A language processor that wants static constants to be always
written out ( even if it is not used ) is responsible for
calling rest_of_decl_compilation itself . E . g . the C front - end
calls rest_of_decl_compilation from finish_decl .
One motivation for this is that is conventional in some
environments to write things like :
static const char rcsid [ ] = " ... version string ... " ;
intending to force the string to be in the executable .
A language processor that would prefer to have unneeded
static constants " optimized away " would just defer writing
them out until here . E . g . C + + does this , because static
constants are often defined in header files .
? ? ? A tempting alternative ( for both C and C + + ) would be
to force a constant to be written if and only if it is
defined in a main file , as opposed to an include file . */
if ( TREE_CODE ( decl ) = = VAR_DECL & & TREE_STATIC ( decl )
& & ( ! TREE_READONLY ( decl )
| | TREE_PUBLIC ( decl )
| | ( ! optimize & & flag_keep_static_consts )
| | TREE_SYMBOL_REFERENCED ( DECL_ASSEMBLER_NAME ( decl ) ) ) )
{
reconsider = 1 ;
rest_of_decl_compilation ( decl , NULL_PTR , 1 , 1 ) ;
}
if ( TREE_CODE ( decl ) = = FUNCTION_DECL
& & DECL_INITIAL ( decl ) ! = 0
& & DECL_SAVED_INSNS ( decl ) ! = 0
& & ( flag_keep_inline_functions
| | ( TREE_PUBLIC ( decl ) & & ! DECL_COMDAT ( decl ) )
| | TREE_SYMBOL_REFERENCED ( DECL_ASSEMBLER_NAME ( decl ) ) ) )
{
reconsider = 1 ;
temporary_allocation ( ) ;
output_inline_function ( decl ) ;
permanent_allocation ( 1 ) ;
}
}
if ( reconsider )
output_something = 1 ;
}
while ( reconsider ) ;
return output_something ;
}
/* Issue appropriate warnings for the global declarations in VEC (of
which there are LEN ) . Output debugging information for them . */
void
check_global_declarations ( vec , len )
tree * vec ;
int len ;
{
tree decl ;
int i ;
for ( i = 0 ; i < len ; i + + )
{
decl = vec [ i ] ;
if ( TREE_CODE ( decl ) = = VAR_DECL & & TREE_STATIC ( decl )
& & ! TREE_ASM_WRITTEN ( decl ) )
/* Cancel the RTL for this decl so that, if debugging info
output for global variables is still to come ,
this one will be omitted . */
DECL_RTL ( decl ) = NULL ;
/* Warn about any function
declared static but not defined .
We don ' t warn about variables ,
because many programs have static variables
that exist only to get some text into the object file . */
if ( TREE_CODE ( decl ) = = FUNCTION_DECL
& & ( warn_unused
| | TREE_SYMBOL_REFERENCED ( DECL_ASSEMBLER_NAME ( decl ) ) )
& & DECL_INITIAL ( decl ) = = 0
& & DECL_EXTERNAL ( decl )
& & ! DECL_ARTIFICIAL ( decl )
& & ! TREE_PUBLIC ( decl ) )
{
if ( TREE_SYMBOL_REFERENCED ( DECL_ASSEMBLER_NAME ( decl ) ) )
pedwarn_with_decl ( decl ,
" `%s' used but never defined " ) ;
else
warning_with_decl ( decl ,
" `%s' declared `static' but never defined " ) ;
/* This symbol is effectively an "extern" declaration now. */
TREE_PUBLIC ( decl ) = 1 ;
assemble_external ( decl ) ;
}
/* Warn about static fns or vars defined but not used,
but not about inline functions or static consts
since defining those in header files is normal practice . */
if ( warn_unused
& & ( ( TREE_CODE ( decl ) = = FUNCTION_DECL & & ! DECL_INLINE ( decl ) )
| | ( TREE_CODE ( decl ) = = VAR_DECL & & ! TREE_READONLY ( decl ) ) )
& & ! DECL_IN_SYSTEM_HEADER ( decl )
& & ! DECL_EXTERNAL ( decl )
& & ! TREE_PUBLIC ( decl )
& & ! TREE_USED ( decl )
& & ( TREE_CODE ( decl ) = = FUNCTION_DECL | | ! DECL_REGISTER ( decl ) )
/* The TREE_USED bit for file-scope decls
is kept in the identifier , to handle multiple
external decls in different scopes . */
& & ! TREE_USED ( DECL_NAME ( decl ) ) )
warning_with_decl ( decl , " `%s' defined but not used " ) ;
# ifdef SDB_DEBUGGING_INFO
/* The COFF linker can move initialized global vars to the end.
And that can screw up the symbol ordering .
By putting the symbols in that order to begin with ,
we avoid a problem . mcsun ! unido ! fauern ! tumuc ! pes @ uunet . uu . net . */
if ( write_symbols = = SDB_DEBUG & & TREE_CODE ( decl ) = = VAR_DECL
& & TREE_PUBLIC ( decl ) & & DECL_INITIAL ( decl )
& & ! DECL_EXTERNAL ( decl )
& & DECL_RTL ( decl ) ! = 0 )
TIMEVAR ( symout_time , sdbout_symbol ( decl , 0 ) ) ;
/* Output COFF information for non-global
file - scope initialized variables . */
if ( write_symbols = = SDB_DEBUG
& & TREE_CODE ( decl ) = = VAR_DECL
& & DECL_INITIAL ( decl )
& & ! DECL_EXTERNAL ( decl )
& & DECL_RTL ( decl ) ! = 0
& & GET_CODE ( DECL_RTL ( decl ) ) = = MEM )
TIMEVAR ( symout_time , sdbout_toplevel_data ( decl ) ) ;
# endif /* SDB_DEBUGGING_INFO */
# ifdef DWARF_DEBUGGING_INFO
/* Output DWARF information for file-scope tentative data object
declarations , file - scope ( extern ) function declarations ( which
had no corresponding body ) and file - scope tagged type declarations
and definitions which have not yet been forced out . */
if ( write_symbols = = DWARF_DEBUG
& & ( TREE_CODE ( decl ) ! = FUNCTION_DECL | | ! DECL_INITIAL ( decl ) ) )
TIMEVAR ( symout_time , dwarfout_file_scope_decl ( decl , 1 ) ) ;
# endif
# ifdef DWARF2_DEBUGGING_INFO
/* Output DWARF2 information for file-scope tentative data object
declarations , file - scope ( extern ) function declarations ( which
had no corresponding body ) and file - scope tagged type declarations
and definitions which have not yet been forced out . */
if ( write_symbols = = DWARF2_DEBUG
& & ( TREE_CODE ( decl ) ! = FUNCTION_DECL | | ! DECL_INITIAL ( decl ) ) )
TIMEVAR ( symout_time , dwarf2out_decl ( decl ) ) ;
# endif
}
}
1999-08-30 04:01:02 +00:00
/* Compile an entire file of output from cpp, named NAME.
Write a file of assembly output and various debugging dumps . */
static void
compile_file ( name )
char * name ;
{
tree globals ;
int start_time ;
int name_specified = name ! = 0 ;
if ( dump_base_name = = 0 )
dump_base_name = name ? name : " gccdump " ;
1996-09-18 05:35:50 +00:00
parse_time = 0 ;
varconst_time = 0 ;
integration_time = 0 ;
jump_time = 0 ;
cse_time = 0 ;
1999-08-30 04:01:02 +00:00
gcse_time = 0 ;
1996-09-18 05:35:50 +00:00
loop_time = 0 ;
cse2_time = 0 ;
1999-08-30 04:01:02 +00:00
branch_prob_time = 0 ;
1996-09-18 05:35:50 +00:00
flow_time = 0 ;
combine_time = 0 ;
1999-08-30 04:01:02 +00:00
regmove_time = 0 ;
1996-09-18 05:35:50 +00:00
sched_time = 0 ;
local_alloc_time = 0 ;
global_alloc_time = 0 ;
1999-10-27 09:31:52 +00:00
flow2_time = 0 ;
1996-09-18 05:35:50 +00:00
sched2_time = 0 ;
1999-08-30 04:01:02 +00:00
# ifdef DELAY_SLOTS
1996-09-18 05:35:50 +00:00
dbr_sched_time = 0 ;
1999-08-30 04:01:02 +00:00
# endif
1996-09-18 05:35:50 +00:00
shorten_branch_time = 0 ;
stack_reg_time = 0 ;
final_time = 0 ;
symout_time = 0 ;
dump_time = 0 ;
/* Initialize data in various passes. */
init_obstacks ( ) ;
init_tree_codes ( ) ;
1999-08-30 04:01:02 +00:00
name = init_parse ( name ) ;
1996-09-18 05:35:50 +00:00
init_rtl ( ) ;
init_emit_once ( debug_info_level = = DINFO_LEVEL_NORMAL
1999-08-30 04:01:02 +00:00
| | debug_info_level = = DINFO_LEVEL_VERBOSE
| | flag_test_coverage ) ;
1996-09-18 05:35:50 +00:00
init_regs ( ) ;
init_decl_processing ( ) ;
init_optabs ( ) ;
init_stmt ( ) ;
init_expmed ( ) ;
init_expr_once ( ) ;
init_loop ( ) ;
init_reload ( ) ;
1999-08-30 04:01:02 +00:00
init_alias_once ( ) ;
1996-09-18 05:35:50 +00:00
if ( flag_caller_saves )
init_caller_save ( ) ;
/* If auxiliary info generation is desired, open the output file.
This goes in the same directory as the source file - - unlike
all the other output files . */
if ( flag_gen_aux_info )
{
aux_info_file = fopen ( aux_info_file_name , " w " ) ;
if ( aux_info_file = = 0 )
pfatal_with_name ( aux_info_file_name ) ;
}
1999-10-27 09:31:52 +00:00
/* Clear the dump files. */
1996-09-18 05:35:50 +00:00
if ( rtl_dump )
1999-08-30 04:01:02 +00:00
clean_dump_file ( " .rtl " ) ;
1996-09-18 05:35:50 +00:00
if ( jump_opt_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .jump " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .jump " ) ;
}
1999-08-30 04:01:02 +00:00
if ( addressof_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .addressof " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .addressof " ) ;
}
1996-09-18 05:35:50 +00:00
if ( cse_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .cse " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .cse " ) ;
}
1996-09-18 05:35:50 +00:00
if ( loop_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .loop " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .loop " ) ;
}
1996-09-18 05:35:50 +00:00
if ( cse2_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .cse2 " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .cse2 " ) ;
}
1999-08-30 04:01:02 +00:00
if ( branch_prob_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .bp " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .bp " ) ;
}
1996-09-18 05:35:50 +00:00
if ( flow_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .flow " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .flow " ) ;
}
1996-09-18 05:35:50 +00:00
if ( combine_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .combine " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .combine " ) ;
}
1999-08-30 04:01:02 +00:00
if ( regmove_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .regmove " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .regmove " ) ;
}
1996-09-18 05:35:50 +00:00
if ( sched_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .sched " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .sched " ) ;
}
1996-09-18 05:35:50 +00:00
if ( local_reg_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .lreg " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .lreg " ) ;
}
1996-09-18 05:35:50 +00:00
if ( global_reg_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .greg " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .greg " ) ;
}
if ( flow2_dump )
{
clean_dump_file ( " .flow2 " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .flow2 " ) ;
}
1996-09-18 05:35:50 +00:00
if ( sched2_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .sched2 " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .sched2 " ) ;
}
1996-09-18 05:35:50 +00:00
if ( jump2_opt_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .jump2 " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .jump2 " ) ;
}
1999-08-30 04:01:02 +00:00
# ifdef DELAY_SLOTS
1996-09-18 05:35:50 +00:00
if ( dbr_sched_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .dbr " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .dbr " ) ;
}
1999-08-30 04:01:02 +00:00
# endif
if ( gcse_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .gcse " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .gcse " ) ;
}
1996-09-18 05:35:50 +00:00
# ifdef STACK_REGS
if ( stack_reg_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .stack " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .stack " ) ;
}
1999-08-30 04:01:02 +00:00
# endif
# ifdef MACHINE_DEPENDENT_REORG
if ( mach_dep_reorg_dump )
1999-10-27 09:31:52 +00:00
{
clean_dump_file ( " .mach " ) ;
if ( graph_dump_format ! = no_graph )
clean_graph_dump_file ( dump_base_name , " .mach " ) ;
}
# endif
1996-09-18 05:35:50 +00:00
/* Open assembler code output file. */
1999-10-27 09:31:52 +00:00
if ( flag_syntax_only )
asm_out_file = NULL ;
1996-09-18 05:35:50 +00:00
else
{
1999-10-27 09:31:52 +00:00
if ( ! name_specified & & asm_file_name = = 0 )
1996-09-18 05:35:50 +00:00
asm_out_file = stdout ;
else
1999-10-27 09:31:52 +00:00
{
int len = strlen ( dump_base_name ) ;
register char * dumpname = ( char * ) xmalloc ( len + 6 ) ;
strcpy ( dumpname , dump_base_name ) ;
strip_off_ending ( dumpname , len ) ;
strcat ( dumpname , " .s " ) ;
if ( asm_file_name = = 0 )
{
asm_file_name = ( char * ) xmalloc ( strlen ( dumpname ) + 1 ) ;
strcpy ( asm_file_name , dumpname ) ;
}
if ( ! strcmp ( asm_file_name , " - " ) )
asm_out_file = stdout ;
else
asm_out_file = fopen ( asm_file_name , " w " ) ;
if ( asm_out_file = = 0 )
pfatal_with_name ( asm_file_name ) ;
}
1996-09-18 05:35:50 +00:00
# ifdef IO_BUFFER_SIZE
1999-10-27 09:31:52 +00:00
setvbuf ( asm_out_file , ( char * ) xmalloc ( IO_BUFFER_SIZE ) ,
_IOFBF , IO_BUFFER_SIZE ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
}
1996-09-18 05:35:50 +00:00
input_filename = name ;
/* Put an entry on the input file stack for the main input file. */
input_file_stack
= ( struct file_stack * ) xmalloc ( sizeof ( struct file_stack ) ) ;
input_file_stack - > next = 0 ;
input_file_stack - > name = input_filename ;
/* Perform language-specific initialization.
This may set main_input_filename . */
lang_init ( ) ;
/* If the input doesn't start with a #line, use the input name
as the official input file name . */
if ( main_input_filename = = 0 )
main_input_filename = name ;
1999-10-27 09:31:52 +00:00
if ( flag_syntax_only )
{
write_symbols = NO_DEBUG ;
profile_flag = 0 ;
profile_block_flag = 0 ;
}
else
{
ASM_FILE_START ( asm_out_file ) ;
1999-08-30 04:01:02 +00:00
# ifdef ASM_COMMENT_START
1999-10-27 09:31:52 +00:00
if ( flag_verbose_asm )
{
/* Print the list of options in effect. */
print_version ( asm_out_file , ASM_COMMENT_START ) ;
print_switch_values ( asm_out_file , 0 , MAX_LINE ,
1999-08-30 04:01:02 +00:00
ASM_COMMENT_START , " " , " \n " ) ;
1999-10-27 09:31:52 +00:00
/* Add a blank line here so it appears in assembler output but not
screen output . */
fprintf ( asm_out_file , " \n " ) ;
}
1999-08-30 04:01:02 +00:00
# endif
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
/* Output something to inform GDB that this compilation was by GCC. */
1996-09-18 05:35:50 +00:00
# ifndef ASM_IDENTIFY_GCC
1999-10-27 09:31:52 +00:00
fprintf ( asm_out_file , " gcc2_compiled.: \n " ) ;
1996-09-18 05:35:50 +00:00
# else
1999-10-27 09:31:52 +00:00
ASM_IDENTIFY_GCC ( asm_out_file ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-08-30 04:01:02 +00:00
/* Output something to identify which front-end produced this file. */
1996-09-18 05:35:50 +00:00
# ifdef ASM_IDENTIFY_LANGUAGE
1999-10-27 09:31:52 +00:00
ASM_IDENTIFY_LANGUAGE ( asm_out_file ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
} /* ! flag_syntax_only */
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
# ifndef ASM_OUTPUT_SECTION_NAME
if ( flag_function_sections )
1996-09-18 05:35:50 +00:00
{
1999-08-30 04:01:02 +00:00
warning ( " -ffunction-sections not supported for this target. " ) ;
flag_function_sections = 0 ;
1996-09-18 05:35:50 +00:00
}
1999-10-27 09:31:52 +00:00
if ( flag_data_sections )
{
warning ( " -fdata-sections not supported for this target. " ) ;
flag_data_sections = 0 ;
}
1999-08-30 04:01:02 +00:00
# endif
if ( flag_function_sections
& & ( profile_flag | | profile_block_flag ) )
1996-09-18 05:35:50 +00:00
{
1999-08-30 04:01:02 +00:00
warning ( " -ffunction-sections disabled; it makes profiling impossible. " ) ;
flag_function_sections = 0 ;
}
1999-10-27 09:31:52 +00:00
# ifndef OBJECT_FORMAT_ELF
1999-08-30 04:01:02 +00:00
if ( flag_function_sections & & write_symbols ! = NO_DEBUG )
warning ( " -ffunction-sections may affect debugging on some targets. " ) ;
1999-10-27 09:31:52 +00:00
# endif
1999-08-30 04:01:02 +00:00
/* ??? Note: There used to be a conditional here
to call assemble_zeros without fail if DBX_DEBUGGING_INFO is defined .
This was to guarantee separation between gcc_compiled . and
the first function , for the sake of dbx on Suns .
However , having the extra zero here confused the Emacs
code for unexec , and might confuse other programs too .
Therefore , I took out that change .
In future versions we should find another way to solve
that dbx problem . - - rms , 23 May 93. */
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
/* Don't let the first function fall at the same address
as gcc_compiled . , if profiling . */
if ( profile_flag | | profile_block_flag )
{
/* It's best if we can write a nop here since some
assemblers don ' t tolerate zeros in the text section . */
if ( insn_template [ CODE_FOR_nop ] ! = 0 )
output_asm_insn ( insn_template [ CODE_FOR_nop ] , NULL_PTR ) ;
else
1996-09-18 05:35:50 +00:00
assemble_zeros ( UNITS_PER_WORD ) ;
}
/* If dbx symbol table desired, initialize writing it
and output the predefined types . */
# if defined (DBX_DEBUGGING_INFO) || defined (XCOFF_DEBUGGING_INFO)
if ( write_symbols = = DBX_DEBUG | | write_symbols = = XCOFF_DEBUG )
TIMEVAR ( symout_time , dbxout_init ( asm_out_file , main_input_filename ,
getdecls ( ) ) ) ;
# endif
# ifdef SDB_DEBUGGING_INFO
if ( write_symbols = = SDB_DEBUG )
TIMEVAR ( symout_time , sdbout_init ( asm_out_file , main_input_filename ,
getdecls ( ) ) ) ;
# endif
# ifdef DWARF_DEBUGGING_INFO
if ( write_symbols = = DWARF_DEBUG )
TIMEVAR ( symout_time , dwarfout_init ( asm_out_file , main_input_filename ) ) ;
# endif
1999-08-30 04:01:02 +00:00
# ifdef DWARF2_UNWIND_INFO
if ( dwarf2out_do_frame ( ) )
dwarf2out_frame_init ( ) ;
# endif
# ifdef DWARF2_DEBUGGING_INFO
if ( write_symbols = = DWARF2_DEBUG )
TIMEVAR ( symout_time , dwarf2out_init ( asm_out_file , main_input_filename ) ) ;
# endif
1996-09-18 05:35:50 +00:00
/* Initialize yet another pass. */
1999-08-30 04:01:02 +00:00
init_final ( main_input_filename ) ;
init_branch_prob ( dump_base_name ) ;
1996-09-18 05:35:50 +00:00
start_time = get_run_time ( ) ;
/* Call the parser, which parses the entire file
( calling rest_of_compilation for each function ) . */
if ( yyparse ( ) ! = 0 )
{
if ( errorcount = = 0 )
1999-10-27 09:31:52 +00:00
notice ( " Errors detected in input file (your bison.simple is out of date) \n " ) ;
1996-09-18 05:35:50 +00:00
/* In case there were missing closebraces,
get us back to the global binding level . */
while ( ! global_bindings_p ( ) )
poplevel ( 0 , 0 , 0 ) ;
}
/* Compilation is now finished except for writing
what ' s left of the symbol table output . */
parse_time + = get_run_time ( ) - start_time ;
parse_time - = integration_time ;
parse_time - = varconst_time ;
1999-10-27 09:31:52 +00:00
if ( flag_syntax_only )
goto finish_syntax ;
1996-09-18 05:35:50 +00:00
globals = getdecls ( ) ;
/* Really define vars that have had only a tentative definition.
Really output inline functions that must actually be callable
and have not been output so far . */
{
int len = list_length ( globals ) ;
tree * vec = ( tree * ) alloca ( sizeof ( tree ) * len ) ;
int i ;
tree decl ;
/* Process the decls in reverse order--earliest first.
Put them into VEC from back to front , then take out from front . */
for ( i = 0 , decl = globals ; i < len ; i + + , decl = TREE_CHAIN ( decl ) )
vec [ len - i - 1 ] = decl ;
1999-10-27 09:31:52 +00:00
wrapup_global_declarations ( vec , len ) ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
/* This must occur after the loop to output deferred functions. Else
the profiler initializer would not be emitted if all the functions
in this compilation unit were deferred .
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
output_func_start_profiler can not cause any additional functions or
data to need to be output , so it need not be in the deferred function
loop above . */
output_func_start_profiler ( ) ;
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
/* Now that all possible functions have been output, we can dump
the exception table . */
output_exception_table ( ) ;
1999-10-27 09:31:52 +00:00
check_global_declarations ( vec , len ) ;
1996-09-18 05:35:50 +00:00
}
/* Write out any pending weak symbol declarations. */
weak_finish ( ) ;
/* Do dbx symbols */
# if defined (DBX_DEBUGGING_INFO) || defined (XCOFF_DEBUGGING_INFO)
if ( write_symbols = = DBX_DEBUG | | write_symbols = = XCOFF_DEBUG )
TIMEVAR ( symout_time ,
{
dbxout_finish ( asm_out_file , main_input_filename ) ;
} ) ;
# endif
# ifdef DWARF_DEBUGGING_INFO
if ( write_symbols = = DWARF_DEBUG )
TIMEVAR ( symout_time ,
{
dwarfout_finish ( ) ;
} ) ;
# endif
1999-08-30 04:01:02 +00:00
# ifdef DWARF2_UNWIND_INFO
if ( dwarf2out_do_frame ( ) )
dwarf2out_frame_finish ( ) ;
# endif
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
# ifdef DWARF2_DEBUGGING_INFO
if ( write_symbols = = DWARF2_DEBUG )
TIMEVAR ( symout_time ,
{
dwarf2out_finish ( ) ;
} ) ;
# endif
/* Output some stuff at end of file if nec. */
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
end_final ( dump_base_name ) ;
if ( branch_prob_dump )
open_dump_file ( " .bp " , NULL ) ;
TIMEVAR ( dump_time , end_branch_prob ( rtl_dump_file ) ) ;
if ( branch_prob_dump )
close_dump_file ( NULL , NULL_RTX ) ;
1996-09-18 05:35:50 +00:00
# ifdef ASM_FILE_END
1999-08-30 04:01:02 +00:00
ASM_FILE_END ( asm_out_file ) ;
1996-09-18 05:35:50 +00:00
# endif
1999-10-27 09:31:52 +00:00
/* Language-specific end of compilation actions. */
finish_syntax :
1996-09-18 05:35:50 +00:00
lang_finish ( ) ;
/* Close the dump files. */
if ( flag_gen_aux_info )
{
fclose ( aux_info_file ) ;
if ( errorcount )
unlink ( aux_info_file_name ) ;
}
if ( combine_dump )
{
1999-08-30 04:01:02 +00:00
open_dump_file ( " .combine " , NULL ) ;
TIMEVAR ( dump_time , dump_combine_total_stats ( rtl_dump_file ) ) ;
close_dump_file ( NULL , NULL_RTX ) ;
1996-09-18 05:35:50 +00:00
}
/* Close non-debugging input and output files. Take special care to note
whether fclose returns an error , since the pages might still be on the
buffer chain while the file is open . */
1999-08-30 04:01:02 +00:00
finish_parse ( ) ;
1999-10-27 09:31:52 +00:00
if ( ! flag_syntax_only
& & ( ferror ( asm_out_file ) ! = 0 | | fclose ( asm_out_file ) ! = 0 ) )
1996-09-18 05:35:50 +00:00
fatal_io_error ( asm_file_name ) ;
1999-10-27 09:31:52 +00:00
/* Do whatever is necessary to finish printing the graphs. */
if ( graph_dump_format ! = no_graph )
{
if ( jump_opt_dump )
finish_graph_dump_file ( dump_base_name , " .jump " ) ;
if ( addressof_dump )
finish_graph_dump_file ( dump_base_name , " .addressof " ) ;
if ( cse_dump )
finish_graph_dump_file ( dump_base_name , " .cse " ) ;
if ( loop_dump )
finish_graph_dump_file ( dump_base_name , " .loop " ) ;
if ( cse2_dump )
finish_graph_dump_file ( dump_base_name , " .cse2 " ) ;
if ( branch_prob_dump )
finish_graph_dump_file ( dump_base_name , " .bp " ) ;
if ( flow_dump )
finish_graph_dump_file ( dump_base_name , " .flow " ) ;
if ( combine_dump )
finish_graph_dump_file ( dump_base_name , " .combine " ) ;
if ( regmove_dump )
finish_graph_dump_file ( dump_base_name , " .regmove " ) ;
if ( sched_dump )
finish_graph_dump_file ( dump_base_name , " .sched " ) ;
if ( local_reg_dump )
finish_graph_dump_file ( dump_base_name , " .lreg " ) ;
if ( global_reg_dump )
finish_graph_dump_file ( dump_base_name , " .greg " ) ;
if ( flow2_dump )
finish_graph_dump_file ( dump_base_name , " .flow2 " ) ;
if ( sched2_dump )
finish_graph_dump_file ( dump_base_name , " .sched2 " ) ;
if ( jump2_opt_dump )
finish_graph_dump_file ( dump_base_name , " .jump2 " ) ;
# ifdef DELAY_SLOTS
if ( dbr_sched_dump )
finish_graph_dump_file ( dump_base_name , " .dbr " ) ;
# endif
if ( gcse_dump )
finish_graph_dump_file ( dump_base_name , " .gcse " ) ;
# ifdef STACK_REGS
if ( stack_reg_dump )
finish_graph_dump_file ( dump_base_name , " .stack " ) ;
# endif
# ifdef MACHINE_DEPENDENT_REORG
if ( mach_dep_reorg_dump )
finish_graph_dump_file ( dump_base_name , " .mach " ) ;
# endif
}
/* Free up memory for the benefit of leak detectors. */
free_reg_info ( ) ;
1996-09-18 05:35:50 +00:00
/* Print the times. */
if ( ! quiet_flag )
{
fprintf ( stderr , " \n " ) ;
print_time ( " parse " , parse_time ) ;
1999-08-30 04:01:02 +00:00
print_time ( " integration " , integration_time ) ;
print_time ( " jump " , jump_time ) ;
print_time ( " cse " , cse_time ) ;
print_time ( " gcse " , gcse_time ) ;
print_time ( " loop " , loop_time ) ;
print_time ( " cse2 " , cse2_time ) ;
print_time ( " branch-prob " , branch_prob_time ) ;
print_time ( " flow " , flow_time ) ;
print_time ( " combine " , combine_time ) ;
print_time ( " regmove " , regmove_time ) ;
print_time ( " sched " , sched_time ) ;
print_time ( " local-alloc " , local_alloc_time ) ;
print_time ( " global-alloc " , global_alloc_time ) ;
1999-10-27 09:31:52 +00:00
print_time ( " flow2 " , flow2_time ) ;
1999-08-30 04:01:02 +00:00
print_time ( " sched2 " , sched2_time ) ;
# ifdef DELAY_SLOTS
print_time ( " dbranch " , dbr_sched_time ) ;
# endif
print_time ( " shorten-branch " , shorten_branch_time ) ;
print_time ( " stack-reg " , stack_reg_time ) ;
print_time ( " final " , final_time ) ;
print_time ( " varconst " , varconst_time ) ;
print_time ( " symout " , symout_time ) ;
print_time ( " dump " , dump_time ) ;
1996-09-18 05:35:50 +00:00
}
}
/* This is called from various places for FUNCTION_DECL, VAR_DECL,
and TYPE_DECL nodes .
This does nothing for local ( non - static ) variables .
Otherwise , it sets up the RTL and outputs any assembler code
( label definition , storage allocation and initialization ) .
DECL is the declaration . If ASMSPEC is nonzero , it specifies
the assembler symbol name to be used . TOP_LEVEL is nonzero
if this declaration is not within a function . */
void
rest_of_decl_compilation ( decl , asmspec , top_level , at_end )
tree decl ;
1999-10-27 09:31:52 +00:00
const char * asmspec ;
1996-09-18 05:35:50 +00:00
int top_level ;
int at_end ;
{
/* Declarations of variables, and of functions defined elsewhere. */
/* The most obvious approach, to put an #ifndef around where
this macro is used , doesn ' t work since it ' s inside a macro call . */
# ifndef ASM_FINISH_DECLARE_OBJECT
# define ASM_FINISH_DECLARE_OBJECT(FILE, DECL, TOP, END)
# endif
/* Forward declarations for nested functions are not "external",
but we need to treat them as if they were . */
if ( TREE_STATIC ( decl ) | | DECL_EXTERNAL ( decl )
| | TREE_CODE ( decl ) = = FUNCTION_DECL )
TIMEVAR ( varconst_time ,
{
make_decl_rtl ( decl , asmspec , top_level ) ;
/* Initialized extern variable exists to be replaced
with its value , or represents something that will be
output in another file . */
if ( ! ( TREE_CODE ( decl ) = = VAR_DECL
& & DECL_EXTERNAL ( decl ) & & TREE_READONLY ( decl )
& & DECL_INITIAL ( decl ) ! = 0
& & DECL_INITIAL ( decl ) ! = error_mark_node ) )
/* Don't output anything
when a tentative file - scope definition is seen .
But at end of compilation , do output code for them . */
if ( ! ( ! at_end & & top_level
& & ( DECL_INITIAL ( decl ) = = 0
| | DECL_INITIAL ( decl ) = = error_mark_node ) ) )
assemble_variable ( decl , top_level , at_end , 0 ) ;
if ( decl = = last_assemble_variable_decl )
{
ASM_FINISH_DECLARE_OBJECT ( asm_out_file , decl ,
top_level , at_end ) ;
}
} ) ;
else if ( DECL_REGISTER ( decl ) & & asmspec ! = 0 )
{
if ( decode_reg_name ( asmspec ) > = 0 )
{
DECL_RTL ( decl ) = 0 ;
make_decl_rtl ( decl , asmspec , top_level ) ;
}
else
error ( " invalid register name `%s' for register variable " , asmspec ) ;
}
# if defined (DBX_DEBUGGING_INFO) || defined (XCOFF_DEBUGGING_INFO)
else if ( ( write_symbols = = DBX_DEBUG | | write_symbols = = XCOFF_DEBUG )
& & TREE_CODE ( decl ) = = TYPE_DECL )
TIMEVAR ( symout_time , dbxout_symbol ( decl , 0 ) ) ;
# endif
# ifdef SDB_DEBUGGING_INFO
else if ( write_symbols = = SDB_DEBUG & & top_level
& & TREE_CODE ( decl ) = = TYPE_DECL )
TIMEVAR ( symout_time , sdbout_symbol ( decl , 0 ) ) ;
# endif
}
/* Called after finishing a record, union or enumeral type. */
void
rest_of_type_compilation ( type , toplev )
1999-10-27 09:31:52 +00:00
# if defined(DBX_DEBUGGING_INFO) || defined(XCOFF_DEBUGGING_INFO) || defined (SDB_DEBUGGING_INFO)
1996-09-18 05:35:50 +00:00
tree type ;
int toplev ;
1999-10-27 09:31:52 +00:00
# else
tree type ATTRIBUTE_UNUSED ;
int toplev ATTRIBUTE_UNUSED ;
# endif
1996-09-18 05:35:50 +00:00
{
# if defined (DBX_DEBUGGING_INFO) || defined (XCOFF_DEBUGGING_INFO)
if ( write_symbols = = DBX_DEBUG | | write_symbols = = XCOFF_DEBUG )
TIMEVAR ( symout_time , dbxout_symbol ( TYPE_STUB_DECL ( type ) , ! toplev ) ) ;
# endif
# ifdef SDB_DEBUGGING_INFO
if ( write_symbols = = SDB_DEBUG )
TIMEVAR ( symout_time , sdbout_symbol ( TYPE_STUB_DECL ( type ) , ! toplev ) ) ;
# endif
}
/* This is called from finish_function (within yyparse)
after each top - level definition is parsed .
It is supposed to compile that function or variable
and output the assembler code for it .
After we return , the tree storage is freed . */
void
rest_of_compilation ( decl )
tree decl ;
{
register rtx insns ;
int start_time = get_run_time ( ) ;
int tem ;
/* Nonzero if we have saved the original DECL_INITIAL of the function,
to be restored after we finish compiling the function
( for use when compiling inline calls to this function ) . */
tree saved_block_tree = 0 ;
/* Likewise, for DECL_ARGUMENTS. */
tree saved_arguments = 0 ;
int failure = 0 ;
1999-10-27 09:31:52 +00:00
int rebuild_label_notes_after_reload ;
1996-09-18 05:35:50 +00:00
/* If we are reconsidering an inline function
at the end of compilation , skip the stuff for making it inline . */
if ( DECL_SAVED_INSNS ( decl ) = = 0 )
{
1999-08-30 04:01:02 +00:00
int inlinable = 0 ;
1999-10-27 09:31:52 +00:00
const char * lose ;
1996-09-18 05:35:50 +00:00
/* If requested, consider whether to make this function inline. */
1999-08-30 04:01:02 +00:00
if ( DECL_INLINE ( decl ) | | flag_inline_functions )
1996-09-18 05:35:50 +00:00
TIMEVAR ( integration_time ,
{
lose = function_cannot_inline_p ( decl ) ;
if ( lose | | ! optimize )
{
1999-08-30 04:01:02 +00:00
if ( warn_inline & & DECL_INLINE ( decl ) )
1996-09-18 05:35:50 +00:00
warning_with_decl ( decl , lose ) ;
DECL_ABSTRACT_ORIGIN ( decl ) = 0 ;
/* Don't really compile an extern inline function.
If we can ' t make it inline , pretend
it was only declared . */
if ( DECL_EXTERNAL ( decl ) )
{
DECL_INITIAL ( decl ) = 0 ;
goto exit_rest_of_compilation ;
}
}
else
1999-08-30 04:01:02 +00:00
/* ??? Note that this has the effect of making it look
like " inline " was specified for a function if we choose
to inline it . This isn ' t quite right , but it ' s
probably not worth the trouble to fix . */
inlinable = DECL_INLINE ( decl ) = 1 ;
1996-09-18 05:35:50 +00:00
} ) ;
insns = get_insns ( ) ;
/* Dump the rtl code if we are dumping rtl. */
if ( rtl_dump )
1999-08-30 04:01:02 +00:00
{
open_dump_file ( " .rtl " , decl_printable_name ( decl , 2 ) ) ;
if ( DECL_SAVED_INSNS ( decl ) )
fprintf ( rtl_dump_file , " ;; (integrable) \n \n " ) ;
close_dump_file ( print_rtl , insns ) ;
}
/* If we can, defer compiling inlines until EOF.
save_for_inline_copying can be extremely expensive . */
if ( inlinable & & ! decl_function_context ( decl ) )
DECL_DEFER_OUTPUT ( decl ) = 1 ;
1996-09-18 05:35:50 +00:00
/* If function is inline, and we don't yet know whether to
compile it by itself , defer decision till end of compilation .
finish_compilation will call rest_of_compilation again
for those functions that need to be output . Also defer those
1999-08-30 04:01:02 +00:00
functions that we are supposed to defer . We cannot defer
functions containing nested functions since the nested function
data is in our non - saved obstack . We cannot defer nested
functions for the same reason . */
/* If this is a nested inline, remove ADDRESSOF now so we can
finish compiling ourselves . Otherwise , wait until EOF .
We have to do this because the purge_addressof transformation
changes the DECL_RTL for many variables , which confuses integrate . */
if ( inlinable )
{
if ( decl_function_context ( decl ) )
purge_addressof ( insns ) ;
else
DECL_DEFER_OUTPUT ( decl ) = 1 ;
}
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
if ( ! current_function_contains_functions
& & ( DECL_DEFER_OUTPUT ( decl )
| | ( DECL_INLINE ( decl )
& & ( ( ! TREE_PUBLIC ( decl ) & & ! TREE_ADDRESSABLE ( decl )
& & ! flag_keep_inline_functions )
| | DECL_EXTERNAL ( decl ) ) ) ) )
1996-09-18 05:35:50 +00:00
{
DECL_DEFER_OUTPUT ( decl ) = 1 ;
1999-08-30 04:01:02 +00:00
/* If -Wreturn-type, we have to do a bit of compilation.
However , if we just fall through we will call
save_for_inline_copying ( ) which results in excessive
memory use . Instead , we just want to call
jump_optimize ( ) to figure out whether or not we can fall
off the end of the function ; we do the minimum amount of
work necessary to make that safe . And , we set optimize
to zero to keep jump_optimize from working too hard . */
if ( warn_return_type )
1996-09-18 05:35:50 +00:00
{
1999-08-30 04:01:02 +00:00
int saved_optimize = optimize ;
optimize = 0 ;
find_exception_handler_labels ( ) ;
jump_optimize ( get_insns ( ) , ! JUMP_CROSS_JUMP , ! JUMP_NOOP_MOVES ,
! JUMP_AFTER_REGSCAN ) ;
optimize = saved_optimize ;
}
1996-09-18 05:35:50 +00:00
# ifdef DWARF_DEBUGGING_INFO
1999-08-30 04:01:02 +00:00
/* Generate the DWARF info for the "abstract" instance
of a function which we may later generate inlined and / or
out - of - line instances of . */
if ( write_symbols = = DWARF_DEBUG )
{
set_decl_abstract_flags ( decl , 1 ) ;
TIMEVAR ( symout_time , dwarfout_file_scope_decl ( decl , 0 ) ) ;
set_decl_abstract_flags ( decl , 0 ) ;
}
1996-09-18 05:35:50 +00:00
# endif
1999-08-30 04:01:02 +00:00
# ifdef DWARF2_DEBUGGING_INFO
/* Generate the DWARF2 info for the "abstract" instance
of a function which we may later generate inlined and / or
out - of - line instances of . */
if ( write_symbols = = DWARF2_DEBUG )
{
set_decl_abstract_flags ( decl , 1 ) ;
TIMEVAR ( symout_time , dwarf2out_decl ( decl ) ) ;
set_decl_abstract_flags ( decl , 0 ) ;
1996-09-18 05:35:50 +00:00
}
1999-08-30 04:01:02 +00:00
# endif
TIMEVAR ( integration_time , save_for_inline_nocopy ( decl ) ) ;
RTX_INTEGRATED_P ( DECL_SAVED_INSNS ( decl ) ) = inlinable ;
goto exit_rest_of_compilation ;
1996-09-18 05:35:50 +00:00
}
/* If we have to compile the function now, save its rtl and subdecls
so that its compilation will not affect what others get . */
1999-08-30 04:01:02 +00:00
if ( inlinable | | DECL_DEFER_OUTPUT ( decl ) )
1996-09-18 05:35:50 +00:00
{
# ifdef DWARF_DEBUGGING_INFO
/* Generate the DWARF info for the "abstract" instance of
a function which we will generate an out - of - line instance
of almost immediately ( and which we may also later generate
various inlined instances of ) . */
if ( write_symbols = = DWARF_DEBUG )
{
set_decl_abstract_flags ( decl , 1 ) ;
TIMEVAR ( symout_time , dwarfout_file_scope_decl ( decl , 0 ) ) ;
set_decl_abstract_flags ( decl , 0 ) ;
}
1999-08-30 04:01:02 +00:00
# endif
# ifdef DWARF2_DEBUGGING_INFO
/* Generate the DWARF2 info for the "abstract" instance of
a function which we will generate an out - of - line instance
of almost immediately ( and which we may also later generate
various inlined instances of ) . */
if ( write_symbols = = DWARF2_DEBUG )
{
set_decl_abstract_flags ( decl , 1 ) ;
TIMEVAR ( symout_time , dwarf2out_decl ( decl ) ) ;
set_decl_abstract_flags ( decl , 0 ) ;
}
1996-09-18 05:35:50 +00:00
# endif
saved_block_tree = DECL_INITIAL ( decl ) ;
saved_arguments = DECL_ARGUMENTS ( decl ) ;
TIMEVAR ( integration_time , save_for_inline_copying ( decl ) ) ;
1999-08-30 04:01:02 +00:00
RTX_INTEGRATED_P ( DECL_SAVED_INSNS ( decl ) ) = inlinable ;
1996-09-18 05:35:50 +00:00
}
/* If specified extern inline but we aren't inlining it, we are
1999-10-27 09:31:52 +00:00
done . This goes for anything that gets here with DECL_EXTERNAL
set , not just things with DECL_INLINE . */
if ( DECL_EXTERNAL ( decl ) )
1996-09-18 05:35:50 +00:00
goto exit_rest_of_compilation ;
}
if ( ! DECL_DEFER_OUTPUT ( decl ) )
TREE_ASM_WRITTEN ( decl ) = 1 ;
/* Now that integrate will no longer see our rtl, we need not distinguish
between the return value of this function and the return value of called
functions . */
rtx_equal_function_value_matters = 0 ;
/* Don't return yet if -Wreturn-type; we need to do jump_optimize. */
if ( ( rtl_dump_and_exit | | flag_syntax_only ) & & ! warn_return_type )
{
goto exit_rest_of_compilation ;
}
1999-08-30 04:01:02 +00:00
/* Emit code to get eh context, if needed. */
emit_eh_context ( ) ;
1996-09-18 05:35:50 +00:00
# ifdef FINALIZE_PIC
/* If we are doing position-independent code generation, now
is the time to output special prologues and epilogues .
We do not want to do this earlier , because it just clutters
up inline functions with meaningless insns . */
if ( flag_pic )
FINALIZE_PIC ;
# endif
1999-08-30 04:01:02 +00:00
/* From now on, allocate rtl in current_obstack, not in saveable_obstack.
Note that that may have been done above , in save_for_inline_copying .
The call to resume_temporary_allocation near the end of this function
goes back to the usual state of affairs . This must be done after
we ' ve built up any unwinders for exception handling , and done
the FINALIZE_PIC work , if necessary . */
rtl_in_current_obstack ( ) ;
1996-09-18 05:35:50 +00:00
insns = get_insns ( ) ;
/* Copy any shared structure that should not be shared. */
2001-02-17 09:06:31 +00:00
unshare_all_rtl ( current_function_decl , insns ) ;
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
# ifdef SETJMP_VIA_SAVE_AREA
/* This must be performed before virutal register instantiation. */
if ( current_function_calls_alloca )
optimize_save_area_alloca ( insns ) ;
# endif
1996-09-18 05:35:50 +00:00
/* Instantiate all virtual registers. */
instantiate_virtual_regs ( current_function_decl , get_insns ( ) ) ;
/* See if we have allocated stack slots that are not directly addressable.
If so , scan all the insns and create explicit address computation
for all references to such slots . */
/* fixup_stack_slots (); */
1999-08-30 04:01:02 +00:00
/* Find all the EH handlers. */
find_exception_handler_labels ( ) ;
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
/* Always do one jump optimization pass to ensure that JUMP_LABEL fields
are initialized and to compute whether control can drop off the end
of the function . */
TIMEVAR ( jump_time , reg_scan ( insns , max_reg_num ( ) , 0 ) ) ;
TIMEVAR ( jump_time , jump_optimize ( insns , ! JUMP_CROSS_JUMP , ! JUMP_NOOP_MOVES ,
JUMP_AFTER_REGSCAN ) ) ;
1996-09-18 05:35:50 +00:00
/* Now is when we stop if -fsyntax-only and -Wreturn-type. */
if ( rtl_dump_and_exit | | flag_syntax_only | | DECL_DEFER_OUTPUT ( decl ) )
goto exit_rest_of_compilation ;
/* Dump rtl code after jump, if we are doing that. */
1999-08-30 04:01:02 +00:00
if ( jump_opt_dump )
dump_rtl ( " .jump " , decl , print_rtl , insns ) ;
1996-09-18 05:35:50 +00:00
/* Perform common subexpression elimination.
Nonzero value from ` cse_main ' means that jumps were simplified
and some code may now be unreachable , so do
jump optimization again . */
if ( optimize > 0 )
{
1999-08-30 04:01:02 +00:00
if ( cse_dump )
open_dump_file ( " .cse " , decl_printable_name ( decl , 2 ) ) ;
1996-09-18 05:35:50 +00:00
TIMEVAR ( cse_time , reg_scan ( insns , max_reg_num ( ) , 1 ) ) ;
if ( flag_thread_jumps )
/* Hacks by tiemann & kenner. */
TIMEVAR ( jump_time , thread_jumps ( insns , max_reg_num ( ) , 1 ) ) ;
TIMEVAR ( cse_time , tem = cse_main ( insns , max_reg_num ( ) ,
1999-08-30 04:01:02 +00:00
0 , rtl_dump_file ) ) ;
1996-09-18 05:35:50 +00:00
if ( tem | | optimize > 1 )
1999-08-30 04:01:02 +00:00
TIMEVAR ( jump_time , jump_optimize ( insns , ! JUMP_CROSS_JUMP ,
! JUMP_NOOP_MOVES ,
! JUMP_AFTER_REGSCAN ) ) ;
2000-01-22 16:05:33 +00:00
/* Run this after jump optmizations remove all the unreachable code
so that unreachable code will not keep values live . */
TIMEVAR ( cse_time , delete_trivially_dead_insns ( insns , max_reg_num ( ) ) ) ;
1999-08-30 04:01:02 +00:00
/* Dump rtl code after cse, if we are doing that. */
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
if ( cse_dump )
1999-10-27 09:31:52 +00:00
{
close_dump_file ( print_rtl , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .cse " , insns ) ;
}
1996-09-18 05:35:50 +00:00
}
1999-08-30 04:01:02 +00:00
purge_addressof ( insns ) ;
reg_scan ( insns , max_reg_num ( ) , 1 ) ;
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
if ( addressof_dump )
1999-10-27 09:31:52 +00:00
{
dump_rtl ( " .addressof " , decl , print_rtl , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .addressof " , insns ) ;
}
1999-08-30 04:01:02 +00:00
/* Perform global cse. */
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
if ( optimize > 0 & & flag_gcse )
{
if ( gcse_dump )
open_dump_file ( " .gcse " , IDENTIFIER_POINTER ( DECL_NAME ( decl ) ) ) ;
1999-10-27 09:31:52 +00:00
TIMEVAR ( gcse_time , tem = gcse_main ( insns , rtl_dump_file ) ) ;
/* If gcse altered any jumps, rerun jump optimizations to clean
things up . */
if ( tem )
{
TIMEVAR ( jump_time , jump_optimize ( insns , ! JUMP_CROSS_JUMP ,
! JUMP_NOOP_MOVES ,
! JUMP_AFTER_REGSCAN ) ) ;
}
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
if ( gcse_dump )
1999-10-27 09:31:52 +00:00
{
close_dump_file ( print_rtl , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .gcse " , insns ) ;
}
1999-08-30 04:01:02 +00:00
}
1996-09-18 05:35:50 +00:00
/* Move constant computations out of loops. */
if ( optimize > 0 )
{
1999-08-30 04:01:02 +00:00
if ( loop_dump )
open_dump_file ( " .loop " , decl_printable_name ( decl , 2 ) ) ;
TIMEVAR
( loop_time ,
{
if ( flag_rerun_loop_opt )
1996-09-18 05:35:50 +00:00
{
1999-08-30 04:01:02 +00:00
/* We only want to perform unrolling once. */
1999-10-27 09:31:52 +00:00
loop_optimize ( insns , rtl_dump_file , 0 , 0 ) ;
1999-08-30 04:01:02 +00:00
/* The first call to loop_optimize makes some instructions
trivially dead . We delete those instructions now in the
hope that doing so will make the heuristics in loop work
better and possibly speed up compilation . */
delete_trivially_dead_insns ( insns , max_reg_num ( ) ) ;
/* The regscan pass is currently necessary as the alias
analysis code depends on this information . */
reg_scan ( insns , max_reg_num ( ) , 1 ) ;
}
1999-10-27 09:31:52 +00:00
loop_optimize ( insns , rtl_dump_file , flag_unroll_loops , 1 ) ;
1999-08-30 04:01:02 +00:00
} ) ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
/* Dump rtl code after loop opt, if we are doing that. */
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
if ( loop_dump )
1999-10-27 09:31:52 +00:00
{
close_dump_file ( print_rtl , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .loop " , insns ) ;
}
1999-08-30 04:01:02 +00:00
}
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
if ( optimize > 0 )
1996-09-18 05:35:50 +00:00
{
1999-08-30 04:01:02 +00:00
if ( cse2_dump )
open_dump_file ( " .cse2 " , decl_printable_name ( decl , 2 ) ) ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
if ( flag_rerun_cse_after_loop )
{
/* Running another jump optimization pass before the second
cse pass sometimes simplifies the RTL enough to allow
the second CSE pass to do a better job . Jump_optimize can change
max_reg_num so we must rerun reg_scan afterwards .
? ? ? Rework to not call reg_scan so often . */
TIMEVAR ( jump_time , reg_scan ( insns , max_reg_num ( ) , 0 ) ) ;
TIMEVAR ( jump_time , jump_optimize ( insns , ! JUMP_CROSS_JUMP ,
! JUMP_NOOP_MOVES ,
JUMP_AFTER_REGSCAN ) ) ;
TIMEVAR ( cse2_time , reg_scan ( insns , max_reg_num ( ) , 0 ) ) ;
TIMEVAR ( cse2_time , tem = cse_main ( insns , max_reg_num ( ) ,
1 , rtl_dump_file ) ) ;
if ( tem )
TIMEVAR ( jump_time , jump_optimize ( insns , ! JUMP_CROSS_JUMP ,
! JUMP_NOOP_MOVES ,
! JUMP_AFTER_REGSCAN ) ) ;
}
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
if ( flag_thread_jumps )
{
/* This pass of jump threading straightens out code
that was kinked by loop optimization . */
TIMEVAR ( jump_time , reg_scan ( insns , max_reg_num ( ) , 0 ) ) ;
TIMEVAR ( jump_time , thread_jumps ( insns , max_reg_num ( ) , 0 ) ) ;
}
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
/* Dump rtl code after cse, if we are doing that. */
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
if ( cse2_dump )
1999-10-27 09:31:52 +00:00
{
close_dump_file ( print_rtl , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .cse2 " , insns ) ;
}
1996-09-18 05:35:50 +00:00
}
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
if ( profile_arc_flag | | flag_test_coverage | | flag_branch_probabilities )
{
if ( branch_prob_dump )
open_dump_file ( " .bp " , decl_printable_name ( decl , 2 ) ) ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
TIMEVAR
( branch_prob_time ,
{
branch_prob ( insns , rtl_dump_file ) ;
} ) ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
if ( branch_prob_dump )
1999-10-27 09:31:52 +00:00
{
close_dump_file ( print_rtl , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .bp " , insns ) ;
}
1999-08-30 04:01:02 +00:00
}
1999-10-27 09:31:52 +00:00
1996-09-18 05:35:50 +00:00
/* We are no longer anticipating cse in this function, at least. */
cse_not_expected = 1 ;
/* Now we choose between stupid (pcc-like) register allocation
( if we got the - noreg switch and not - opt )
and smart register allocation . */
1999-10-27 09:31:52 +00:00
if ( optimize > 0 ) /* Stupid allocation probably won't work */
1996-09-18 05:35:50 +00:00
obey_regdecls = 0 ; /* if optimizations being done. */
regclass_init ( ) ;
/* Print function header into flow dump now
because doing the flow analysis makes some of the dump . */
if ( flow_dump )
1999-08-30 04:01:02 +00:00
open_dump_file ( " .flow " , decl_printable_name ( decl , 2 ) ) ;
1996-09-18 05:35:50 +00:00
if ( obey_regdecls )
{
TIMEVAR ( flow_time ,
{
regclass ( insns , max_reg_num ( ) ) ;
stupid_life_analysis ( insns , max_reg_num ( ) ,
1999-08-30 04:01:02 +00:00
rtl_dump_file ) ;
1996-09-18 05:35:50 +00:00
} ) ;
}
else
{
/* Do control and data flow analysis,
and write some of the results to dump file . */
1999-08-30 04:01:02 +00:00
TIMEVAR
( flow_time ,
{
find_basic_blocks ( insns , max_reg_num ( ) , rtl_dump_file , 1 ) ;
1999-10-27 09:31:52 +00:00
life_analysis ( insns , max_reg_num ( ) , rtl_dump_file , 1 ) ;
1999-08-30 04:01:02 +00:00
} ) ;
1996-09-18 05:35:50 +00:00
if ( warn_uninitialized )
{
uninitialized_vars_warning ( DECL_INITIAL ( decl ) ) ;
setjmp_args_warning ( ) ;
}
}
/* Dump rtl after flow analysis. */
if ( flow_dump )
1999-10-27 09:31:52 +00:00
{
close_dump_file ( print_rtl_with_bb , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .flow " , insns ) ;
}
/* The first life analysis pass has finished. From now on we can not
generate any new pseudos . */
no_new_pseudos = 1 ;
1996-09-18 05:35:50 +00:00
/* If -opt, try combining insns through substitution. */
if ( optimize > 0 )
1999-08-30 04:01:02 +00:00
{
TIMEVAR ( combine_time , combine_instructions ( insns , max_reg_num ( ) ) ) ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
/* Dump rtl code after insn combination. */
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
if ( combine_dump )
1999-10-27 09:31:52 +00:00
{
dump_rtl ( " .combine " , decl , print_rtl_with_bb , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .combine " , insns ) ;
}
1999-08-30 04:01:02 +00:00
}
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
/* Register allocation pre-pass, to reduce number of moves
necessary for two - address machines . */
if ( optimize > 0 & & ( flag_regmove | | flag_expensive_optimizations ) )
{
if ( regmove_dump )
open_dump_file ( " .regmove " , decl_printable_name ( decl , 2 ) ) ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
TIMEVAR ( regmove_time , regmove_optimize ( insns , max_reg_num ( ) ,
rtl_dump_file ) ) ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
if ( regmove_dump )
1999-10-27 09:31:52 +00:00
{
close_dump_file ( print_rtl_with_bb , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .regmove " , insns ) ;
}
1999-08-30 04:01:02 +00:00
}
1996-09-18 05:35:50 +00:00
/* Print function header into sched dump now
because doing the sched analysis makes some of the dump . */
if ( optimize > 0 & & flag_schedule_insns )
{
1999-08-30 04:01:02 +00:00
if ( sched_dump )
open_dump_file ( " .sched " , decl_printable_name ( decl , 2 ) ) ;
1999-10-27 09:31:52 +00:00
1996-09-18 05:35:50 +00:00
/* Do control and data sched analysis,
and write some of the results to dump file . */
1999-08-30 04:01:02 +00:00
TIMEVAR ( sched_time , schedule_insns ( rtl_dump_file ) ) ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
/* Dump rtl after instruction scheduling. */
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
if ( sched_dump )
1999-10-27 09:31:52 +00:00
{
close_dump_file ( print_rtl_with_bb , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .sched " , insns ) ;
}
1996-09-18 05:35:50 +00:00
}
1999-10-27 09:31:52 +00:00
/* Determine if the current function is a leaf before running reload
since this can impact optimizations done by the prologue and
epilogue thus changing register elimination offsets . */
current_function_is_leaf = leaf_function_p ( ) ;
1996-09-18 05:35:50 +00:00
/* Unless we did stupid register allocation,
1999-10-27 09:31:52 +00:00
allocate pseudo - regs that are used only within 1 basic block .
RUN_JUMP_AFTER_RELOAD records whether or not we need to rerun the
jump optimizer after register allocation and reloading are finished . */
1996-09-18 05:35:50 +00:00
if ( ! obey_regdecls )
TIMEVAR ( local_alloc_time ,
{
1999-10-27 09:31:52 +00:00
recompute_reg_usage ( insns , ! optimize_size ) ;
1996-09-18 05:35:50 +00:00
regclass ( insns , max_reg_num ( ) ) ;
1999-10-27 09:31:52 +00:00
rebuild_label_notes_after_reload = local_alloc ( ) ;
1996-09-18 05:35:50 +00:00
} ) ;
1999-10-27 09:31:52 +00:00
else
rebuild_label_notes_after_reload = 0 ;
1996-09-18 05:35:50 +00:00
/* Dump rtl code after allocating regs within basic blocks. */
if ( local_reg_dump )
1999-08-30 04:01:02 +00:00
{
open_dump_file ( " .lreg " , decl_printable_name ( decl , 2 ) ) ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
TIMEVAR ( dump_time , dump_flow_info ( rtl_dump_file ) ) ;
TIMEVAR ( dump_time , dump_local_alloc ( rtl_dump_file ) ) ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
close_dump_file ( print_rtl_with_bb , insns ) ;
1999-10-27 09:31:52 +00:00
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .lreg " , insns ) ;
1999-08-30 04:01:02 +00:00
}
1996-09-18 05:35:50 +00:00
if ( global_reg_dump )
1999-08-30 04:01:02 +00:00
open_dump_file ( " .greg " , decl_printable_name ( decl , 2 ) ) ;
1996-09-18 05:35:50 +00:00
/* Unless we did stupid register allocation,
allocate remaining pseudo - regs , then do the reload pass
fixing up any insns that are invalid . */
TIMEVAR ( global_alloc_time ,
{
if ( ! obey_regdecls )
1999-08-30 04:01:02 +00:00
failure = global_alloc ( rtl_dump_file ) ;
1996-09-18 05:35:50 +00:00
else
1999-08-30 04:01:02 +00:00
failure = reload ( insns , 0 , rtl_dump_file ) ;
1996-09-18 05:35:50 +00:00
} ) ;
if ( failure )
goto exit_rest_of_compilation ;
1999-08-30 04:01:02 +00:00
/* Do a very simple CSE pass over just the hard registers. */
if ( optimize > 0 )
reload_cse_regs ( insns ) ;
1999-10-27 09:31:52 +00:00
/* Register allocation and reloading may have turned an indirect jump into
a direct jump . If so , we must rebuild the JUMP_LABEL fields of
jumping instructions . */
if ( rebuild_label_notes_after_reload )
TIMEVAR ( jump_time , rebuild_jump_labels ( insns ) ) ;
/* If optimizing and we are performing instruction scheduling after
reload , then go ahead and split insns now since we are about to
recompute flow information anyway .
reload_cse_regs may expose more splitting opportunities , expecially
for double - word operations . */
if ( optimize > 0 & & flag_schedule_insns_after_reload )
{
rtx insn ;
for ( insn = insns ; insn ; insn = NEXT_INSN ( insn ) )
{
rtx last ;
if ( GET_RTX_CLASS ( GET_CODE ( insn ) ) ! = ' i ' )
continue ;
last = try_split ( PATTERN ( insn ) , insn , 1 ) ;
if ( last ! = insn )
{
PUT_CODE ( insn , NOTE ) ;
NOTE_SOURCE_FILE ( insn ) = 0 ;
NOTE_LINE_NUMBER ( insn ) = NOTE_INSN_DELETED ;
}
}
}
if ( global_reg_dump )
{
TIMEVAR ( dump_time , dump_global_regs ( rtl_dump_file ) ) ;
close_dump_file ( print_rtl_with_bb , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .greg " , insns ) ;
}
/* Re-create the death notes which were deleted during reload. */
if ( flow2_dump )
open_dump_file ( " .flow2 " , decl_printable_name ( decl , 2 ) ) ;
if ( optimize )
{
TIMEVAR
( flow2_time ,
{
find_basic_blocks ( insns , max_reg_num ( ) , rtl_dump_file , 1 ) ;
life_analysis ( insns , max_reg_num ( ) , rtl_dump_file , 1 ) ;
} ) ;
}
flow2_completed = 1 ;
1996-09-18 05:35:50 +00:00
/* On some machines, the prologue and epilogue code, or parts thereof,
can be represented as RTL . Doing so lets us schedule insns between
it and the rest of the code and also allows delayed branch
scheduling to operate in the epilogue . */
thread_prologue_and_epilogue_insns ( insns ) ;
1999-10-27 09:31:52 +00:00
if ( flow2_dump )
1999-08-30 04:01:02 +00:00
{
close_dump_file ( print_rtl_with_bb , insns ) ;
1999-10-27 09:31:52 +00:00
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .flow2 " , insns ) ;
1999-08-30 04:01:02 +00:00
}
1999-10-27 09:31:52 +00:00
1996-09-18 05:35:50 +00:00
if ( optimize > 0 & & flag_schedule_insns_after_reload )
{
if ( sched2_dump )
1999-08-30 04:01:02 +00:00
open_dump_file ( " .sched2 " , decl_printable_name ( decl , 2 ) ) ;
1996-09-18 05:35:50 +00:00
/* Do control and data sched analysis again,
and write some more of the results to dump file . */
1999-08-30 04:01:02 +00:00
TIMEVAR ( sched2_time , schedule_insns ( rtl_dump_file ) ) ;
1996-09-18 05:35:50 +00:00
/* Dump rtl after post-reorder instruction scheduling. */
if ( sched2_dump )
1999-10-27 09:31:52 +00:00
{
close_dump_file ( print_rtl_with_bb , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .sched2 " , insns ) ;
}
1996-09-18 05:35:50 +00:00
}
# ifdef LEAF_REGISTERS
1999-10-27 09:31:52 +00:00
current_function_uses_only_leaf_regs
= optimize > 0 & & only_leaf_regs_used ( ) & & leaf_function_p ( ) ;
1996-09-18 05:35:50 +00:00
# endif
/* One more attempt to remove jumps to .+1
left by dead - store - elimination .
Also do cross - jumping this time
and delete no - op move insns . */
if ( optimize > 0 )
{
1999-08-30 04:01:02 +00:00
TIMEVAR ( jump_time , jump_optimize ( insns , JUMP_CROSS_JUMP ,
JUMP_NOOP_MOVES ,
! JUMP_AFTER_REGSCAN ) ) ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
/* Dump rtl code after jump, if we are doing that. */
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
if ( jump2_opt_dump )
1999-10-27 09:31:52 +00:00
{
dump_rtl ( " .jump2 " , decl , print_rtl_with_bb , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .jump2 " , insns ) ;
}
1999-08-30 04:01:02 +00:00
}
1996-09-18 05:35:50 +00:00
/* If a machine dependent reorganization is needed, call it. */
# ifdef MACHINE_DEPENDENT_REORG
MACHINE_DEPENDENT_REORG ( insns ) ;
1999-08-30 04:01:02 +00:00
if ( mach_dep_reorg_dump )
1999-10-27 09:31:52 +00:00
{
dump_rtl ( " .mach " , decl , print_rtl_with_bb , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .mach " , insns ) ;
}
1996-09-18 05:35:50 +00:00
# endif
/* If a scheduling pass for delayed branches is to be done,
1999-08-30 04:01:02 +00:00
call the scheduling code . */
1996-09-18 05:35:50 +00:00
# ifdef DELAY_SLOTS
if ( optimize > 0 & & flag_delayed_branch )
{
1999-10-27 09:31:52 +00:00
if ( dbr_sched_dump )
open_dump_file ( " .dbr " , decl_printable_name ( decl , 2 ) ) ;
1999-08-30 04:01:02 +00:00
TIMEVAR ( dbr_sched_time , dbr_schedule ( insns , rtl_dump_file ) ) ;
1999-10-27 09:31:52 +00:00
1996-09-18 05:35:50 +00:00
if ( dbr_sched_dump )
1999-10-27 09:31:52 +00:00
{
close_dump_file ( print_rtl_with_bb , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .dbr " , insns ) ;
}
1996-09-18 05:35:50 +00:00
}
# endif
/* Shorten branches. */
TIMEVAR ( shorten_branch_time ,
{
shorten_branches ( get_insns ( ) ) ;
} ) ;
# ifdef STACK_REGS
1999-10-27 09:31:52 +00:00
if ( stack_reg_dump )
open_dump_file ( " .stack " , decl_printable_name ( decl , 2 ) ) ;
1999-08-30 04:01:02 +00:00
TIMEVAR ( stack_reg_time , reg_to_stack ( insns , rtl_dump_file ) ) ;
1996-09-18 05:35:50 +00:00
if ( stack_reg_dump )
1999-10-27 09:31:52 +00:00
{
dump_rtl ( " .stack " , decl , print_rtl_with_bb , insns ) ;
if ( graph_dump_format ! = no_graph )
print_rtl_graph_with_bb ( dump_base_name , " .stack " , insns ) ;
}
1996-09-18 05:35:50 +00:00
# endif
/* Now turn the rtl into assembler code. */
TIMEVAR ( final_time ,
{
rtx x ;
char * fnname ;
/* Get the function's name, as described by its RTL.
This may be different from the DECL_NAME name used
in the source file . */
x = DECL_RTL ( decl ) ;
if ( GET_CODE ( x ) ! = MEM )
abort ( ) ;
x = XEXP ( x , 0 ) ;
if ( GET_CODE ( x ) ! = SYMBOL_REF )
abort ( ) ;
fnname = XSTR ( x , 0 ) ;
assemble_start_function ( decl , fnname ) ;
final_start_function ( insns , asm_out_file , optimize ) ;
final ( insns , asm_out_file , optimize , 0 ) ;
final_end_function ( insns , asm_out_file , optimize ) ;
assemble_end_function ( decl , fnname ) ;
1999-08-30 04:01:02 +00:00
if ( ! quiet_flag )
fflush ( asm_out_file ) ;
1999-10-27 09:31:52 +00:00
/* Release all memory allocated by flow. */
free_basic_block_vars ( 0 ) ;
1999-08-30 04:01:02 +00:00
/* Release all memory held by regsets now */
regset_release_memory ( ) ;
1996-09-18 05:35:50 +00:00
} ) ;
/* Write DBX symbols if requested */
/* Note that for those inline functions where we don't initially
know for certain that we will be generating an out - of - line copy ,
the first invocation of this routine ( rest_of_compilation ) will
skip over this code by doing a ` goto exit_rest_of_compilation ; ' .
Later on , finish_compilation will call rest_of_compilation again
for those inline functions that need to have out - of - line copies
generated . During that call , we * will * be routed past here . */
# ifdef DBX_DEBUGGING_INFO
if ( write_symbols = = DBX_DEBUG )
TIMEVAR ( symout_time , dbxout_function ( decl ) ) ;
# endif
# ifdef DWARF_DEBUGGING_INFO
if ( write_symbols = = DWARF_DEBUG )
TIMEVAR ( symout_time , dwarfout_file_scope_decl ( decl , 0 ) ) ;
# endif
1999-08-30 04:01:02 +00:00
# ifdef DWARF2_DEBUGGING_INFO
if ( write_symbols = = DWARF2_DEBUG )
TIMEVAR ( symout_time , dwarf2out_decl ( decl ) ) ;
# endif
1996-09-18 05:35:50 +00:00
exit_rest_of_compilation :
1999-10-27 09:31:52 +00:00
free_bb_mem ( ) ;
1996-09-18 05:35:50 +00:00
/* In case the function was not output,
don ' t leave any temporary anonymous types
queued up for sdb output . */
# ifdef SDB_DEBUGGING_INFO
if ( write_symbols = = SDB_DEBUG )
sdbout_types ( NULL_TREE ) ;
# endif
/* Put back the tree of subblocks and list of arguments
from before we copied them .
Code generation and the output of debugging info may have modified
the copy , but the original is unchanged . */
if ( saved_block_tree ! = 0 )
1999-08-30 04:01:02 +00:00
{
DECL_INITIAL ( decl ) = saved_block_tree ;
DECL_ARGUMENTS ( decl ) = saved_arguments ;
DECL_ABSTRACT_ORIGIN ( decl ) = NULL_TREE ;
}
1996-09-18 05:35:50 +00:00
reload_completed = 0 ;
1999-10-27 09:31:52 +00:00
flow2_completed = 0 ;
no_new_pseudos = 0 ;
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
TIMEVAR ( final_time ,
{
/* Clear out the insn_length contents now that they are no
longer valid . */
init_insn_lengths ( ) ;
/* Clear out the real_constant_chain before some of the rtx's
it runs through become garbage . */
clear_const_double_mem ( ) ;
/* Cancel the effect of rtl_in_current_obstack. */
resume_temporary_allocation ( ) ;
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
/* Show no temporary slots allocated. */
init_temp_slots ( ) ;
} ) ;
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
/* Make sure volatile mem refs aren't considered valid operands for
arithmetic insns . We must call this here if this is a nested inline
function , since the above code leaves us in the init_recog state
( from final . c ) , and the function context push / pop code does not
save / restore volatile_ok .
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
? ? ? Maybe it isn ' t necessary for expand_start_function to call this
anymore if we do it here ? */
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
init_recog_no_volatile ( ) ;
1996-09-18 05:35:50 +00:00
/* The parsing time is all the time spent in yyparse
* except * what is spent in this function . */
parse_time - = get_run_time ( ) - start_time ;
1999-10-27 09:31:52 +00:00
/* Reset global variables. */
free_basic_block_vars ( 0 ) ;
1996-09-18 05:35:50 +00:00
}
1999-08-30 04:01:02 +00:00
static void
display_help ( )
{
int undoc ;
1999-10-27 09:31:52 +00:00
unsigned long i ;
const char * lang ;
# ifndef USE_CPPLIB
1999-08-30 04:01:02 +00:00
printf ( " Usage: %s input [switches] \n " , progname ) ;
printf ( " Switches: \n " ) ;
# endif
printf ( " -ffixed-<register> Mark <register> as being unavailable to the compiler \n " ) ;
printf ( " -fcall-used-<register> Mark <register> as being corrupted by function calls \n " ) ;
printf ( " -fcall-saved-<register> Mark <register> as being preserved across functions \n " ) ;
1999-10-27 09:31:52 +00:00
printf ( " -finline-limit-<number> Limits the size of inlined functions to <number> \n " ) ;
1999-08-30 04:01:02 +00:00
for ( i = NUM_ELEM ( f_options ) ; i - - ; )
{
1999-10-27 09:31:52 +00:00
const char * description = f_options [ i ] . description ;
1999-08-30 04:01:02 +00:00
if ( description ! = NULL & & * description ! = 0 )
printf ( " -f%-21s %s \n " ,
f_options [ i ] . string , description ) ;
}
printf ( " -O[number] Set optimisation level to [number] \n " ) ;
printf ( " -Os Optimise for space rather than speed \n " ) ;
printf ( " -pedantic Issue warnings needed by strict compliance to ANSI C \n " ) ;
printf ( " -pedantic-errors Like -pedantic except that errors are produced \n " ) ;
printf ( " -w Suppress warnings \n " ) ;
printf ( " -W Enable extra warnings \n " ) ;
for ( i = NUM_ELEM ( W_options ) ; i - - ; )
{
1999-10-27 09:31:52 +00:00
const char * description = W_options [ i ] . description ;
1999-08-30 04:01:02 +00:00
if ( description ! = NULL & & * description ! = 0 )
printf ( " -W%-21s %s \n " ,
W_options [ i ] . string , description ) ;
}
printf ( " -Wid-clash-<num> Warn if 2 identifiers have the same first <num> chars \n " ) ;
printf ( " -Wlarger-than-<number> Warn if an object is larger than <number> bytes \n " ) ;
printf ( " -p Enable function profiling \n " ) ;
# if defined (BLOCK_PROFILER) || defined (FUNCTION_BLOCK_PROFILER)
printf ( " -a Enable block profiling \n " ) ;
# endif
# if defined (BLOCK_PROFILER) || defined (FUNCTION_BLOCK_PROFILER) || defined FUNCTION_BLOCK_PROFILER_EXIT
printf ( " -ax Enable jump profiling \n " ) ;
# endif
printf ( " -o <file> Place output into <file> \n " ) ;
printf ( " -G <number> Put global and static data smaller than <number> \n " ) ;
printf ( " bytes into a special section (on some targets) \n " ) ;
for ( i = NUM_ELEM ( debug_args ) ; i - - ; )
{
if ( debug_args [ i ] . description ! = NULL )
printf ( " -%-22s %s \n " , debug_args [ i ] . arg , debug_args [ i ] . description ) ;
}
printf ( " -aux-info <file> Emit declaration info into <file>.X \n " ) ;
printf ( " -quiet Do not display functions compiled or elapsed time \n " ) ;
printf ( " -version Display the compiler's version \n " ) ;
printf ( " -d[letters] Enable dumps from specific passes of the compiler \n " ) ;
printf ( " -dumpbase <file> Base name to be used for dumps from specific passes \n " ) ;
# if defined HAIFA || defined INSN_SCHEDULING
printf ( " -sched-verbose-<number> Set the verbosity level of the scheduler \n " ) ;
# endif
printf ( " --help Display this information \n " ) ;
undoc = 0 ;
lang = " language " ;
/* Display descriptions of language specific options.
If there is no description , note that there is an undocumented option .
If the description is empty , do not display anything . ( This allows
options to be deliberately undocumented , for whatever reason ) .
If the option string is missing , then this is a marker , indicating
1999-10-27 09:31:52 +00:00
that the description string is in fact the name of a language , whose
1999-08-30 04:01:02 +00:00
language specific options are to follow . */
if ( NUM_ELEM ( documented_lang_options ) > 1 )
{
printf ( " \n Language specific options: \n " ) ;
for ( i = 0 ; i < NUM_ELEM ( documented_lang_options ) ; i + + )
{
1999-10-27 09:31:52 +00:00
const char * description = documented_lang_options [ i ] . description ;
const char * option = documented_lang_options [ i ] . option ;
1999-08-30 04:01:02 +00:00
if ( description = = NULL )
1999-10-27 09:31:52 +00:00
{
undoc = 1 ;
if ( extra_warnings )
printf ( " %-23.23s [undocumented] \n " , option ) ;
}
1999-08-30 04:01:02 +00:00
else if ( * description = = 0 )
continue ;
else if ( option = = NULL )
{
if ( undoc )
printf
( " \n There are undocumented %s specific options as well. \n " ,
lang ) ;
undoc = 0 ;
printf ( " \n Options for %s: \n " , description ) ;
lang = description ;
}
else
printf ( " %-23.23s %s \n " , option , description ) ;
}
}
if ( undoc )
printf ( " \n There are undocumented %s specific options as well. \n " , lang ) ;
if ( NUM_ELEM ( target_switches ) > 1
# ifdef TARGET_OPTIONS
| | NUM_ELEM ( target_options ) > 1
# endif
)
{
int doc = 0 ;
undoc = 0 ;
printf ( " \n Target specific options: \n " ) ;
for ( i = NUM_ELEM ( target_switches ) ; i - - ; )
{
1999-10-27 09:31:52 +00:00
const char * option = target_switches [ i ] . name ;
const char * description = target_switches [ i ] . description ;
1999-08-30 04:01:02 +00:00
1999-10-27 09:31:52 +00:00
if ( option = = NULL | | * option = = 0 )
1999-08-30 04:01:02 +00:00
continue ;
else if ( description = = NULL )
1999-10-27 09:31:52 +00:00
{
undoc = 1 ;
if ( extra_warnings )
printf ( " -m%-21.21s [undocumented] \n " , option ) ;
}
1999-08-30 04:01:02 +00:00
else if ( * description ! = 0 )
1999-10-27 09:31:52 +00:00
doc + = printf ( " -m%-21.21s %s \n " , option , description ) ;
1999-08-30 04:01:02 +00:00
}
# ifdef TARGET_OPTIONS
for ( i = NUM_ELEM ( target_options ) ; i - - ; )
{
1999-10-27 09:31:52 +00:00
const char * option = target_options [ i ] . prefix ;
const char * description = target_options [ i ] . description ;
1999-08-30 04:01:02 +00:00
1999-10-27 09:31:52 +00:00
if ( option = = NULL | | * option = = 0 )
1999-08-30 04:01:02 +00:00
continue ;
else if ( description = = NULL )
1999-10-27 09:31:52 +00:00
{
undoc = 1 ;
if ( extra_warnings )
printf ( " -m%-21.21s [undocumented] \n " , option ) ;
}
1999-08-30 04:01:02 +00:00
else if ( * description ! = 0 )
1999-10-27 09:31:52 +00:00
doc + = printf ( " -m%-21.21s %s \n " , option , description ) ;
1999-08-30 04:01:02 +00:00
}
# endif
if ( undoc )
1999-10-27 09:31:52 +00:00
{
if ( doc )
printf ( " \n There are undocumented target specific options as well. \n " ) ;
else
printf ( " They exist, but they are not documented. \n " ) ;
}
1999-08-30 04:01:02 +00:00
}
}
/* Compare the user specified 'option' with the language
specific ' lang_option ' . Return true if they match , or
if ' option ' is a viable prefix of ' lang_option ' . */
static int
check_lang_option ( option , lang_option )
char * option ;
char * lang_option ;
{
lang_independent_options * indep_options ;
int len ;
2001-01-03 18:05:31 +00:00
int numopts ;
long k ;
1999-10-27 09:31:52 +00:00
char * space ;
1999-08-30 04:01:02 +00:00
/* Ignore NULL entries. */
if ( option = = NULL | | lang_option = = NULL )
return 0 ;
1999-10-27 09:31:52 +00:00
if ( ( space = strchr ( lang_option , ' ' ) ) ! = NULL )
len = space - lang_option ;
else
len = strlen ( lang_option ) ;
1999-08-30 04:01:02 +00:00
/* If they do not match to the first n characters then fail. */
if ( strncmp ( option , lang_option , len ) ! = 0 )
return 0 ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
/* Do not accept a lang option, if it matches a normal -f or -W
option . Chill defines a - fpack , but we want to support
- fpack - struct . */
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
/* An exact match is OK */
1999-10-27 09:31:52 +00:00
if ( ( int ) strlen ( option ) = = len )
1999-08-30 04:01:02 +00:00
return 1 ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
/* If it is not an -f or -W option allow the match */
if ( option [ 0 ] ! = ' - ' )
return 1 ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
switch ( option [ 1 ] )
{
2001-01-03 18:05:31 +00:00
case ' f ' :
indep_options = f_options ;
numopts = NUM_ELEM ( f_options ) ;
break ;
case ' W ' :
indep_options = W_options ;
numopts = NUM_ELEM ( W_options ) ;
break ;
1999-08-30 04:01:02 +00:00
default : return 1 ;
}
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
/* The option is a -f or -W option.
Skip past the prefix and search for the remainder in the
appropriate table of options . */
option + = 2 ;
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
if ( option [ 0 ] = = ' n ' & & option [ 1 ] = = ' o ' & & option [ 2 ] = = ' - ' )
option + = 3 ;
1999-10-27 09:31:52 +00:00
2001-01-03 18:05:31 +00:00
for ( k = numopts ; k - - ; )
1999-08-30 04:01:02 +00:00
{
if ( ! strcmp ( option , indep_options [ k ] . string ) )
{
/* The option matched a language independent option,
do not allow the language specific match . */
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
return 0 ;
}
}
1999-10-27 09:31:52 +00:00
1999-08-30 04:01:02 +00:00
/* The option matches the start of the langauge specific option
and it is not an exact match for a language independent option . */
return 1 ;
}
1996-09-18 05:35:50 +00:00
/* Entry point of cc1/c++. Decode command args, then call compile_file.
Exit code is 35 if can ' t open files , 34 if fatal error ,
33 if had nonfatal errors , else success . */
int
1999-10-27 09:31:52 +00:00
main ( argc , argv )
1996-09-18 05:35:50 +00:00
int argc ;
char * * argv ;
{
register int i ;
char * filename = 0 ;
int flag_print_mem = 0 ;
int version_flag = 0 ;
char * p ;
/* save in case md file wants to emit args as a comment. */
save_argc = argc ;
save_argv = argv ;
p = argv [ 0 ] + strlen ( argv [ 0 ] ) ;
while ( p ! = argv [ 0 ] & & p [ - 1 ] ! = ' / '
# ifdef DIR_SEPARATOR
& & p [ - 1 ] ! = DIR_SEPARATOR
# endif
)
- - p ;
progname = p ;
1999-08-30 04:01:02 +00:00
# if defined (RLIMIT_STACK) && defined (HAVE_GETRLIMIT) && defined (HAVE_SETRLIMIT)
1996-09-18 05:35:50 +00:00
/* Get rid of any avoidable limit on stack size. */
{
struct rlimit rlim ;
1999-08-30 04:01:02 +00:00
/* Set the stack limit huge so that alloca does not fail. */
1996-09-18 05:35:50 +00:00
getrlimit ( RLIMIT_STACK , & rlim ) ;
rlim . rlim_cur = rlim . rlim_max ;
setrlimit ( RLIMIT_STACK , & rlim ) ;
}
1999-08-30 04:01:02 +00:00
# endif
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
# ifdef HAVE_LC_MESSAGES
setlocale ( LC_MESSAGES , " " ) ;
# endif
( void ) bindtextdomain ( PACKAGE , localedir ) ;
( void ) textdomain ( PACKAGE ) ;
1996-09-18 05:35:50 +00:00
signal ( SIGFPE , float_signal ) ;
# ifdef SIGPIPE
signal ( SIGPIPE , pipe_closed ) ;
# endif
decl_printable_name = decl_name ;
1999-10-27 09:31:52 +00:00
lang_expand_expr = ( lang_expand_expr_t ) do_abort ;
1996-09-18 05:35:50 +00:00
/* Initialize whether `char' is signed. */
flag_signed_char = DEFAULT_SIGNED_CHAR ;
# ifdef DEFAULT_SHORT_ENUMS
/* Initialize how much space enums occupy, by default. */
flag_short_enums = DEFAULT_SHORT_ENUMS ;
# endif
1999-08-30 04:01:02 +00:00
/* Perform language-specific options intialization. */
lang_init_options ( ) ;
1996-09-18 05:35:50 +00:00
/* Scan to see what optimization level has been specified. That will
determine the default value of many flags . */
for ( i = 1 ; i < argc ; i + + )
{
if ( ! strcmp ( argv [ i ] , " -O " ) )
{
optimize = 1 ;
1999-10-27 09:31:52 +00:00
optimize_size = 0 ;
1996-09-18 05:35:50 +00:00
}
else if ( argv [ i ] [ 0 ] = = ' - ' & & argv [ i ] [ 1 ] = = ' O ' )
{
1999-08-30 04:01:02 +00:00
/* Handle -Os, -O2, -O3, -O69, ... */
1996-09-18 05:35:50 +00:00
char * p = & argv [ i ] [ 2 ] ;
1999-08-30 04:01:02 +00:00
if ( ( p [ 0 ] = = ' s ' ) & & ( p [ 1 ] = = 0 ) )
1999-10-27 09:31:52 +00:00
{
optimize_size = 1 ;
/* Optimizing for size forces optimize to be 2. */
optimize = 2 ;
}
1999-08-30 04:01:02 +00:00
else
{
1999-10-27 09:31:52 +00:00
const int optimize_val = read_integral_parameter ( p , p - 2 , - 1 ) ;
if ( optimize_val ! = - 1 )
{
optimize = optimize_val ;
2001-08-16 06:05:18 +00:00
# ifdef FORCE_OPTIMIZATION_DOWNGRADE
# warning FORCE_OPTIMIZATION_DOWNGRADE
if ( optimize > FORCE_OPTIMIZATION_DOWNGRADE )
{
optimize = FORCE_OPTIMIZATION_DOWNGRADE ;
warning ( " \n *** \n *** \t -O%d converted to \" -O%d \" due to optimizer bugs on this platform \n *** \n " ,
optimize_val ,
FORCE_OPTIMIZATION_DOWNGRADE ) ;
}
# endif /*FORCE_OPTIMIZATION_DOWNGRADE*/
# if defined(__alpha__)
2000-03-26 12:56:54 +00:00
if ( optimize > 1 )
{
warning ( " \n *** \n *** \t The -O%d flag TRIGGERS KNOWN OPTIMIZER BUGS ON THIS PLATFORM \n *** \n " ,
optimize_val ) ;
}
2000-12-01 10:20:17 +00:00
# endif /*__alpha__*/
1999-10-27 09:31:52 +00:00
optimize_size = 0 ;
}
1999-08-30 04:01:02 +00:00
}
1996-09-18 05:35:50 +00:00
}
}
obey_regdecls = ( optimize = = 0 ) ;
if ( optimize > = 1 )
{
flag_defer_pop = 1 ;
flag_thread_jumps = 1 ;
# ifdef DELAY_SLOTS
flag_delayed_branch = 1 ;
# endif
# ifdef CAN_DEBUG_WITHOUT_FP
flag_omit_frame_pointer = 1 ;
# endif
}
if ( optimize > = 2 )
{
flag_cse_follow_jumps = 1 ;
flag_cse_skip_blocks = 1 ;
1999-08-30 04:01:02 +00:00
flag_gcse = 1 ;
1996-09-18 05:35:50 +00:00
flag_expensive_optimizations = 1 ;
flag_strength_reduce = 1 ;
flag_rerun_cse_after_loop = 1 ;
1999-08-30 04:01:02 +00:00
flag_rerun_loop_opt = 1 ;
1996-09-18 05:35:50 +00:00
flag_caller_saves = 1 ;
flag_force_mem = 1 ;
# ifdef INSN_SCHEDULING
flag_schedule_insns = 1 ;
flag_schedule_insns_after_reload = 1 ;
# endif
1999-08-30 04:01:02 +00:00
flag_regmove = 1 ;
1996-09-18 05:35:50 +00:00
}
if ( optimize > = 3 )
{
flag_inline_functions = 1 ;
}
1999-08-30 04:01:02 +00:00
/* Initialize target_flags before OPTIMIZATION_OPTIONS so the latter can
modify it . */
target_flags = 0 ;
set_target_switch ( " " ) ;
1996-09-18 05:35:50 +00:00
# ifdef OPTIMIZATION_OPTIONS
/* Allow default optimizations to be specified on a per-machine basis. */
1999-08-30 04:01:02 +00:00
OPTIMIZATION_OPTIONS ( optimize , optimize_size ) ;
1996-09-18 05:35:50 +00:00
# endif
/* Initialize register usage now so switches may override. */
init_reg_sets ( ) ;
for ( i = 1 ; i < argc ; i + + )
{
1999-08-30 04:01:02 +00:00
size_t j ;
1996-09-18 05:35:50 +00:00
/* If this is a language-specific option,
decode it in a language - specific way . */
1999-08-30 04:01:02 +00:00
for ( j = NUM_ELEM ( documented_lang_options ) ; j - - ; )
if ( check_lang_option ( argv [ i ] , documented_lang_options [ j ] . option ) )
1996-09-18 05:35:50 +00:00
break ;
1999-08-30 04:01:02 +00:00
1999-10-27 09:31:52 +00:00
if ( j ! = ( size_t ) - 1 )
1999-08-30 04:01:02 +00:00
{
/* If the option is valid for *some* language,
treat it as valid even if this language doesn ' t understand it . */
int strings_processed = lang_decode_option ( argc - i , argv + i ) ;
if ( ! strcmp ( argv [ i ] , " --help " ) )
{
display_help ( ) ;
exit ( 0 ) ;
}
if ( strings_processed ! = 0 )
i + = strings_processed - 1 ;
}
1996-09-18 05:35:50 +00:00
else if ( argv [ i ] [ 0 ] = = ' - ' & & argv [ i ] [ 1 ] ! = 0 )
{
register char * str = argv [ i ] + 1 ;
if ( str [ 0 ] = = ' Y ' )
str + + ;
if ( str [ 0 ] = = ' m ' )
set_target_switch ( & str [ 1 ] ) ;
else if ( ! strcmp ( str , " dumpbase " ) )
{
dump_base_name = argv [ + + i ] ;
}
else if ( str [ 0 ] = = ' d ' )
{
register char * p = & str [ 1 ] ;
while ( * p )
switch ( * p + + )
{
case ' a ' :
1999-08-30 04:01:02 +00:00
branch_prob_dump = 1 ;
1996-09-18 05:35:50 +00:00
combine_dump = 1 ;
1999-08-30 04:01:02 +00:00
# ifdef DELAY_SLOTS
1996-09-18 05:35:50 +00:00
dbr_sched_dump = 1 ;
1999-08-30 04:01:02 +00:00
# endif
1996-09-18 05:35:50 +00:00
flow_dump = 1 ;
1999-10-27 09:31:52 +00:00
flow2_dump = 1 ;
1996-09-18 05:35:50 +00:00
global_reg_dump = 1 ;
jump_opt_dump = 1 ;
1999-08-30 04:01:02 +00:00
addressof_dump = 1 ;
1996-09-18 05:35:50 +00:00
jump2_opt_dump = 1 ;
local_reg_dump = 1 ;
loop_dump = 1 ;
1999-08-30 04:01:02 +00:00
regmove_dump = 1 ;
1996-09-18 05:35:50 +00:00
rtl_dump = 1 ;
cse_dump = 1 , cse2_dump = 1 ;
1999-08-30 04:01:02 +00:00
gcse_dump = 1 ;
1996-09-18 05:35:50 +00:00
sched_dump = 1 ;
sched2_dump = 1 ;
1999-08-30 04:01:02 +00:00
# ifdef STACK_REGS
1996-09-18 05:35:50 +00:00
stack_reg_dump = 1 ;
1999-08-30 04:01:02 +00:00
# endif
# ifdef MACHINE_DEPENDENT_REORG
mach_dep_reorg_dump = 1 ;
# endif
1996-09-18 05:35:50 +00:00
break ;
1999-08-30 04:01:02 +00:00
case ' A ' :
flag_debug_asm = 1 ;
break ;
case ' b ' :
branch_prob_dump = 1 ;
1996-09-18 05:35:50 +00:00
break ;
case ' c ' :
combine_dump = 1 ;
break ;
1999-08-30 04:01:02 +00:00
# ifdef DELAY_SLOTS
1996-09-18 05:35:50 +00:00
case ' d ' :
dbr_sched_dump = 1 ;
break ;
1999-08-30 04:01:02 +00:00
# endif
1996-09-18 05:35:50 +00:00
case ' f ' :
flow_dump = 1 ;
break ;
1999-08-30 04:01:02 +00:00
case ' F ' :
addressof_dump = 1 ;
break ;
1996-09-18 05:35:50 +00:00
case ' g ' :
global_reg_dump = 1 ;
break ;
1999-08-30 04:01:02 +00:00
case ' G ' :
gcse_dump = 1 ;
break ;
1996-09-18 05:35:50 +00:00
case ' j ' :
jump_opt_dump = 1 ;
break ;
case ' J ' :
jump2_opt_dump = 1 ;
break ;
1999-08-30 04:01:02 +00:00
# ifdef STACK_REGS
case ' k ' :
stack_reg_dump = 1 ;
break ;
# endif
1996-09-18 05:35:50 +00:00
case ' l ' :
local_reg_dump = 1 ;
break ;
case ' L ' :
loop_dump = 1 ;
break ;
case ' m ' :
flag_print_mem = 1 ;
break ;
1999-08-30 04:01:02 +00:00
# ifdef MACHINE_DEPENDENT_REORG
case ' M ' :
mach_dep_reorg_dump = 1 ;
break ;
# endif
1996-09-18 05:35:50 +00:00
case ' p ' :
flag_print_asm_name = 1 ;
break ;
case ' r ' :
rtl_dump = 1 ;
break ;
1999-08-30 04:01:02 +00:00
case ' R ' :
sched2_dump = 1 ;
break ;
1996-09-18 05:35:50 +00:00
case ' s ' :
cse_dump = 1 ;
break ;
case ' S ' :
sched_dump = 1 ;
break ;
1999-08-30 04:01:02 +00:00
case ' t ' :
cse2_dump = 1 ;
break ;
case ' N ' :
regmove_dump = 1 ;
1996-09-18 05:35:50 +00:00
break ;
1999-10-27 09:31:52 +00:00
case ' v ' :
graph_dump_format = vcg ;
break ;
case ' w ' :
flow2_dump = 1 ;
break ;
1996-09-18 05:35:50 +00:00
case ' y ' :
set_yydebug ( 1 ) ;
break ;
case ' x ' :
rtl_dump_and_exit = 1 ;
break ;
1999-10-27 09:31:52 +00:00
case ' D ' : /* these are handled by the preprocessor */
case ' I ' :
break ;
1999-08-30 04:01:02 +00:00
default :
warning ( " unrecognised gcc debugging option: %c " , p [ - 1 ] ) ;
break ;
1996-09-18 05:35:50 +00:00
}
}
else if ( str [ 0 ] = = ' f ' )
{
register char * p = & str [ 1 ] ;
int found = 0 ;
/* Some kind of -f option.
P ' s value is the option sans ` - f ' .
Search for it in the table of options . */
for ( j = 0 ;
! found & & j < sizeof ( f_options ) / sizeof ( f_options [ 0 ] ) ;
j + + )
{
if ( ! strcmp ( p , f_options [ j ] . string ) )
{
* f_options [ j ] . variable = f_options [ j ] . on_value ;
/* A goto here would be cleaner,
but breaks the vax pcc . */
found = 1 ;
}
if ( p [ 0 ] = = ' n ' & & p [ 1 ] = = ' o ' & & p [ 2 ] = = ' - '
& & ! strcmp ( p + 3 , f_options [ j ] . string ) )
{
* f_options [ j ] . variable = ! f_options [ j ] . on_value ;
found = 1 ;
}
}
if ( found )
;
1999-10-27 09:31:52 +00:00
else if ( ! strncmp ( p , " inline-limit- " , 13 ) )
inline_max_insns =
read_integral_parameter ( p + 13 , p - 2 , inline_max_insns ) ;
1999-08-30 04:01:02 +00:00
# ifdef HAIFA
# ifdef INSN_SCHEDULING
else if ( ! strncmp ( p , " sched-verbose- " , 14 ) )
fix_sched_param ( " verbose " , & p [ 14 ] ) ;
# endif
# endif /* HAIFA */
1996-09-18 05:35:50 +00:00
else if ( ! strncmp ( p , " fixed- " , 6 ) )
fix_register ( & p [ 6 ] , 1 , 1 ) ;
else if ( ! strncmp ( p , " call-used- " , 10 ) )
fix_register ( & p [ 10 ] , 0 , 1 ) ;
else if ( ! strncmp ( p , " call-saved- " , 11 ) )
fix_register ( & p [ 11 ] , 0 , 0 ) ;
else
error ( " Invalid option `%s' " , argv [ i ] ) ;
}
else if ( str [ 0 ] = = ' O ' )
{
1999-10-27 09:31:52 +00:00
/* Already been treated above. Do nothing. */
1996-09-18 05:35:50 +00:00
}
else if ( ! strcmp ( str , " pedantic " ) )
pedantic = 1 ;
else if ( ! strcmp ( str , " pedantic-errors " ) )
flag_pedantic_errors = pedantic = 1 ;
else if ( ! strcmp ( str , " quiet " ) )
quiet_flag = 1 ;
else if ( ! strcmp ( str , " version " ) )
version_flag = 1 ;
else if ( ! strcmp ( str , " w " ) )
inhibit_warnings = 1 ;
else if ( ! strcmp ( str , " W " ) )
{
extra_warnings = 1 ;
/* We save the value of warn_uninitialized, since if they put
- Wuninitialized on the command line , we need to generate a
warning about not using it without also specifying - O . */
if ( warn_uninitialized ! = 1 )
warn_uninitialized = 2 ;
}
else if ( str [ 0 ] = = ' W ' )
{
register char * p = & str [ 1 ] ;
int found = 0 ;
/* Some kind of -W option.
P ' s value is the option sans ` - W ' .
Search for it in the table of options . */
for ( j = 0 ;
! found & & j < sizeof ( W_options ) / sizeof ( W_options [ 0 ] ) ;
j + + )
{
if ( ! strcmp ( p , W_options [ j ] . string ) )
{
* W_options [ j ] . variable = W_options [ j ] . on_value ;
/* A goto here would be cleaner,
but breaks the vax pcc . */
found = 1 ;
}
if ( p [ 0 ] = = ' n ' & & p [ 1 ] = = ' o ' & & p [ 2 ] = = ' - '
& & ! strcmp ( p + 3 , W_options [ j ] . string ) )
{
* W_options [ j ] . variable = ! W_options [ j ] . on_value ;
found = 1 ;
}
}
if ( found )
;
else if ( ! strncmp ( p , " id-clash- " , 9 ) )
{
1999-10-27 09:31:52 +00:00
const int id_clash_val
= read_integral_parameter ( p + 9 , p - 2 , - 1 ) ;
if ( id_clash_val ! = - 1 )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
id_clash_len = id_clash_val ;
warn_id_clash = 1 ;
1996-09-18 05:35:50 +00:00
}
}
else if ( ! strncmp ( p , " larger-than- " , 12 ) )
{
1999-10-27 09:31:52 +00:00
const int larger_than_val
= read_integral_parameter ( p + 12 , p - 2 , - 1 ) ;
if ( larger_than_val ! = - 1 )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
larger_than_size = larger_than_val ;
warn_larger_than = 1 ;
1996-09-18 05:35:50 +00:00
}
}
else
error ( " Invalid option `%s' " , argv [ i ] ) ;
}
else if ( ! strcmp ( str , " p " ) )
{
1999-08-30 04:01:02 +00:00
profile_flag = 1 ;
1996-09-18 05:35:50 +00:00
}
else if ( ! strcmp ( str , " a " ) )
{
# if !defined (BLOCK_PROFILER) || !defined (FUNCTION_BLOCK_PROFILER)
warning ( " `-a' option (basic block profile) not supported " ) ;
# else
1999-08-30 04:01:02 +00:00
profile_block_flag = ( profile_block_flag < 2 ) ? 1 : 3 ;
# endif
}
else if ( ! strcmp ( str , " ax " ) )
{
# if !defined (FUNCTION_BLOCK_PROFILER_EXIT) || !defined (BLOCK_PROFILER) || !defined (FUNCTION_BLOCK_PROFILER)
warning ( " `-ax' option (jump profiling) not supported " ) ;
# else
profile_block_flag = ( ! profile_block_flag
| | profile_block_flag = = 2 ) ? 2 : 3 ;
1996-09-18 05:35:50 +00:00
# endif
}
else if ( str [ 0 ] = = ' g ' )
{
unsigned level ;
1999-08-30 04:01:02 +00:00
/* A lot of code assumes write_symbols == NO_DEBUG if the
debugging level is 0 ( thus - gstabs1 - gstabs0 would lose track
of what debugging type has been selected ) . This records the
selected type . It is an error to specify more than one
debugging type . */
static enum debug_info_type selected_debug_type = NO_DEBUG ;
/* Non-zero if debugging format has been explicitly set.
- g and - ggdb don ' t explicitly set the debugging format so
- gdwarf - g3 is equivalent to - gdwarf3 . */
static int type_explicitly_set_p = 0 ;
/* Indexed by enum debug_info_type. */
1999-10-27 09:31:52 +00:00
static const char * debug_type_names [ ] =
1999-08-30 04:01:02 +00:00
{
" none " , " stabs " , " coff " , " dwarf-1 " , " dwarf-2 " , " xcoff "
} ;
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
/* The maximum admissible debug level value. */
static const unsigned max_debug_level = 3 ;
1999-08-30 04:01:02 +00:00
/* Look up STR in the table. */
for ( da = debug_args ; da - > arg ; da + + )
1996-09-18 05:35:50 +00:00
{
1999-10-27 09:31:52 +00:00
const int da_len = strlen ( da - > arg ) ;
if ( ! strncmp ( str , da - > arg , da_len ) )
1999-08-30 04:01:02 +00:00
{
enum debug_info_type type = da - > debug_type ;
1999-10-27 09:31:52 +00:00
const char * p = str + da_len ;
1999-08-30 04:01:02 +00:00
if ( * p & & ( * p < ' 0 ' | | * p > ' 9 ' ) )
continue ;
1999-10-27 09:31:52 +00:00
/* A debug flag without a level defaults to level 2.
Note we do not want to call read_integral_parameter
for that case since it will call atoi which
will return zero .
? ? ? We may want to generalize the interface to
read_integral_parameter to better handle this case
if this case shows up often . */
1999-08-30 04:01:02 +00:00
if ( * p )
1999-10-27 09:31:52 +00:00
level = read_integral_parameter ( p , 0 ,
max_debug_level + 1 ) ;
else
level = 2 ;
if ( da_len > 1 & & * p & & ! strncmp ( str , " gdwarf " , da_len ) )
1999-08-30 04:01:02 +00:00
{
1999-10-27 09:31:52 +00:00
error ( " use -gdwarf -g%d for DWARF v1, level %d " ,
level , level ) ;
if ( level = = 2 )
error ( " use -gdwarf-2 for DWARF v2 " ) ;
1999-08-30 04:01:02 +00:00
}
1999-10-27 09:31:52 +00:00
if ( level > max_debug_level )
1999-08-30 04:01:02 +00:00
{
1999-10-27 09:31:52 +00:00
warning ( " ignoring option `%s' due to invalid debug level specification " ,
str - 1 ) ;
level = debug_info_level ;
1999-08-30 04:01:02 +00:00
}
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
if ( type = = NO_DEBUG )
{
type = PREFERRED_DEBUGGING_TYPE ;
1999-10-27 09:31:52 +00:00
if ( da_len > 1 & & strncmp ( str , " ggdb " , da_len ) = = 0 )
1999-08-30 04:01:02 +00:00
{
# if defined (DWARF2_DEBUGGING_INFO) && !defined (LINKER_DOES_NOT_WORK_WITH_DWARF2)
type = DWARF2_DEBUG ;
# else
1996-09-18 05:35:50 +00:00
# ifdef DBX_DEBUGGING_INFO
1999-08-30 04:01:02 +00:00
type = DBX_DEBUG ;
1996-09-18 05:35:50 +00:00
# endif
1999-08-30 04:01:02 +00:00
# endif
}
}
if ( type = = NO_DEBUG )
warning ( " `-%s' not supported by this configuration of GCC " ,
str ) ;
/* Does it conflict with an already selected type? */
if ( type_explicitly_set_p
/* -g/-ggdb don't conflict with anything */
& & da - > debug_type ! = NO_DEBUG
& & type ! = selected_debug_type )
warning ( " `-%s' ignored, conflicts with `-g%s' " ,
str , debug_type_names [ ( int ) selected_debug_type ] ) ;
else
{
/* If the format has already been set, -g/-ggdb
only change the debug level . */
if ( type_explicitly_set_p
& & da - > debug_type = = NO_DEBUG )
; /* don't change debugging type */
else
{
selected_debug_type = type ;
type_explicitly_set_p = da - > debug_type ! = NO_DEBUG ;
}
write_symbols = ( level = = 0
? NO_DEBUG
: selected_debug_type ) ;
use_gnu_debug_info_extensions = da - > use_extensions_p ;
debug_info_level = ( enum debug_info_level ) level ;
}
break ;
}
}
if ( ! da - > arg )
1996-09-18 05:35:50 +00:00
warning ( " `-%s' not supported by this configuration of GCC " ,
str ) ;
}
else if ( ! strcmp ( str , " o " ) )
{
asm_file_name = argv [ + + i ] ;
}
else if ( str [ 0 ] = = ' G ' )
{
1999-10-27 09:31:52 +00:00
const int g_switch_val = ( str [ 1 ] ! = ' \0 ' ) ?
read_integral_parameter ( str + 1 , 0 , - 1 ) :
read_integral_parameter ( argv [ + + i ] , 0 , - 1 ) ;
if ( g_switch_val ! = - 1 )
{
g_switch_set = TRUE ;
g_switch_value = g_switch_val ;
}
else
{
error ( " Invalid option `-%s' " , str ) ;
}
1996-09-18 05:35:50 +00:00
}
else if ( ! strncmp ( str , " aux-info " , 8 ) )
{
flag_gen_aux_info = 1 ;
aux_info_file_name = ( str [ 8 ] ! = ' \0 ' ? str + 8 : argv [ + + i ] ) ;
}
1999-08-30 04:01:02 +00:00
else if ( ! strcmp ( str , " -help " ) )
{
display_help ( ) ;
exit ( 0 ) ;
}
1996-09-18 05:35:50 +00:00
else
error ( " Invalid option `%s' " , argv [ i ] ) ;
}
else if ( argv [ i ] [ 0 ] = = ' + ' )
error ( " Invalid option `%s' " , argv [ i ] ) ;
else
filename = argv [ i ] ;
}
1999-08-30 04:01:02 +00:00
/* Checker uses the frame pointer. */
if ( flag_check_memory_usage )
flag_omit_frame_pointer = 0 ;
1996-09-18 05:35:50 +00:00
if ( optimize = = 0 )
{
/* Inlining does not work if not optimizing,
so force it not to be done . */
flag_no_inline = 1 ;
warn_inline = 0 ;
/* The c_decode_option and lang_decode_option functions set
this to ` 2 ' if - Wall is used , so we can avoid giving out
lots of errors for people who don ' t realize what - Wall does . */
if ( warn_uninitialized = = 1 )
warning ( " -Wuninitialized is not supported without -O " ) ;
}
# ifdef OVERRIDE_OPTIONS
/* Some machines may reject certain combinations of options. */
OVERRIDE_OPTIONS ;
# endif
1999-08-30 04:01:02 +00:00
if ( exceptions_via_longjmp = = 2 )
{
# ifdef DWARF2_UNWIND_INFO
exceptions_via_longjmp = ! DWARF2_UNWIND_INFO ;
# else
exceptions_via_longjmp = 1 ;
# endif
}
if ( profile_block_flag = = 3 )
{
warning ( " `-ax' and `-a' are conflicting options. `-a' ignored. " ) ;
profile_block_flag = 2 ;
}
1996-09-18 05:35:50 +00:00
/* Unrolling all loops implies that standard loop unrolling must also
be done . */
if ( flag_unroll_all_loops )
flag_unroll_loops = 1 ;
/* Loop unrolling requires that strength_reduction be on also. Silently
turn on strength reduction here if it isn ' t already on . Also , the loop
unrolling code assumes that cse will be run after loop , so that must
be turned on also . */
if ( flag_unroll_loops )
{
flag_strength_reduce = 1 ;
flag_rerun_cse_after_loop = 1 ;
}
/* Warn about options that are not supported on this machine. */
# ifndef INSN_SCHEDULING
if ( flag_schedule_insns | | flag_schedule_insns_after_reload )
warning ( " instruction scheduling not supported on this target machine " ) ;
# endif
# ifndef DELAY_SLOTS
if ( flag_delayed_branch )
warning ( " this target machine does not have delayed branches " ) ;
# endif
1999-10-27 09:31:52 +00:00
user_label_prefix = USER_LABEL_PREFIX ;
if ( flag_leading_underscore ! = - 1 )
{
/* If the default prefix is more complicated than "" or "_",
issue a warning and ignore this option . */
if ( user_label_prefix [ 0 ] = = 0 | |
( user_label_prefix [ 0 ] = = ' _ ' & & user_label_prefix [ 1 ] = = 0 ) )
{
user_label_prefix = flag_leading_underscore ? " _ " : " " ;
}
else
warning ( " -f%sleading-underscore not supported on this target machine " ,
flag_leading_underscore ? " " : " no- " ) ;
}
1996-09-18 05:35:50 +00:00
/* If we are in verbose mode, write out the version and maybe all the
option flags in use . */
if ( version_flag )
{
1999-08-30 04:01:02 +00:00
print_version ( stderr , " " ) ;
1996-09-18 05:35:50 +00:00
if ( ! quiet_flag )
1999-08-30 04:01:02 +00:00
print_switch_values ( stderr , 0 , MAX_LINE , " " , " " , " \n " ) ;
1996-09-18 05:35:50 +00:00
}
compile_file ( filename ) ;
1999-10-27 09:31:52 +00:00
# if !defined(OS2) && !defined(VMS) && (!defined(_WIN32) || defined (__CYGWIN__)) && !defined(__INTERIX)
1996-09-18 05:35:50 +00:00
if ( flag_print_mem )
{
char * lim = ( char * ) sbrk ( 0 ) ;
1999-10-27 09:31:52 +00:00
notice ( " Data size %ld. \n " , ( long ) ( lim - ( char * ) & environ ) ) ;
1996-09-18 05:35:50 +00:00
fflush ( stderr ) ;
1999-08-30 04:01:02 +00:00
# ifndef __MSDOS__
1996-09-18 05:35:50 +00:00
# ifdef USG
system ( " ps -l 1>&2 " ) ;
# else /* not USG */
system ( " ps v " ) ;
# endif /* not USG */
1999-08-30 04:01:02 +00:00
# endif
1996-09-18 05:35:50 +00:00
}
1999-10-27 09:31:52 +00:00
# endif /* ! OS2 && ! VMS && (! _WIN32 || CYGWIN) && ! __INTERIX */
1996-09-18 05:35:50 +00:00
if ( errorcount )
exit ( FATAL_EXIT_CODE ) ;
if ( sorrycount )
exit ( FATAL_EXIT_CODE ) ;
exit ( SUCCESS_EXIT_CODE ) ;
return 0 ;
}
/* Decode -m switches. */
/* Decode the switch -mNAME. */
1999-10-27 09:31:52 +00:00
static void
1996-09-18 05:35:50 +00:00
set_target_switch ( name )
1999-10-27 09:31:52 +00:00
const char * name ;
1996-09-18 05:35:50 +00:00
{
1999-08-30 04:01:02 +00:00
register size_t j ;
1999-10-27 09:31:52 +00:00
int valid_target_option = 0 ;
1996-09-18 05:35:50 +00:00
for ( j = 0 ; j < sizeof target_switches / sizeof target_switches [ 0 ] ; j + + )
if ( ! strcmp ( target_switches [ j ] . name , name ) )
{
if ( target_switches [ j ] . value < 0 )
target_flags & = ~ - target_switches [ j ] . value ;
else
target_flags | = target_switches [ j ] . value ;
1999-10-27 09:31:52 +00:00
valid_target_option = 1 ;
1996-09-18 05:35:50 +00:00
}
# ifdef TARGET_OPTIONS
1999-10-27 09:31:52 +00:00
if ( ! valid_target_option )
1996-09-18 05:35:50 +00:00
for ( j = 0 ; j < sizeof target_options / sizeof target_options [ 0 ] ; j + + )
{
int len = strlen ( target_options [ j ] . prefix ) ;
if ( ! strncmp ( target_options [ j ] . prefix , name , len ) )
{
* target_options [ j ] . variable = name + len ;
1999-10-27 09:31:52 +00:00
valid_target_option = 1 ;
1996-09-18 05:35:50 +00:00
}
}
# endif
1999-10-27 09:31:52 +00:00
if ( ! valid_target_option )
1996-09-18 05:35:50 +00:00
error ( " Invalid option `%s' " , name ) ;
}
1999-08-30 04:01:02 +00:00
/* Print version information to FILE.
Each line begins with INDENT ( for the case where FILE is the
assembler output file ) . */
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
static void
1999-08-30 04:01:02 +00:00
print_version ( file , indent )
FILE * file ;
1999-10-27 09:31:52 +00:00
const char * indent ;
1999-08-30 04:01:02 +00:00
{
# ifndef __VERSION__
1999-10-27 09:31:52 +00:00
# define __VERSION__ "[?]"
1999-08-30 04:01:02 +00:00
# endif
1999-10-27 09:31:52 +00:00
fnotice ( file ,
# ifdef __GNUC__
" %s%s%s version %s (%s) compiled by GNU C version %s. \n "
1999-08-30 04:01:02 +00:00
# else
1999-10-27 09:31:52 +00:00
" %s%s%s version %s (%s) compiled by CC. \n "
1999-08-30 04:01:02 +00:00
# endif
1999-10-27 09:31:52 +00:00
, indent , * indent ! = 0 ? " " : " " ,
language_string , version_string , TARGET_NAME , __VERSION__ ) ;
1999-08-30 04:01:02 +00:00
}
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
/* Print an option value and return the adjusted position in the line.
? ? ? We don ' t handle error returns from fprintf ( disk full ) ; presumably
other code will catch a disk full though . */
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
static int
1999-08-30 04:01:02 +00:00
print_single_switch ( file , pos , max , indent , sep , term , type , name )
FILE * file ;
int pos , max ;
1999-10-27 09:31:52 +00:00
const char * indent , * sep , * term , * type , * name ;
1996-09-18 05:35:50 +00:00
{
1999-08-30 04:01:02 +00:00
/* The ultrix fprintf returns 0 on success, so compute the result we want
here since we need it for the following test . */
int len = strlen ( sep ) + strlen ( type ) + strlen ( name ) ;
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
if ( pos ! = 0
& & pos + len > max )
{
fprintf ( file , " %s " , term ) ;
pos = 0 ;
}
if ( pos = = 0 )
1996-09-18 05:35:50 +00:00
{
1999-08-30 04:01:02 +00:00
fprintf ( file , " %s " , indent ) ;
pos = strlen ( indent ) ;
1996-09-18 05:35:50 +00:00
}
1999-08-30 04:01:02 +00:00
fprintf ( file , " %s%s%s " , sep , type , name ) ;
pos + = len ;
return pos ;
1996-09-18 05:35:50 +00:00
}
1999-08-30 04:01:02 +00:00
/* Print active target switches to FILE.
POS is the current cursor position and MAX is the size of a " line " .
Each line begins with INDENT and ends with TERM .
Each switch is separated from the next by SEP . */
1996-09-18 05:35:50 +00:00
1999-10-27 09:31:52 +00:00
static void
1999-08-30 04:01:02 +00:00
print_switch_values ( file , pos , max , indent , sep , term )
FILE * file ;
int pos , max ;
1999-10-27 09:31:52 +00:00
const char * indent , * sep , * term ;
1996-09-18 05:35:50 +00:00
{
1999-08-30 04:01:02 +00:00
size_t j ;
char * * p ;
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
/* Print the options as passed. */
pos = print_single_switch ( file , pos , max , indent , * indent ? " " : " " , term ,
1999-10-27 09:31:52 +00:00
_ ( " options passed: " ) , " " ) ;
1999-08-30 04:01:02 +00:00
for ( p = & save_argv [ 1 ] ; * p ! = NULL ; p + + )
if ( * * p = = ' - ' )
{
/* Ignore these. */
if ( strcmp ( * p , " -o " ) = = 0 )
{
if ( p [ 1 ] ! = NULL )
p + + ;
continue ;
}
if ( strcmp ( * p , " -quiet " ) = = 0 )
continue ;
if ( strcmp ( * p , " -version " ) = = 0 )
continue ;
if ( ( * p ) [ 1 ] = = ' d ' )
continue ;
pos = print_single_switch ( file , pos , max , indent , sep , term , * p , " " ) ;
}
if ( pos > 0 )
fprintf ( file , " %s " , term ) ;
/* Print the -f and -m options that have been enabled.
We don ' t handle language specific options but printing argv
should suffice . */
pos = print_single_switch ( file , 0 , max , indent , * indent ? " " : " " , term ,
1999-10-27 09:31:52 +00:00
_ ( " options enabled: " ) , " " ) ;
1996-09-18 05:35:50 +00:00
for ( j = 0 ; j < sizeof f_options / sizeof f_options [ 0 ] ; j + + )
if ( * f_options [ j ] . variable = = f_options [ j ] . on_value )
1999-08-30 04:01:02 +00:00
pos = print_single_switch ( file , pos , max , indent , sep , term ,
" -f " , f_options [ j ] . string ) ;
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
/* Print target specific options. */
1996-09-18 05:35:50 +00:00
for ( j = 0 ; j < sizeof target_switches / sizeof target_switches [ 0 ] ; j + + )
if ( target_switches [ j ] . name [ 0 ] ! = ' \0 '
& & target_switches [ j ] . value > 0
& & ( ( target_switches [ j ] . value & target_flags )
= = target_switches [ j ] . value ) )
1999-08-30 04:01:02 +00:00
{
pos = print_single_switch ( file , pos , max , indent , sep , term ,
" -m " , target_switches [ j ] . name ) ;
}
1996-09-18 05:35:50 +00:00
1999-08-30 04:01:02 +00:00
# ifdef TARGET_OPTIONS
for ( j = 0 ; j < sizeof target_options / sizeof target_options [ 0 ] ; j + + )
if ( * target_options [ j ] . variable ! = NULL )
{
char prefix [ 256 ] ;
sprintf ( prefix , " -m%s " , target_options [ j ] . prefix ) ;
pos = print_single_switch ( file , pos , max , indent , sep , term ,
prefix , * target_options [ j ] . variable ) ;
}
# endif
fprintf ( file , " %s " , term ) ;
}
/* Record the beginning of a new source file, named FILENAME. */
void
debug_start_source_file ( filename )
1999-10-27 09:31:52 +00:00
register char * filename ATTRIBUTE_UNUSED ;
1999-08-30 04:01:02 +00:00
{
# ifdef DBX_DEBUGGING_INFO
if ( write_symbols = = DBX_DEBUG )
dbxout_start_new_source_file ( filename ) ;
# endif
# ifdef DWARF_DEBUGGING_INFO
if ( debug_info_level = = DINFO_LEVEL_VERBOSE
& & write_symbols = = DWARF_DEBUG )
dwarfout_start_new_source_file ( filename ) ;
# endif /* DWARF_DEBUGGING_INFO */
# ifdef DWARF2_DEBUGGING_INFO
if ( debug_info_level = = DINFO_LEVEL_VERBOSE
& & write_symbols = = DWARF2_DEBUG )
dwarf2out_start_source_file ( filename ) ;
# endif /* DWARF2_DEBUGGING_INFO */
# ifdef SDB_DEBUGGING_INFO
if ( write_symbols = = SDB_DEBUG )
sdbout_start_new_source_file ( filename ) ;
# endif
}
/* Record the resumption of a source file. LINENO is the line number in
the source file we are returning to . */
void
debug_end_source_file ( lineno )
1999-10-27 09:31:52 +00:00
register unsigned lineno ATTRIBUTE_UNUSED ;
1999-08-30 04:01:02 +00:00
{
# ifdef DBX_DEBUGGING_INFO
if ( write_symbols = = DBX_DEBUG )
dbxout_resume_previous_source_file ( ) ;
# endif
# ifdef DWARF_DEBUGGING_INFO
if ( debug_info_level = = DINFO_LEVEL_VERBOSE
& & write_symbols = = DWARF_DEBUG )
dwarfout_resume_previous_source_file ( lineno ) ;
# endif /* DWARF_DEBUGGING_INFO */
# ifdef DWARF2_DEBUGGING_INFO
if ( debug_info_level = = DINFO_LEVEL_VERBOSE
& & write_symbols = = DWARF2_DEBUG )
dwarf2out_end_source_file ( ) ;
# endif /* DWARF2_DEBUGGING_INFO */
# ifdef SDB_DEBUGGING_INFO
if ( write_symbols = = SDB_DEBUG )
sdbout_resume_previous_source_file ( ) ;
# endif
}
/* Called from check_newline in c-parse.y. The `buffer' parameter contains
the tail part of the directive line , i . e . the part which is past the
initial whitespace , # , whitespace , directive - name , whitespace part . */
void
debug_define ( lineno , buffer )
1999-10-27 09:31:52 +00:00
register unsigned lineno ATTRIBUTE_UNUSED ;
register char * buffer ATTRIBUTE_UNUSED ;
1999-08-30 04:01:02 +00:00
{
# ifdef DWARF_DEBUGGING_INFO
if ( debug_info_level = = DINFO_LEVEL_VERBOSE
& & write_symbols = = DWARF_DEBUG )
dwarfout_define ( lineno , buffer ) ;
# endif /* DWARF_DEBUGGING_INFO */
# ifdef DWARF2_DEBUGGING_INFO
if ( debug_info_level = = DINFO_LEVEL_VERBOSE
& & write_symbols = = DWARF2_DEBUG )
dwarf2out_define ( lineno , buffer ) ;
# endif /* DWARF2_DEBUGGING_INFO */
}
/* Called from check_newline in c-parse.y. The `buffer' parameter contains
the tail part of the directive line , i . e . the part which is past the
initial whitespace , # , whitespace , directive - name , whitespace part . */
void
debug_undef ( lineno , buffer )
1999-10-27 09:31:52 +00:00
register unsigned lineno ATTRIBUTE_UNUSED ;
register char * buffer ATTRIBUTE_UNUSED ;
1999-08-30 04:01:02 +00:00
{
# ifdef DWARF_DEBUGGING_INFO
if ( debug_info_level = = DINFO_LEVEL_VERBOSE
& & write_symbols = = DWARF_DEBUG )
dwarfout_undef ( lineno , buffer ) ;
# endif /* DWARF_DEBUGGING_INFO */
# ifdef DWARF2_DEBUGGING_INFO
if ( debug_info_level = = DINFO_LEVEL_VERBOSE
& & write_symbols = = DWARF2_DEBUG )
dwarf2out_undef ( lineno , buffer ) ;
# endif /* DWARF2_DEBUGGING_INFO */
1996-09-18 05:35:50 +00:00
}