* diagnostic.h (set_internal_error_function): Renamed.
* toplev.h (internal_error): Renamed from fatal.
(pfatal_with_name): Deleted.
(fatal_io_error): Now has printf-style arguments.
* diagnostic.c (pfatal_with_name): Deleted.
(fatal_io_error): Rework to have args in printf-style.
(set_internal_error_function): Renamed from set_fatal_function.
(internal_error): Renamed from fatal.
(error_recursion, fancy_abort): Call internal_error instead of fatal.
* dwarf2out.c (get_cfa_from_loc_descr): Likewise.
* emit-rtl.c (gen_realpart, gen_imagpart): Likewise.
* expr.c (check_max_integer_computation_mode, expand_expr): Likewise.
* flow.c (verify_flow_info): Likewise.
* config/arm/arm.c (thumb_unexpanded_epilogue): Likewise.
* config/mips/mips.c (save_restore_insns): Likewise.
* cp/init.c (build_java_class_ref): Likewise.
(dsp16xx_reg_class_from_letter): Likewise.
(limit_reload_class, double_reg_to_memory): Likewise.
(print_operand_address, emit_1600_code_shift): Likewise.
(gen_tst_reg, gen_compare_reg): Likewise.
* config/m68hc11/m68hc11.c (m68hc11_emit_libcall): Likewise.
* cp/decl.c (pushdecl): Likewise.
* java/check-init.c (check_init): Likewise.
* java/expr.c (java_lang_expand_expr): Likewise.
* java/jcf-parse.c (get_constant): Likewise.
* java/mangle.c (java_mangle_decl): Likewise.
* java/parse.y (make_nested_class_name, java_complete_lhs): Likewise.
(operator_string): Likewise.
* except.c (duplicate_eh_handlers): Call abort instead of fatal.
* flow.c (verify_flow_info): Likewise.
* ch/convert.c (convert): Likewise.
* ch/except.c (pop_handler, chill_check_no_handlers): Likewise.
* ch/expr.c (chill_expand_expr): Likewise.
* ch/parse.c (peek_token_, pushback_token, require): Likewise.
* config/arm/arm.c (thumb_load_double_from_address): Likewise.
* config/avr/avr.c (pttreg_to_str, unique_section): Likewise.
(avr_normalize_condition): Likewise.
* config/c4x/c4x.c (c4x_emit_libcall, c4x_valid_operands): Likewise.
* config/dsp16xx/dsp16xx.c (dsp16xx_reg_class_from_letter): Likewise.
(limit_reload_class, double_reg_to_memory): Likewise.
(print_operand_address, emit_1600_code_shift): Likewise.
(gen_tst_reg, gen_compare_reg): Likewise.
* config/m68hc11/m68hc11.c (m68hc11_emit_libcall): Likewise.
* cp/decl.c (pushdecl): Likewise.
* java/check-init.c (check_init): Likewise.
* java/class.c (build_class_ref): Likewise.
* java/constants.c (write_constant_pool): Likewise.
* java/decl.c (start_java_method): Likewise.
* java/expr.c (push_type, java_stack_pop, java_stack_swap): Likewise.
(java_stack_dup, encode_newarray_type): Likewise.
(build_java_array_length_access): Likewise.
(build_java_check_indexed_type, expand_java_pushc): Likewise.
(build_java_soft_divmod, build_invokeinterface): Likewise.
* java/java-tree.h (INNER_CLASS_P): Likewise.
* java/jcf-parse.c (parse_signature, get_name_constant): Likewise.
(give_name_to_class, get_class_constant): Likewise.
* java/jcf-write.c (CHECK_PUT, CHECK_OP, get_access_flags): Likewise.
(find_constant_index, generate_bytecode_conditional): Likewise.
(generate_bytecode_insns, perform_relocations): Likewise.
* java/lex.c (java_unget_unicode, java_lex): Likewise.
* java/mangle.c (mangle_type, mangle_record_type): Likewise.
(mangle_pointer_type, mangle_array_type, init_mangling): Likewise.
(finish_mangling): Likewise.
* java/parse.h (MARK_FINAL_PARMS): Likewise.
* java/parse.y (pop_current_osb, unreachable_stmt_error): Likewise.
(obtain_incomplete_type, java_complete_class): Likewise.
(java_check_regular_methods, java_complete_expand_method): Likewise.
(cut_identifier_in_qualified, check_deprecation): Likewise.
(patch_invoke, find_applicable_accessible_methods_list): Likewise.
(java_complete_lhs, lookup_name_in_blocks): Likewise.
(check_final_variable_indirect_assignment, build_unaryop): Likewise.
* java/typeck.c (set_local_type, parse_signature_type): Likewise.
(parse_signature_string, build_java_signature): Likewise;
(set_java_signature): Likewise.
* java/verify.c (type_stack_dup, CHECK_PC_IN_RANGE): Likewise.
* c-parse.in (methoddef): Call fatal_error instead of fatal.
* objc/objc-act.c (build_ivar_chain): Likewise.
* cp/except.c (decl_is_java_type): Likewise.
* cp/init.c (build_java_class_ref): Likewise.
* cp/init.c (build_new_1): Likewise.
* f/com.c (ffecom_init_0): Likewise.
* java/class.c (add_method, build_static_field_ref): Likewise.
* java/expr.c (build_known_method_ref, expand_invoke): Likewise.
* java/jcf-parse.c (get_constant, jcf_parse): Likewise.
* java/lex.c (java_new_new_lexer): Likewise.
* java/jv-scan.c (main): Likewise.
(fatal_error): Renamed from fatal.
* dwarfout.c (dwarfout_init): Call fatal_io_error instead of
pfatal_with_name.
* graph.c (clean_graph_dump_file): Likewise.
* profile.c (init_branch_prob): Likewise.
* ch/grant.c (write_grant_file): Likewise.
* ch/lex.c (init_parse, same_file, yywrap): Likewise.
* f/com.c (init_parse): Likewise.
* java/jcf-parse.c (yyparse): Likewise.
* objc/objc-act.c (objc_init): Likewise.
* java/jcf-parse.c (jcf_parse_source): Call fatal_io_error, not fatal.
(yyparse): Likewise.
* java/jcf-write.c (make_class_file_name, write_classfile): Likewise.
* java/lex.c (java_get_line_col): Likewise.
* hash.c (hash_allocate): Don't check for failure returns from
obstack functions that can't fail.
(hash_table_init_n, hash_table_init): Likewise; also now return void.
* hash.h (hash_table_init_n, hash_table_init): Now return void.
* cp/decl.c (build_typename_type): hash_table_init now returns void.
* ch/lang.c (GNU_xref_begin, GNU_xref_end): Deleted.
* ch/lex.c (convert_bitstring): Delete check for alloca failure.
* config/dsp16xx/dsp16xx.c (dsp16xx_invalid_register_for_compare):
Deleted.
* config/dsp16xx/dsp16xx.md (unnamed cmphi): Call abort instead of it.
* f/com.c (ffecom_decode_include_option_): Make errors non-fatal.
* f/lex.c (ffelex_cfelex_, ffelex_get_directive_line_): Likewise.
(ffelex_hash_): Likewise.
* config/arm/arm.c (arm_override_options): Likewise.
* config/avr/avr.c (avr_override_options): Likewise.
* config/c4x/c4x.c (c4x_expand_prologue): Likewise.
* config/dsp16xx/dsp16xx.c (function_prologue): Likewise.
* config/h8300/h8300.c (h8300_init_once): Likewise.
* config/mips/mips.c (override_options): Likewise.
* config/i386/i386.c (override_options): Likewise, rework.
* config/m68k/m68k.c (override_options): Likewise.
* cp/decl.c (init_decl_processing): Likewise.
* java/jcf-parse.c (load_class): Likewise.
* config/dsp16xx/dsp16xx.c (print_operand): Call output_operand_lossage
instead of fatal.
* config/mips/mips.c (print_operand): Likewise.
* java/lex.c (byteswap_init, need_byteswap): Only #ifdef HAVE_ICONV.
* objc/objc_act.c (objc_check_decl): Remove unneeded fatal call.
(get_object_reference): Likewise.
From-SVN: r39443
+Sun Feb 4 15:52:44 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
+
+ * diagnostic.h (set_internal_error_function): Renamed.
+ * toplev.h (internal_error): Renamed from fatal.
+ (pfatal_with_name): Deleted.
+ (fatal_io_error): Now has printf-style arguments.
+ * diagnostic.c (pfatal_with_name): Deleted.
+ (fatal_io_error): Rework to have args in printf-style.
+ (set_internal_error_function): Renamed from set_fatal_function.
+ (internal_error): Renamed from fatal.
+ (error_recursion, fancy_abort): Call internal_error instead of fatal.
+ * dwarf2out.c (get_cfa_from_loc_descr): Likewise.
+ * emit-rtl.c (gen_realpart, gen_imagpart): Likewise.
+ * expr.c (check_max_integer_computation_mode, expand_expr): Likewise.
+ * flow.c (verify_flow_info): Likewise.
+ * config/arm/arm.c (thumb_unexpanded_epilogue): Likewise.
+ * config/mips/mips.c (save_restore_insns): Likewise.
+
+ * except.c (duplicate_eh_handlers): Call abort instead of fatal.
+ * flow.c (verify_flow_info): Likewise.
+ * config/arm/arm.c (thumb_load_double_from_address): Likewise.
+ * config/avr/avr.c (pttreg_to_str, unique_section): Likewise.
+ (avr_normalize_condition): Likewise.
+ * config/c4x/c4x.c (c4x_emit_libcall, c4x_valid_operands): Likewise.
+ * config/dsp16xx/dsp16xx.c (dsp16xx_reg_class_from_letter): Likewise.
+ (limit_reload_class, double_reg_to_memory): Likewise.
+ (print_operand_address, emit_1600_code_shift): Likewise.
+ (gen_tst_reg, gen_compare_reg): Likewise.
+ * config/m68hc11/m68hc11.c (m68hc11_emit_libcall): Likewise.
+ * config/dsp16xx/dsp16xx.c (dsp16xx_invalid_register_for_compare):
+ Deleted.
+ * config/dsp16xx/dsp16xx.md (unnamed cmphi): Call abort instead of it.
+
+ * c-parse.in (methoddef): Call fatal_error instead of fatal.
+ * objc/objc-act.c (build_ivar_chain): Likewise.
+ * dwarfout.c (dwarfout_init): Call fatal_io_error instead of
+ pfatal_with_name.
+ * graph.c (clean_graph_dump_file): Likewise.
+ * profile.c (init_branch_prob): Likewise.
+ * objc/objc-act.c (objc_init): Likewise.
+
+ * config/arm/arm.c (arm_override_options): Make errors non-fatal.
+ * config/avr/avr.c (avr_override_options): Likewise.
+ * config/c4x/c4x.c (c4x_expand_prologue): Likewise.
+ * config/dsp16xx/dsp16xx.c (function_prologue): Likewise.
+ * config/h8300/h8300.c (h8300_init_once): Likewise.
+ * config/mips/mips.c (override_options): Likewise.
+ * config/i386/i386.c (override_options): Likewise, rework.
+ * config/m68k/m68k.c (override_options): Likewise.
+
+ * config/dsp16xx/dsp16xx.c (print_operand): Call output_operand_lossage
+ instead of fatal.
+ * config/mips/mips.c (print_operand): Likewise.
+ * hash.c (hash_allocate): Don't check for failure returns from
+ obstack functions that can't fail.
+ (hash_table_init_n, hash_table_init): Likewise; also now return void.
+ * hash.h (hash_table_init_n, hash_table_init): Now return void.
+ * objc/objc_act.c (objc_check_decl): Remove unneeded fatal call.
+ (get_object_reference): Likewise.
+
2001-02-04 Nick Clifton <nickc@redhat.com>
* config/arm/arm.c (all_cores): Add 710T, 720T, 740T, 940T, 9e,
if (objc_implementation_context)
objc_inherit_code = CLASS_METHOD_DECL;
else
- fatal ("method definition not in class context");
+ fatal_error ("method definition not in class context");
}
methoddecl
{
if (objc_implementation_context)
objc_inherit_code = INSTANCE_METHOD_DECL;
else
- fatal ("method definition not in class context");
+ fatal_error ("method definition not in class context");
}
methoddecl
{
target_flags |= ARM_FLAG_APCS_FRAME;
if (TARGET_APCS_REENT && flag_pic)
- fatal ("-fpic and -mapcs-reent are incompatible");
+ error ("-fpic and -mapcs-reent are incompatible");
if (TARGET_APCS_REENT)
warning ("APCS reentrant code not supported. Ignored");
else if (streq (target_fp_name, "3"))
arm_fpu_arch = FP_SOFT3;
else
- fatal ("Invalid floating point emulation option: -mfpe-%s",
+ error ("Invalid floating point emulation option: -mfpe-%s",
target_fp_name);
}
else
}
/* The bits which aren't usefully expanded as rtl. */
+
const char *
thumb_unexpanded_epilogue ()
{
if (mask == 0)
/* Oh dear! We have no low registers into which we can pop
high registers! */
- fatal ("No low registers available for popping high registers");
+ internal_error
+ ("no low registers available for popping high registers");
for (next_hi_reg = 8; next_hi_reg < 13; next_hi_reg++)
if (regs_ever_live[next_hi_reg] && !call_used_regs[next_hi_reg]
const char *
thumb_load_double_from_address (operands)
- rtx * operands;
+ rtx *operands;
{
rtx addr;
rtx base;
rtx arg2;
if (GET_CODE (operands[0]) != REG)
- fatal ("thumb_load_double_from_address: destination is not a register");
+ abort ();
if (GET_CODE (operands[1]) != MEM)
- {
- debug_rtx (operands[1]);
- fatal ("thumb_load_double_from_address: source is not a computed memory address");
- }
+ abort ();
/* Get the memory address. */
addr = XEXP (operands[1], 0);
base = arg1, offset = arg2;
if (GET_CODE (base) != REG)
- fatal ("thumb_load_double_from_address: base is not a register");
+ abort ();
/* Catch the case of <address> = <reg> + <reg> */
if (GET_CODE (offset) == REG)
break;
default:
- debug_rtx (operands[1]);
- fatal ("thumb_load_double_from_address: Unhandled address calculation");
+ abort ();
break;
}
avr_mcu_name);
for (t = avr_mcu_types; t->name; t++)
fprintf (stderr," %s\n", t->name);
- fatal ("select right MCU name");
}
switch (t->arch)
{
- case AVR1:
- default:
- fatal ("MCU `%s' not supported", avr_mcu_name);
- case AVR2: avr_enhanced_p = 0; avr_mega_p = 0; break;
- case AVR3: avr_enhanced_p = 0; avr_mega_p = 1; break;
- case AVR4: avr_enhanced_p = 1; avr_mega_p = 0; break;
- case AVR5: avr_enhanced_p = 1; avr_mega_p = 1; break;
+ case AVR1:
+ default:
+ error ("MCU `%s' not supported", avr_mcu_name);
+ /* ... fall through ... */
+ case AVR2: avr_enhanced_p = 0; avr_mega_p = 0; break;
+ case AVR3: avr_enhanced_p = 0; avr_mega_p = 1; break;
+ case AVR4: avr_enhanced_p = 1; avr_mega_p = 0; break;
+ case AVR5: avr_enhanced_p = 1; avr_mega_p = 1; break;
}
if (optimize && !TARGET_NO_TABLEJUMP)
case REG_Y: return "Y";
case REG_Z: return "Z";
default:
- fatal ("register r%d isn't a pointer\n", regno);
+ abort ();
}
return NULL;
}
return "pl";
else
return "ge";
- case GT:
- fatal ("Internal compiler bug: command `bgt'");
- case LE:
- fatal ("Internal compiler bug: command `ble'");
case LT:
if (cc_prev_status.flags & CC_OVERFLOW_UNUSABLE)
return "mi";
return "lt";
case GEU:
return "sh";
- case GTU:
- fatal ("Internal compiler bug: command `bgtu'");
- case LEU:
- fatal ("Internal compiler bug: command `bleu'");
case LTU:
return "lo";
default:
prefix = ".text";
}
else
- fatal ("Strange situation: unique section is not a FUNCTION_DECL");
+ abort ();
if (flag_function_sections)
{
case LEU:
return LTU;
default:
- fatal ("Wrong condition: %s", GET_RTX_NAME (condition));
+ abort ();
}
}
/* Subroutines for assembler code output on the TMS320C[34]x
- Copyright (C) 1994, 1995, 1996, 1997, 1998,
- 1999, 2000 Free Software Foundation, Inc.
+ Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
+ Free Software Foundation, Inc.
Contributed by Michael Hayes (m.hayes@elec.canterbury.ac.nz)
and Herman Ten Brugge (Haj.Ten.Brugge@net.HCC.nl).
- This file is part of GNU CC.
+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 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.
+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. */
+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. */
/* Some output-actions in c4x.md need these. */
#include "config.h"
requires more than 32767 words of local temporary
storage! */
if (size > 32767)
- fatal ("ISR %s requires %d words of local vars, max is 32767.",
+ error ("ISR %s requires %d words of local vars, max is 32767.",
current_function_name, size);
+
insn = emit_insn (gen_addqi3 (gen_rtx_REG (QImode, SP_REGNO),
gen_rtx_REG (QImode, SP_REGNO),
GEN_INT (size)));
break;
default:
- fatal ("c4x_emit_libcall: Bad number of operands");
+ abort ();
}
insns = get_insns ();
break;
default:
- fatal ("c4x_valid_operands: Internal error");
+ abort ();
break;
}
/* Subroutines for assembler code output on the DSP1610.
- Copyright (C) 1994, 1995, 1997, 1998 Free Software Foundation, Inc.
+ Copyright (C) 1994, 1995, 1997, 1998, 2001 Free Software Foundation, Inc.
Contributed by Michael Collison (collison@world.std.com).
This file is part of GNU CC.
return SLOW_MEM_LOAD_REGS;
default:
- fatal ("Invalid register class letter %c", c);
- return NO_REGS;
+ abort ();
}
}
/* Return the class number of the smallest class containing
return class;
case ACCUM_HIGH_REGS:
- fatal ("ACCUM_HIGH_REGS class in limit_reload_class");
+ abort ();
case A1L_REG:
case ACCUM_LOW_REGS:
return class;
case YH_OR_ACCUM_HIGH_REGS:
- fatal ("YH_OR_ACCUM_HIGH_REGS found in limit_reload_class");
+ abort ();
case X_OR_YH_REGS:
return class;
case YL_REG:
/* Register 'yl' is invalid for QImode, so we should never
see it. */
-
- fatal ("YL found in limit_reload_class");
+ abort ();
case YL_OR_ACCUM_LOW_REGS:
case X_OR_YL_REGS:
{
if (current_frame_info.var_size == 1)
fprintf (file, "\t*%s++\n", sp);
+ else if (SMALL_INTVAL (current_frame_info.var_size)
+ && ((current_frame_info.var_size & 0x8000) == 0))
+ fprintf (file, "\t%s=%ld\n\t*%s++%s\n", reg_names[REG_J],
+ current_frame_info.var_size, sp, reg_names[REG_J]);
else
- {
- if(SMALL_INTVAL(current_frame_info.var_size) && ((current_frame_info.var_size & 0x8000) == 0))
- fprintf (file, "\t%s=%ld\n\t*%s++%s\n", reg_names[REG_J], current_frame_info.var_size, sp, reg_names[REG_J]);
- else
- fatal ("Stack size > 32k");
- }
+ error ("Stack size > 32k");
}
- /* Save any registers this function uses, unless they are
- * used in a call, in which case we don't need to
- */
+ /* Save any registers this function uses, unless they are used in a call,
+ in which case we don't need to. */
- for( regno = 0; regno < FIRST_PSEUDO_REGISTER; ++ regno )
+ for (regno = 0; regno < FIRST_PSEUDO_REGISTER; ++ regno)
if (dsp16xx_call_saved_register (regno))
{
#if OLD_REGISTER_SAVE
- fprintf( file, "\t*%s++=%s\n", sp, reg_names[regno] );
+ fprintf (file, "\t*%s++=%s\n", sp, reg_names[regno]);
#else
- fprintf( file, "\tpush(*%s)=%s\n", sp, reg_names[regno] );
+ fprintf (file, "\tpush(*%s)=%s\n", sp, reg_names[regno]);
#endif
}
{
if (current_frame_info.args_size == 1)
fprintf (file, "\t*%s++\n", sp);
+ else if (SMALL_INTVAL (current_frame_info.args_size)
+ && (current_frame_info.args_size & 0x8000) == 0)
+ fprintf (file, "\t%s=%ld\n\t*%s++%s\n", reg_names[REG_J],
+ current_frame_info.args_size, sp, reg_names[REG_J]);
else
- {
- if(SMALL_INTVAL(current_frame_info.args_size) && ((current_frame_info.args_size & 0x8000) == 0))
- fprintf (file, "\t%s=%ld\n\t*%s++%s\n", reg_names[REG_J], current_frame_info.args_size, sp, reg_names[REG_J]);
- else
- fatal ("Stack size > 32k");
- }
+ error ("Stack size > 32k");
}
if (frame_pointer_needed)
{
- fprintf( file, "\t%s=%s\n", a1h, sp );
- fprintf( file, "\t%s=%s\n", fp, a1h ); /* Establish new base frame */
- fprintf( file, "\t%s=%ld\n", reg_names[REG_J], -total_size);
- fprintf( file, "\t*%s++%s\n", fp, reg_names[REG_J]);
+ fprintf (file, "\t%s=%s\n", a1h, sp);
+ fprintf (file, "\t%s=%s\n", fp, a1h); /* Establish new base frame */
+ fprintf (file, "\t%s=%ld\n", reg_names[REG_J], -total_size);
+ fprintf (file, "\t*%s++%s\n", fp, reg_names[REG_J]);
}
- fprintf( file, "\t/* END FUNCTION PROLOGUE: */\n\n" );
+ fprintf (file, "\t/* END FUNCTION PROLOGUE: */\n\n");
}
void
else if (GET_CODE (XEXP(addr,1)) == CONST_INT)
offset = INTVAL(XEXP(addr,1)) + 1;
else
- fatal ("Invalid addressing mode");
+ abort ();
- fprintf (asm_out_file, "\t*(%d)=%s\n", offset + 31, reg_names[REGNO(operands[1]) + 1]);
+ fprintf (asm_out_file, "\t*(%d)=%s\n", offset + 31,
+ reg_names[REGNO(operands[1]) + 1]);
}
else
{
{
/* Print the low half of a 32-bit register pair */
if (letter == 'w')
- fprintf( file, "%s", reg_names[REGNO(op)+1] );
+ fprintf (file, "%s", reg_names[REGNO (op) + 1]);
else if (letter == 'u' || !letter)
- fprintf( file, "%s", reg_names[REGNO(op)]);
+ fprintf (file, "%s", reg_names[REGNO (op)]);
else if (letter == 'b')
- fprintf ( file, "%sh", reg_names[REGNO(op)]);
+ fprintf (file, "%sh", reg_names[REGNO (op)]);
else if (letter == 'm')
- fprintf (file, "%s", himode_reg_name[REGNO(op)]);
+ fprintf (file, "%s", himode_reg_name[REGNO (op)]);
else
- fatal("Bad register extension code");
+ output_operand_lossgae ("Bad register extension code");
}
- else if( code == MEM )
- output_address( XEXP(op,0) );
- else if( code == CONST_INT )
- {
+ else if (code == MEM)
+ output_address (XEXP(op,0));
+ else if (code == CONST_INT)
+ {
HOST_WIDE_INT val = INTVAL (op);
- if( letter == 'H' )
- fprintf( file, HOST_WIDE_INT_PRINT_HEX, val & 0xffff);
+
+ if (letter == 'H')
+ fprintf (file, HOST_WIDE_INT_PRINT_HEX, val & 0xffff);
else if (letter == 'h')
- fprintf( file, HOST_WIDE_INT_PRINT_DEC, val);
- else if( letter == 'U' )
- fprintf( file, HOST_WIDE_INT_PRINT_HEX, (val >> 16) & 0xffff);
+ fprintf (file, HOST_WIDE_INT_PRINT_DEC, val);
+ else if (letter == 'U')
+ fprint(f file, HOST_WIDE_INT_PRINT_HEX, (val >> 16) & 0xffff);
else
- output_addr_const( file, op );
- }
- else if( code == CONST_DOUBLE && GET_MODE(op) != DImode )
- {
- union { double d; int i[2]; } u;
- union { float f; int i; } u1;
- u.i[0] = CONST_DOUBLE_LOW (op);
- u.i[1] = CONST_DOUBLE_HIGH (op);
- u1.f = u.d;
- fprintf( file, "0x%x", u1.i );
- }
- else output_addr_const( file, op);
+ output_addr_const (file, op);
+ }
+ else if (code == CONST_DOUBLE && GET_MODE (op) != DImode)
+ {
+ union {double d; int i[2]; } u;
+ union {float f; int i; } u1;
+
+ u.i[0] = CONST_DOUBLE_LOW (op);
+ u.i[1] = CONST_DOUBLE_HIGH (op);
+ u1.f = u.d;
+ fprintf (file, "0x%x", u1.i);
+ }
+ else
+ output_addr_const (file, op);
}
if (offset >= -31 && offset <= 0)
offset = 31 + offset;
else
- fatal ("Invalid offset in ybase addressing");
+ abort ();
}
else
- fatal ("Invalid register in ybase addressing");
+ abort ();
fprintf (file, "*(%d)", offset);
break;
}
void
-output_dsp16xx_float_const(operands)
+output_dsp16xx_float_const (operands)
rtx *operands;
{
rtx src = operands[1];
operands[1] = GEN_INT (value);
output_asm_insn ("%u0=%U1\n\t%w0=%H1", operands);
#else
- fatal ("inline float constants not supported on this host");
+ fatal_error ("inline float constants not supported on this host");
#endif
}
shift_asm_ptr_first = lshift_right_asm_first;
}
else
- fatal ("Invalid shift operator in emit_1600_core_shift");
+ abort ();
while (shift_amount != 0)
{
double fp_const;
{
#if HOST_FLOAT_FORMAT == TARGET_FLOAT_FORMAT
- REAL_VALUE_TYPE d = fp_const;
- long value;
+ REAL_VALUE_TYPE d = fp_const;
+ long value;
- REAL_VALUE_TO_TARGET_SINGLE (d, value);
- fputs ("\tint ", file);
+ REAL_VALUE_TO_TARGET_SINGLE (d, value);
+ fputs ("\tint ", file);
#ifdef WORDS_BIG_ENDIAN
- fprintf (file, "0x%-4.4lx, 0x%-4.4lx", (value >> 16) & 0xffff, (value & 0xffff));
+ fprintf (file, "0x%-4.4lx, 0x%-4.4lx", (value >> 16) & 0xffff,
+ value & 0xffff);
#else
- fprintf (file, "0x%-4.4lx, 0x%-4.4lx", (value & 0xffff), (value >> 16) & 0xffff);
+ fprintf (file, "0x%-4.4lx, 0x%-4.4lx", value & 0xffff,
+ (value >> 16) & 0xffff);
#endif
- fputs ("\n", file);
+ fputs ("\n", file);
#else
- fatal ("inline float constants not supported on this host");
+ fatal_error ("inline float constants not supported on this host");
#endif
}
mode = GET_MODE (x);
if (mode == QImode)
- {
- emit_insn (gen_rtx_PARALLEL
- (VOIDmode,
- gen_rtvec (2, gen_rtx_SET (VOIDmode, cc0_rtx, x),
- gen_rtx_CLOBBER (VOIDmode,
- gen_rtx_SCRATCH (QImode)))));
- }
+ emit_insn (gen_rtx_PARALLEL
+ (VOIDmode,
+ gen_rtvec (2, gen_rtx_SET (VOIDmode, cc0_rtx, x),
+ gen_rtx_CLOBBER (VOIDmode,
+ gen_rtx_SCRATCH (QImode)))));
else if (mode == HImode)
emit_insn (gen_rtx_SET (VOIDmode, cc0_rtx, x));
else
- fatal ("Invalid mode for gen_tst_reg");
+ abort ();
return cc0_rtx;
}
force_reg (HImode,y))));
}
else
- fatal ("Invalid mode for integer comparison in gen_compare_reg");
+ abort ();
return cc0_rtx;
}
fprintf (asm_out_file, "\t}\n");
return "";
}
-
-void
-dsp16xx_invalid_register_for_compare ()
-{
- fatal ("Invalid register for compare");
-}
;;- Machine description for the AT&T DSP1600 for GNU C compiler
-;; Copyright (C) 1994, 1995, 1997, 1998 Free Software Foundation, Inc.
+;; Copyright (C) 1994, 1995, 1997, 1998, 2001 Free Software Foundation, Inc.
;; Contributed by Michael Collison (collison@world.std.com).
;; This file is part of GNU CC.
{
output_asm_insn (\"a0=%0\", operands);
}
- else if (IS_YBASE_REGISTER_WINDOW (REGNO(operands[0])))
- {
- output_asm_insn (\"a0=%u0\;a0l=%w0\", operands);
- }
+ else if (IS_YBASE_REGISTER_WINDOW (REGNO (operands[0])))
+ output_asm_insn (\"a0=%u0\;a0l=%w0\", operands);
else
- dsp16xx_invalid_register_for_compare ();
+ abort ();
}
else if (GET_CODE(operands[0]) == CONST_INT)
- {
- output_asm_insn (\"a0=%U0\;a0l=%H0\", operands);
- }
+ output_asm_insn (\"a0=%U0\;a0l=%H0\", operands);
else if (GET_CODE (operands[0]) == MEM)
{
rtx xoperands[2];
if (GET_CODE(operands[1]) == REG)
{
- if (REGNO (operands[1]) == REG_Y
- || REGNO (operands[1]) == REG_PROD)
- {
- output_asm_insn (\"a1=%1\", operands);
- }
- else if (IS_YBASE_REGISTER_WINDOW (REGNO(operands[1])))
- {
- output_asm_insn (\"a1=%u1\;a1l=%w1\", operands);
- }
+ if (REGNO (operands[1]) == REG_Y || REGNO (operands[1]) == REG_PROD)
+ output_asm_insn (\"a1=%1\", operands);
+ else if (IS_YBASE_REGISTER_WINDOW (REGNO (operands[1])))
+ output_asm_insn (\"a1=%u1\;a1l=%w1\", operands);
else
- dsp16xx_invalid_register_for_compare ();
+ abort ();
}
else if (GET_CODE (operands[1]) == MEM)
{
/* Subroutines for insn-output.c for Hitachi H8/300.
- Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000
+ Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
Free Software Foundation, Inc.
Contributed by Steve Chamberlain (sac@cygnus.com),
Jim Wilson (wilson@cygnus.com), and Doug Evans (dje@cygnus.com).
h8_mov_op = h8_mov_ops[cpu_type];
if (!TARGET_H8300S && TARGET_MAC)
- fatal ("-ms2600 is used without -ms.");
+ {
+ error ("-ms2600 is used without -ms.");
+ target_flags |= 1;
+ }
}
const char *
void
override_options ()
{
+ int i;
/* Comes from final.c -- no real reason to change it. */
#define MAX_CODE_ALIGN 16
if (ix86_arch_string != 0)
{
- int i;
for (i = 0; i < pta_size; i++)
if (! strcmp (ix86_arch_string, processor_alias_table[i].name))
{
ix86_cpu = ix86_arch;
break;
}
+
if (i == pta_size)
error ("bad value (%s) for -march= switch", ix86_arch_string);
}
if (ix86_cpu_string != 0)
{
- int i;
for (i = 0; i < pta_size; i++)
if (! strcmp (ix86_cpu_string, processor_alias_table[i].name))
{
/* Validate registers in register allocation order. */
if (ix86_reg_alloc_order)
{
- int i, ch;
+ int ch;
+
for (i = 0; (ch = ix86_reg_alloc_order[i]) != '\0'; i++)
{
- int regno = 0;
+ int regno = -1;
switch (ch)
{
case 'D': regno = 5; break;
case 'B': regno = 6; break;
- default: fatal ("Register '%c' is unknown", ch);
+ default: error ("Register '%c' is unknown", ch);
}
- if (regs_allocated[regno])
- fatal ("Register '%c' already specified in allocation order", ch);
+ if (regno >= 0)
+ {
+ if (regs_allocated[regno])
+ error ("Register '%c' already specified in allocation order",
+ ch);
- regs_allocated[regno] = 1;
+ regs_allocated[regno] = 1;
+ }
}
}
/* Validate -mregparm= value. */
if (ix86_regparm_string)
{
- ix86_regparm = atoi (ix86_regparm_string);
- if (ix86_regparm < 0 || ix86_regparm > REGPARM_MAX)
- fatal ("-mregparm=%d is not between 0 and %d",
- ix86_regparm, REGPARM_MAX);
+ i = atoi (ix86_regparm_string);
+ if (i < 0 || i > REGPARM_MAX)
+ error ("-mregparm=%d is not between 0 and %d", i, REGPARM_MAX);
+ else
+ ix86_regparm = i;
}
/* Validate -malign-loops= value, or provide default. */
ix86_align_loops = processor_target_table[ix86_cpu].align_loop;
if (ix86_align_loops_string)
{
- ix86_align_loops = atoi (ix86_align_loops_string);
- if (ix86_align_loops < 0 || ix86_align_loops > MAX_CODE_ALIGN)
- fatal ("-malign-loops=%d is not between 0 and %d",
- ix86_align_loops, MAX_CODE_ALIGN);
+ i = atoi (ix86_align_loops_string);
+ if (i < 0 || i > MAX_CODE_ALIGN)
+ error ("-malign-loops=%d is not between 0 and %d", i, MAX_CODE_ALIGN);
+ else
+ ix86_align_loops = i;
}
/* Validate -malign-jumps= value, or provide default. */
ix86_align_jumps = processor_target_table[ix86_cpu].align_jump;
if (ix86_align_jumps_string)
{
- ix86_align_jumps = atoi (ix86_align_jumps_string);
- if (ix86_align_jumps < 0 || ix86_align_jumps > MAX_CODE_ALIGN)
- fatal ("-malign-jumps=%d is not between 0 and %d",
- ix86_align_jumps, MAX_CODE_ALIGN);
+ i = atoi (ix86_align_jumps_string);
+ if (i < 0 || i > MAX_CODE_ALIGN)
+ error ("-malign-jumps=%d is not between 0 and %d", i, MAX_CODE_ALIGN);
+ else
+ ix86_align_jumps = i;
}
/* Validate -malign-functions= value, or provide default. */
ix86_align_funcs = processor_target_table[ix86_cpu].align_func;
if (ix86_align_funcs_string)
{
- ix86_align_funcs = atoi (ix86_align_funcs_string);
- if (ix86_align_funcs < 0 || ix86_align_funcs > MAX_CODE_ALIGN)
- fatal ("-malign-functions=%d is not between 0 and %d",
- ix86_align_funcs, MAX_CODE_ALIGN);
+ i = atoi (ix86_align_funcs_string);
+ if (i < 0 || i > MAX_CODE_ALIGN)
+ error ("-malign-functions=%d is not between 0 and %d",
+ i, MAX_CODE_ALIGN);
+ else
+ ix86_align_funcs = i;
}
/* Validate -mpreferred-stack-boundary= value, or provide default.
ix86_preferred_stack_boundary = 128;
if (ix86_preferred_stack_boundary_string)
{
- int i = atoi (ix86_preferred_stack_boundary_string);
+ i = atoi (ix86_preferred_stack_boundary_string);
if (i < 2 || i > 31)
- fatal ("-mpreferred-stack-boundary=%d is not between 2 and 31", i);
- ix86_preferred_stack_boundary = (1 << i) * BITS_PER_UNIT;
+ error ("-mpreferred-stack-boundary=%d is not between 2 and 31", i);
+ else
+ ix86_preferred_stack_boundary = (1 << i) * BITS_PER_UNIT;
}
/* Validate -mbranch-cost= value, or provide default. */
ix86_branch_cost = processor_target_table[ix86_cpu].branch_cost;
if (ix86_branch_cost_string)
{
- ix86_branch_cost = atoi (ix86_branch_cost_string);
- if (ix86_branch_cost < 0 || ix86_branch_cost > 5)
- fatal ("-mbranch-cost=%d is not between 0 and 5",
- ix86_branch_cost);
+ i = atoi (ix86_branch_cost_string);
+ if (i < 0 || i > 5)
+ error ("-mbranch-cost=%d is not between 0 and 5", i);
+ else
+ ix86_branch_cost = i;
}
/* Keep nonleaf frame pointers. */
/* Subroutines for code generation on Motorola 68HC11 and 68HC12.
- Copyright (C) 1999, 2000 Free Software Foundation, Inc.
+ Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
Contributed by Stephane Carrez (stcarrez@worldnet.fr)
This file is part of GNU CC.
break;
default:
- fatal ("m68hc11_emit_libcall: Bad number of operands");
+ abort ();
}
insns = get_insns ();
/* Subroutines for insn-output.c for Motorola 68000 family.
- Copyright (C) 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000
+ Copyright (C) 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
Free Software Foundation, Inc.
This file is part of GNU CC.
override_options ()
{
int def_align;
+ int i;
def_align = 1;
/* Validate -malign-loops= value, or provide default */
+ m68k_align_loops = def_align;
if (m68k_align_loops_string)
{
- m68k_align_loops = atoi (m68k_align_loops_string);
- if (m68k_align_loops < 1 || m68k_align_loops > MAX_CODE_ALIGN)
- fatal ("-malign-loops=%d is not between 1 and %d",
- m68k_align_loops, MAX_CODE_ALIGN);
+ i = atoi (m68k_align_loops_string);
+ if (i < 1 || i > MAX_CODE_ALIGN)
+ error ("-malign-loops=%d is not between 1 and %d", i, MAX_CODE_ALIGN);
+ else
+ m68k_align_loops = i;
}
- else
- m68k_align_loops = def_align;
/* Validate -malign-jumps= value, or provide default */
+ m68k_align_jumps = def_align;
if (m68k_align_jumps_string)
{
- m68k_align_jumps = atoi (m68k_align_jumps_string);
- if (m68k_align_jumps < 1 || m68k_align_jumps > MAX_CODE_ALIGN)
- fatal ("-malign-jumps=%d is not between 1 and %d",
- m68k_align_jumps, MAX_CODE_ALIGN);
+ i = atoi (m68k_align_jumps_string);
+ if (i < 1 || i > MAX_CODE_ALIGN)
+ error ("-malign-jumps=%d is not between 1 and %d", i, MAX_CODE_ALIGN);
+ else
+ m68k_align_jumps = i;
}
- else
- m68k_align_jumps = def_align;
/* Validate -malign-functions= value, or provide default */
+ m68k_align_funcs = def_align;
if (m68k_align_funcs_string)
{
- m68k_align_funcs = atoi (m68k_align_funcs_string);
- if (m68k_align_funcs < 1 || m68k_align_funcs > MAX_CODE_ALIGN)
- fatal ("-malign-functions=%d is not between 1 and %d",
- m68k_align_funcs, MAX_CODE_ALIGN);
+ i = atoi (m68k_align_funcs_string);
+ if (i < 1 || i > MAX_CODE_ALIGN)
+ error ("-malign-functions=%d is not between 1 and %d",
+ i, MAX_CODE_ALIGN);
+ else
+ m68k_align_funcs = i;
}
- else
- m68k_align_funcs = def_align;
}
\f
/* This function generates the assembly code for function entry.
if (! ISA_HAS_64BIT_REGS)
{
if (TARGET_FLOAT64)
- fatal ("-mips%d does not support 64 bit fp registers", mips_isa);
+ {
+ error ("-mips%d does not support 64 bit fp registers", mips_isa);
+ target_flags &= ~ MASK_FLAG64;
+ }
else if (TARGET_64BIT)
- fatal ("-mips%d does not support 64 bit gp registers", mips_isa);
+ {
+ error ("-mips%d does not support 64 bit gp registers", mips_isa);
+ target_flags &= ~MASK_64BIT;
+ }
}
if (mips_abi != ABI_32 && mips_abi != ABI_O64)
fputs (reg_names[GP_REG_FIRST], file);
else if (letter == 'd' || letter == 'x' || letter == 'X')
- fatal ("PRINT_OPERAND: letter %c was found & insn was not CONST_INT",
- letter);
+ output_operand_lossage ("invalid use of %%d, %%x, or %%X");
else if (letter == 'B')
fputs (code == EQ ? "z" : "n", file);
- GET_MODE_SIZE (gpr_mode));
if (gp_offset < 0 || end_offset < 0)
- fatal ("gp_offset (%ld) or end_offset (%ld) is less than zero.",
- (long) gp_offset, (long) end_offset);
+ internal_error
+ ("gp_offset (%ld) or end_offset (%ld) is less than zero.",
+ (long) gp_offset, (long) end_offset);
/* If we see a large frame in mips16 mode, we save the registers
before adjusting the stack pointer, and load them afterward. */
end_offset = fp_offset - (current_frame_info.fp_reg_size - fp_size);
if (fp_offset < 0 || end_offset < 0)
- fatal ("fp_offset (%ld) or end_offset (%ld) is less than zero.",
- (long) fp_offset, (long) end_offset);
+ internal_error
+ ("fp_offset (%ld) or end_offset (%ld) is less than zero.",
+ (long) fp_offset, (long) end_offset);
else if (fp_offset < 32768)
base_reg_rtx = stack_pointer_rtx, base_offset = 0;
+Sun Feb 4 15:52:44 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
+
+ * decl.c (pushdecl): Call abort instead of fatal.
+ * except.c (decl_is_java_type): Call fatal_error instead of fatal.
+ * init.c (build_new_1): Likewise.
+ (build_java_class_ref): Call internal_error and fatal_error, not fatal.
+ * decl.c (build_typename_type): hash_table_init now returns void.
+ decl.c (init_decl_processing): Make an error non-fatal.
+
2001-02-04 Mark Mitchell <mark@codesourcery.com>
* cp-tree.h (CLASSTYPE_INTERFACE_UNKNOWN): Fix formatting.
else if (TREE_CODE (t) == PARM_DECL)
{
if (DECL_CONTEXT (t) == NULL_TREE)
- fatal ("parse errors have confused me too much");
+ /* This is probaby caused by too many errors, but calling
+ abort will say that if errors have occurred. */
+ abort ();
/* Check for duplicate params. */
if (duplicate_decls (x, t))
{
tree t;
tree d;
- struct hash_entry* e;
+ struct hash_entry *e;
static struct hash_table ht;
if (!ht.table)
{
static struct hash_table *h = &ht;
- if (!hash_table_init (&ht, &hash_newfunc, &typename_hash,
- &typename_compare))
- fatal ("virtual memory exhausted");
+
+ hash_table_init (&ht, &hash_newfunc, &typename_hash, &typename_compare);
ggc_add_tree_hash_table_root (&h, 1);
}
/* Check to see that the user did not specify an invalid combination
of command-line options. */
if (flag_new_abi && !flag_vtable_thunks)
- fatal ("the new ABI requires vtable thunks");
+ error ("the new ABI requires vtable thunks");
/* Create all the identifiers we need. */
initialize_predefined_identifiers ();
DECL_INITIAL (decl) = init;
- /* This will keep us from needing to worry about our obstacks. */
my_friendly_assert (init != NULL_TREE, 149);
init = NULL_TREE;
}
{
tree jthrow_node
= IDENTIFIER_GLOBAL_VALUE (get_identifier ("jthrowable"));
+
if (jthrow_node == NULL_TREE)
- fatal ("call to Java `catch' or `throw', while `jthrowable' undefined");
+ fatal_error
+ ("call to Java `catch' or `throw' with `jthrowable' undefined");
+
jthrow_node = TREE_TYPE (TREE_TYPE (jthrow_node));
if (! DERIVED_FROM_P (jthrow_node, TREE_TYPE (decl)))
/* Handle initialization things in C++.
Copyright (C) 1987, 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
- 1999, 2000 Free Software Foundation, Inc.
+ 1999, 2000, 2001 Free Software Foundation, Inc.
Contributed by Michael Tiemann (tiemann@cygnus.com)
This file is part of GNU CC.
CL_suffix = get_identifier("class$");
if (jclass_node == NULL_TREE)
{
- jclass_node = IDENTIFIER_GLOBAL_VALUE (get_identifier("jclass"));
+ jclass_node = IDENTIFIER_GLOBAL_VALUE (get_identifier ("jclass"));
if (jclass_node == NULL_TREE)
- fatal("call to Java constructor, while `jclass' undefined");
+ fatal_error ("call to Java constructor, while `jclass' undefined");
+
jclass_node = TREE_TYPE (jclass_node);
}
break;
}
if (!field)
- fatal ("Can't find class$");
+ internal_error ("Can't find class$");
}
else
name = build_static_name (type, CL_suffix);
use_java_new = 1;
alloc_decl = IDENTIFIER_GLOBAL_VALUE (get_identifier (alloc_name));
if (alloc_decl == NULL_TREE)
- fatal("call to Java constructor, while `%s' undefined", alloc_name);
+ fatal_error ("call to Java constructor with `%s' undefined",
+ alloc_name);
+
class_addr = build1 (ADDR_EXPR, jclass_node, class_decl);
alloc_call = (build_function_call
(alloc_decl,
/* Language-independent diagnostic subroutines for the GNU C compiler
- Copyright (C) 1999, 2000 Free Software Foundation, Inc.
+ Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
Contributed by Gabriel Dos Reis <gdr@codesourcery.com>
This file is part of GNU CC.
}
-/* Print a fatal error message. NAME is the text.
+/* Print a fatal I/O error message. Argument are like printf.
Also include a system error message based on `errno'. */
void
-pfatal_with_name (name)
- const char *name;
+fatal_io_error VPARAMS ((const char *msgid, ...))
{
- fprintf (stderr, "%s: ", progname);
- perror (name);
- exit (FATAL_EXIT_CODE);
-}
+#ifndef ANSI_PROTOTYPES
+ const char *msgid;
+#endif
+ va_list ap;
+ output_state os;
-void
-fatal_io_error (name)
- const char *name;
-{
- verbatim ("%s: %s: I/O error\n", progname, name);
+ os = output_buffer_state (diagnostic_buffer);
+ VA_START (ap, msgid);
+
+#ifndef ANSI_PROTOTYPES
+ msgid = va_arg (ap, const char *);
+#endif
+
+ output_printf (diagnostic_buffer, "%s: %s: ", progname, xstrerror (errno));
+ output_buffer_ptr_to_format_args (diagnostic_buffer) = ≈
+ output_buffer_text_cursor (diagnostic_buffer) = msgid;
+ output_format (diagnostic_buffer);
+ finish_diagnostic ();
+ output_buffer_state (diagnostic_buffer) = os;
+ va_end (ap);
exit (FATAL_EXIT_CODE);
}
va_end (ap);
}
+/* Report an error message. The arguments are like that of printf. */
+
void
error VPARAMS ((const char *msgid, ...))
{
va_end (ap);
}
-/* Report a fatal error at the current line number. Allow a front end to
+/* Likewise, except that the compilation is terminated after printing the
+ error message. */
+
+void
+fatal_error VPARAMS ((const char *msgid, ...))
+{
+#ifndef ANSI_PROTOTYPES
+ const char *msgid;
+#endif
+ va_list ap;
+ diagnostic_context dc;
+
+ VA_START (ap, msgid);
+
+#ifndef ANSI_PROTOTYPES
+ msgid = va_arg (ap, const char *);
+#endif
+
+ set_diagnostic_context
+ (&dc, msgid, &ap, input_filename, lineno, /* warn = */ 0);
+ report_diagnostic (&dc);
+ va_end (ap);
+
+ fprintf (stderr, "compilation terminated.\n");
+ exit (FATAL_EXIT_CODE);
+}
+
+/* Report a compiler error at the current line number. Allow a front end to
intercept the message. */
-static void (*fatal_function) PARAMS((const char *, va_list *));
+static void (*internal_error_function) PARAMS ((const char *, va_list *));
-/* Set the function to call when a fatal error occurs. */
+/* Set the function to call when a compiler error occurs. */
void
-set_fatal_function (f)
+set_internal_error_function (f)
void (*f) PARAMS ((const char *, va_list *));
{
- fatal_function = f;
+ internal_error_function = f;
}
void
-fatal VPARAMS ((const char *msgid, ...))
+internal_error VPARAMS ((const char *msgid, ...))
{
#ifndef ANSI_PROTOTYPES
const char *msgid;
exit (FATAL_EXIT_CODE);
}
- if (fatal_function != 0)
- (*fatal_function) (_(msgid), &ap);
+ if (internal_error_function != 0)
+ (*internal_error_function) (_(msgid), &ap);
set_diagnostic_context
(&dc, msgid, &ap, input_filename, lineno, /* warn = */0);
report_diagnostic (&dc);
va_end (ap);
- fprintf (stderr, "Please submit a full bug report, with preprocessed source if appropriate.\n");
+ fprintf (stderr, "Please submit a full bug report, ");
+ fprintf (stderr, "with preprocessed source if appropriate.\n");
fprintf (stderr, "See %s for instructions.\n", GCCBUGURL);
exit (FATAL_EXIT_CODE);
}
if (diagnostic_lock < 3)
finish_diagnostic ();
- fatal ("Internal compiler error: Error reporting routines re-entered.");
+ internal_error
+ ("Internal compiler error: Error reporting routines re-entered.");
}
/* Given a partial pathname as input, return another pathname that
int line;
const char *function;
{
- fatal ("Internal compiler error in %s, at %s:%d",
- function, trim_filename (file), line);
+ internal_error ("Internal compiler error in %s, at %s:%d",
+ function, trim_filename (file), line);
}
/* Setup DC for reporting a diagnostic MESSAGE (an error or a WARNING),
extern void set_diagnostic_context PARAMS ((diagnostic_context *,
const char *, va_list *,
const char *, int, int));
-extern void set_fatal_function PARAMS ((void (*)
+extern void set_internal_error_function PARAMS ((void (*)
PARAMS ((const char *,
va_list *))));
extern void report_diagnostic PARAMS ((diagnostic_context *));
cfa->offset = ptr->dw_loc_oprnd1.v.val_unsigned;
break;
default:
- fatal ("DW_LOC_OP %s not implememnted yet.\n",
- dwarf_stack_op_name (ptr->dw_loc_opc));
+ internal_error ("DW_LOC_OP %s not implememnted\n",
+ dwarf_stack_op_name (ptr->dw_loc_opc));
}
}
}
register char *dirname;
if (!pwd)
- pfatal_with_name ("getpwd");
+ fatal_io_error ("can't get current directory");
+
dirname = concat (pwd, "/", NULL);
ASM_OUTPUT_DWARF_STRING_NEWLINE (asm_out_file, dirname);
free (dirname);
&& GET_MODE_BITSIZE (mode) < BITS_PER_WORD
&& REG_P (x)
&& REGNO (x) < FIRST_PSEUDO_REGISTER)
- fatal ("Unable to access real part of complex value in a hard register on this target");
+ internal_error
+ ("Can't access real part of complex value in hard register");
else if (WORDS_BIG_ENDIAN)
return gen_highpart (mode, x);
else
&& GET_MODE_BITSIZE (mode) < BITS_PER_WORD
&& REG_P (x)
&& REGNO (x) < FIRST_PSEUDO_REGISTER)
- fatal ("Unable to access imaginary part of complex value in a hard register on this target");
+ internal_error
+ ("can't access imaginary part of complex value in hard register");
else
return gen_highpart (mode, x);
}
region = find_func_region (old_note_eh_region);
if (region == -1)
- fatal ("Cannot duplicate non-existant exception region.");
+ /* Cannot duplicate non-existant exception region. */
+ abort ();
/* duplicate_eh_handlers may have been called during a symbol remap. */
new_region = find_func_region (new_note_eh_region);
}
#ifdef MAX_INTEGER_COMPUTATION_MODE
+
void
check_max_integer_computation_mode (exp)
tree exp;
mode = TYPE_MODE (TREE_TYPE (exp));
if (GET_MODE_CLASS (mode) == MODE_INT
&& mode > MAX_INTEGER_COMPUTATION_MODE)
- fatal ("unsupported wide integer operation");
+ internal_error ("unsupported wide integer operation");
}
/* Check operand of a unary op. */
mode = TYPE_MODE (TREE_TYPE (TREE_OPERAND (exp, 0)));
if (GET_MODE_CLASS (mode) == MODE_INT
&& mode > MAX_INTEGER_COMPUTATION_MODE)
- fatal ("unsupported wide integer operation");
+ internal_error ("unsupported wide integer operation");
}
/* Check operands of a binary/comparison op. */
mode = TYPE_MODE (TREE_TYPE (TREE_OPERAND (exp, 0)));
if (GET_MODE_CLASS (mode) == MODE_INT
&& mode > MAX_INTEGER_COMPUTATION_MODE)
- fatal ("unsupported wide integer operation");
+ internal_error ("unsupported wide integer operation");
mode = TYPE_MODE (TREE_TYPE (TREE_OPERAND (exp, 1)));
if (GET_MODE_CLASS (mode) == MODE_INT
&& mode > MAX_INTEGER_COMPUTATION_MODE)
- fatal ("unsupported wide integer operation");
+ internal_error ("unsupported wide integer operation");
}
}
#endif
if (GET_MODE_CLASS (mode) == MODE_INT
&& mode > MAX_INTEGER_COMPUTATION_MODE)
- fatal ("unsupported wide integer operation");
+ internal_error ("unsupported wide integer operation");
}
if (tmode != mode
&& TREE_CODE (exp) != RTL_EXPR
&& GET_MODE_CLASS (tmode) == MODE_INT
&& tmode > MAX_INTEGER_COMPUTATION_MODE)
- fatal ("unsupported wide integer operation");
+ internal_error ("unsupported wide integer operation");
check_max_integer_computation_mode (exp);
#endif
+Sun Feb 4 15:52:44 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
+
+ * com.c (ffecom_init_0): Call fatal_error instead of fatal.
+ * com.c (init_parse): Call fatal_io_error instead of
+ pfatal_with_name.
+ (ffecom_decode_include_option_): Make errors non-fatal.
+ * lex.c (ffelex_cfelex_, ffelex_get_directive_line_): Likewise.
+ (ffelex_hash_): Likewise.
+
Sat Jan 27 20:52:18 2001 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* Make-lang.in: Remove all dependencies on defaults.h.
/* Set up pointer types. */
if (ffecom_pointer_kind_ == FFEINFO_basictypeNONE)
- fatal ("no INTEGER type can hold a pointer on this configuration");
+ fatal_error ("no INTEGER type can hold a pointer on this configuration");
else if (0 && ffe_is_do_internal_checks ())
fprintf (stderr, "Pointer type kt=%d\n", ffecom_pointer_kind_);
ffetype_set_kind (ffeinfo_type (FFEINFO_basictypeINTEGER,
else
finput = fopen (filename, "r");
if (finput == 0)
- pfatal_with_name (filename);
+ fatal_io_error ("can't open %s", filename);
#ifdef IO_BUFFER_SIZE
setvbuf (finput, (char *) xmalloc (IO_BUFFER_SIZE), _IOFBF, IO_BUFFER_SIZE);
dirtmp = (struct file_name_list *)
xmalloc (sizeof (struct file_name_list));
dirtmp->next = 0; /* New one goes on the end */
- if (spec[0] != 0)
- dirtmp->fname = spec;
- else
- fatal ("Directory name must immediately follow -I option with no intervening spaces, as in `-Idir', not `-I dir'");
+ dirtmp->fname = spec;
dirtmp->got_name_map = 0;
- append_include_chain (dirtmp, dirtmp);
+ if (spec[0] == 0)
+ error ("Directory name must immediately follow -I");
+ else
+ append_include_chain (dirtmp, dirtmp);
}
return 1;
}
/* Implementation of Fortran lexer
- Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
+ Copyright (C) 1995, 1996, 1997, 1998, 2001 Free Software Foundation, Inc.
Contributed by James Craig Burley.
This file is part of GNU Fortran.
case EOF:
case '\n':
- fatal ("Badly formed directive -- no closing quote");
+ error ("Badly formed directive -- no closing quote");
done = TRUE;
break;
|| c == EOF)
{
if (looking_for != 0)
- fatal ("Bad directive -- missing close-quote");
+ error ("Bad directive -- missing close-quote");
*p++ = '\0';
*text = directive_buffer;
{
lineno = 1;
input_filename = old_input_filename;
- fatal ("Use `#line ...' instead of `# ...' in first line");
+ error ("Use `#line ...' instead of `# ...' in first line");
}
if (num == 1)
{
lineno = 1;
input_filename = old_input_filename;
- fatal ("Use `#line ...' instead of `# ...' in first line");
+ error ("Use `#line ...' instead of `# ...' in first line");
}
}
else
basic_block bb = NOTE_BASIC_BLOCK (x);
num_bb_notes++;
if (bb->index != last_bb_num_seen + 1)
- fatal ("Basic blocks not numbered consecutively");
+ /* Basic blocks not numbered consecutively. */
+ abort ();
+
last_bb_num_seen = bb->index;
}
}
if (num_bb_notes != n_basic_blocks)
- fatal ("number of bb notes in insn chain (%d) != n_basic_blocks (%d)",
- num_bb_notes, n_basic_blocks);
+ internal_error
+ ("number of bb notes in insn chain (%d) != n_basic_blocks (%d)",
+ num_bb_notes, n_basic_blocks);
if (err)
abort ();
/* Output routines for graphical representation.
- Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
+ Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
Contributed by Ulrich Drepper <drepper@cygnus.com>, 1998.
- This file is part of GNU CC.
+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 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.
+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. */
+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. */
#include <config.h>
#include "system.h"
/* Similar as clean_dump_file, but this time for graph output files. */
+
void
clean_graph_dump_file (base, suffix)
const char *base;
fp = fopen (buf, "w");
if (fp == NULL)
- pfatal_with_name (buf);
+ fatal_io_error ("can't open %s", buf);
switch (graph_dump_format)
{
/* hash.c -- hash table routines
- Copyright (C) 1993, 1994, 1998 Free Software Foundation, Inc.
+ Copyright (C) 1993, 1994, 1998, 2001 Free Software Foundation, Inc.
Written by Steve Chamberlain <sac@cygnus.com>
This file was lifted from BFD, the Binary File Descriptor library.
#define obstack_chunk_free free
/* The default number of entries to use when creating a hash table. */
-#define DEFAULT_SIZE (1009)
+#define DEFAULT_SIZE 1009
/* Create a new hash table, given a number of entries. */
-boolean
+void
hash_table_init_n (table, newfunc, hash, comp, size)
struct hash_table *table;
struct hash_entry *(*newfunc) PARAMS ((struct hash_entry *,
unsigned int alloc;
alloc = size * sizeof (struct hash_entry *);
- if (!obstack_begin (&table->memory, alloc))
- {
- error ("no memory");
- return false;
- }
+ obstack_begin (&table->memory, alloc);
table->table = ((struct hash_entry **)
obstack_alloc (&table->memory, alloc));
- if (!table->table)
- {
- error ("no memory");
- return false;
- }
memset ((PTR) table->table, 0, alloc);
table->size = size;
table->newfunc = newfunc;
table->hash = hash;
table->comp = comp;
- return true;
}
/* Create a new hash table with the default number of entries. */
-boolean
+void
hash_table_init (table, newfunc, hash, comp)
struct hash_table *table;
struct hash_entry *(*newfunc) PARAMS ((struct hash_entry *,
unsigned long (*hash) PARAMS ((hash_table_key));
boolean (*comp) PARAMS ((hash_table_key, hash_table_key));
{
- return hash_table_init_n (table, newfunc, hash, comp, DEFAULT_SIZE);
+ hash_table_init_n (table, newfunc, hash, comp, DEFAULT_SIZE);
}
/* Free a hash table. */
hash = (*table->hash)(key);
index = hash % table->size;
- for (hashp = table->table[index];
- hashp != (struct hash_entry *) NULL;
- hashp = hashp->next)
- {
- if (hashp->hash == hash
- && (*table->comp)(hashp->key, key))
- return hashp;
- }
+ for (hashp = table->table[index]; hashp != 0; hashp = hashp->next)
+ if (hashp->hash == hash
+ && (*table->comp)(hashp->key, key))
+ return hashp;
if (! create)
- return (struct hash_entry *) NULL;
+ return 0;
hashp = (*table->newfunc) ((struct hash_entry *) NULL, table, key);
- if (hashp == (struct hash_entry *) NULL)
- return (struct hash_entry *) NULL;
+ if (hashp == 0)
+ return 0;
+
if (copy)
key = (*copy) (&table->memory, key);
+
hashp->key = key;
hashp->hash = hash;
hashp->next = table->table[index];
/* Base method for creating a new hash table entry. */
-/*ARGSUSED*/
struct hash_entry *
hash_newfunc (entry, table, p)
struct hash_entry *entry;
struct hash_table *table;
hash_table_key p ATTRIBUTE_UNUSED;
{
- if (entry == (struct hash_entry *) NULL)
+ if (entry == 0)
entry = ((struct hash_entry *)
hash_allocate (table, sizeof (struct hash_entry)));
return entry;
struct hash_table *table;
unsigned int size;
{
- PTR ret;
-
- ret = obstack_alloc (&table->memory, size);
- if (ret == NULL && size != 0)
- error ("no memory");
- return ret;
+ return obstack_alloc (&table->memory, size);
}
/* Traverse a hash table. */
PTR info;
{
unsigned int i;
+ struct hash_entry *p;
for (i = 0; i < table->size; i++)
- {
- struct hash_entry *p;
-
- for (p = table->table[i]; p != NULL; p = p->next)
- {
- if (! (*func) (p, info))
- return;
- }
- }
+ for (p = table->table[i]; p != 0; p = p->next)
+ if (! (*func) (p, info))
+ return;
}
/* Hash a string. Return a hash-code for the string. */
hash ^= hash >> 2;
++len;
}
+
hash += len + (len << 17);
hash ^= hash >> 2;
hash_table_key
string_copy (memory, k)
- struct obstack* memory;
+ struct obstack *memory;
hash_table_key k;
{
char *new;
- char *string = (char*) k;
+ char *string = (char *) k;
new = (char *) obstack_alloc (memory, strlen (string) + 1);
- if (!new)
- {
- error ("no memory");
- return NULL;
- }
strcpy (new, string);
return new;
/* Header file for generic hash table support.
- Copyright (C) 1993, 1994, 1997, 1998 Free Software Foundation, Inc.
+ Copyright (C) 1993, 1994, 1997, 1998, 2001 Free Software Foundation, Inc.
Written by Steve Chamberlain <sac@cygnus.com>
This file was lifted from BFD, the Binary File Descriptor library.
};
/* Initialize a hash table. */
-extern boolean hash_table_init
+extern void hash_table_init
PARAMS ((struct hash_table *,
struct hash_entry *(*) (struct hash_entry *,
struct hash_table *,
boolean (*comp) (hash_table_key, hash_table_key)));
/* Initialize a hash table specifying a size. */
-extern boolean hash_table_init_n
+extern void hash_table_init_n
PARAMS ((struct hash_table *,
struct hash_entry *(*) (struct hash_entry *,
struct hash_table *,
+Sun Feb 4 15:52:44 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
+
+ * check-init.c (check_init): Call internal_error instead of fatal.
+ * expr.c (java_lang_expand_expr): Likewise.
+ * jcf-parse.c (get_constant): Likewise.
+ * mangle.c (java_mangle_decl): Likewise.
+ * parse.y (make_nested_class_name, java_complete_lhs): Likewise.
+ (operator_string): Likewise.
+ * check-init.c (check_init): Call abort instead of fatal.
+ * class.c (build_class_ref): Likewise.
+ * constants.c (write_constant_pool): Likewise.
+ * decl.c (start_java_method): Likewise.
+ * expr.c (push_type, java_stack_pop, java_stack_swap): Likewise.
+ (java_stack_dup, encode_newarray_type): Likewise.
+ (build_java_array_length_access): Likewise.
+ (build_java_check_indexed_type, expand_java_pushc): Likewise.
+ (build_java_soft_divmod, build_invokeinterface): Likewise.
+ * java-tree.h (INNER_CLASS_P): Likewise.
+ * jcf-parse.c (parse_signature, get_name_constant): Likewise.
+ (give_name_to_class, get_class_constant): Likewise.
+ * jcf-write.c (CHECK_PUT, CHECK_OP, get_access_flags): Likewise.
+ (find_constant_index, generate_bytecode_conditional): Likewise.
+ (generate_bytecode_insns, perform_relocations): Likewise.
+ * lex.c (java_unget_unicode, java_lex): Likewise.
+ * mangle.c (mangle_type, mangle_record_type): Likewise.
+ (mangle_pointer_type, mangle_array_type, init_mangling): Likewise.
+ (finish_mangling): Likewise.
+ * parse.h (MARK_FINAL_PARMS): Likewise.
+ * parse.y (pop_current_osb, unreachable_stmt_error): Likewise.
+ (obtain_incomplete_type, java_complete_class): Likewise.
+ (java_check_regular_methods, java_complete_expand_method): Likewise.
+ (cut_identifier_in_qualified, check_deprecation): Likewise.
+ (patch_invoke, find_applicable_accessible_methods_list): Likewise.
+ (java_complete_lhs, lookup_name_in_blocks): Likewise.
+ (check_final_variable_indirect_assignment, build_unaryop): Likewise.
+ * typeck.c (set_local_type, parse_signature_type): Likewise.
+ (parse_signature_string, build_java_signature): Likewise;
+ (set_java_signature): Likewise.
+ * verify.c (type_stack_dup, CHECK_PC_IN_RANGE): Likewise.
+ * class.c (add_method): Call fatal_error instead of fatal.
+ (build_static_field_ref): Likewise.
+ * expr.c (build_known_method_ref, expand_invoke): Likewise.
+ * jcf-parse.c (get_constant, jcf_parse): Likewise.
+ * lex.c (java_new_new_lexer): Likewise.
+ * jv-scan.c (main): Likewise.
+ (fatal_error): Renamed from fatal.
+ * jcf-parse.c (yyparse): Call fatal_io_error instead of
+ pfatal_with_name.
+ * jcf-parse.c (jcf_parse_source): Call fatal_io_error, not fatal.
+ (yyparse): Likewise.
+ * jcf-write.c (make_class_file_name, write_classfile): Likewise.
+ * lex.c (java_get_line_col): Likewise.
+ * jcf-parse.c (load_class): Make errors non-fatal.
+ * lex.c (byteswap_init, need_byteswap): Only #ifdef HAVE_ICONV.
+
2001-02-01 Bryce McKinlay <bryce@albatross.co.nz>
* jvgenmain.c (class_mangling_suffix): Remove unused string.
/* Code to test for "definitive assignment".
-
- Copyright (C) 1999, 2000 Free Software Foundation, Inc.
+ Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
words when_false = tmp + num_current_words;
#ifdef ENABLE_JC1_CHECKING
if (TREE_CODE (alt->block) != LOOP_EXPR)
- fatal ("internal error in check-init: EXIT_EXPR not in LOOP_EXPR");
+ abort ();
#endif
check_bool_init (TREE_OPERAND (exp, 0), before, when_false, when_true);
done_alternative (when_true, alt);
struct alternatives *alt = alternatives;
#ifdef ENABLE_JC1_CHECKING
if (TREE_CODE (alt->block) != CLEANUP_POINT_EXPR)
- fatal ("internal error in check-init: WITH_CLEANUP_EXPR not in CLEANUP_POINT_EXPR");
+ abort ();
#endif
check_init (TREE_OPERAND (exp, 0), before);
UNION (alt->combined, alt->combined, before);
break;
default:
- fatal ("internal error in check-init: tree code not implemented: %s",
- tree_code_name [(int) TREE_CODE (exp)]);
+ internal_error
+ ("internal error in check-init: tree code not implemented: %s",
+ tree_code_name [(int) TREE_CODE (exp)]);
}
}
/* Functions related to building classes and their related objects.
- Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
+ Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001
+ Free Software Foundation, Inc.
This file is part of GNU CC.
{
tree handle_class = CLASS_TO_HANDLE_TYPE (this_class);
tree function_type, fndecl;
- const unsigned char *sig = (const unsigned char*)IDENTIFIER_POINTER (method_sig);
+ const unsigned char *sig
+ = (const unsigned char *) IDENTIFIER_POINTER (method_sig);
+
if (sig[0] != '(')
- fatal ("bad method signature");
+ fatal_error ("bad method signature");
+
function_type = get_type_from_signature (method_sig);
fndecl = add_method_1 (handle_class, access_flags, name, function_type);
set_java_signature (TREE_TYPE (fndecl), method_sig);
else if (type == void_type_node)
prim_class_name = "java.lang.Void";
else
- fatal ("internal error - bad type to build_class_ref");
+ abort ();
+
prim_class = lookup_class (get_identifier (prim_class_name));
return build (COMPONENT_REF, NULL_TREE,
prim_class, TYPE_identifier_node);
if (fld == fdecl)
break;
if (fld == NULL_TREE)
- fatal ("field '%s' not found in class",
- IDENTIFIER_POINTER (DECL_NAME (fdecl)));
+ fatal_error ("field '%s' not found in class",
+ IDENTIFIER_POINTER (DECL_NAME (fdecl)));
if (FIELD_STATIC (fld))
field_index++;
}
void
write_constant_pool (cpool, buffer, length)
CPool *cpool;
- unsigned char* buffer;
+ unsigned char *buffer;
int length;
{
- unsigned char* ptr = buffer;
+ unsigned char *ptr = buffer;
int i = 1;
jword *datap = &cpool->data[1];
PUT2 (cpool->count);
break;
}
}
+
if (ptr != buffer + length)
- fatal("internal error - incorrect constant pool");
+ abort ();
}
CPool *outgoing_cpool;
/* Process declarations and variables for the GNU compiler for the
Java(TM) language.
- Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
+ Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001
+ Free Software Foundation, Inc.
This file is part of GNU CC.
{
tree parm_name = NULL_TREE, parm_decl;
tree parm_type = TREE_VALUE (tem);
- if (i >= DECL_MAX_LOCALS(fndecl))
- fatal ("function has more parameters than local slots");
+ if (i >= DECL_MAX_LOCALS (fndecl))
+ abort ();
parm_decl = build_decl (PARM_DECL, parm_name, parm_type);
DECL_CONTEXT (parm_decl) = fndecl;
/* Process expressions for the GNU compiler for the Java(TM) language.
- Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
+ Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001
+ Free Software Foundation, Inc.
This file is part of GNU CC.
tree type;
{
if (! push_type_0 (type))
- fatal ("stack overflow");
+ abort ();
}
static void
while (count > 0)
{
tree type, val;
+
if (stack_pointer == 0)
- fatal ("stack underflow");
+ abort ();
+
type = stack_type_map[stack_pointer - 1];
if (type == TYPE_SECOND)
{
count--;
if (stack_pointer == 1 || count <= 0)
- fatal ("stack underflow");
+ abort ();
+
type = stack_type_map[stack_pointer - 2];
}
val = pop_value (type);
|| (type2 = stack_type_map[stack_pointer - 2]) == TYPE_UNKNOWN
|| type1 == TYPE_SECOND || type2 == TYPE_SECOND
|| TYPE_IS_WIDE (type1) || TYPE_IS_WIDE (type2))
- fatal ("bad stack swap");
+ /* Bad stack swap. */
+ abort ();
flush_quick_stack ();
decl1 = find_stack_slot (stack_pointer - 1, type1);
if (type == TYPE_SECOND)
{
if (src_index <= low_index)
- fatal ("dup operation splits 64-bit number");
+ /* Dup operation splits 64-bit number. */
+ abort ();
+
stack_type_map[dst_index] = type;
src_index--; dst_index--;
type = stack_type_map[src_index];
if (! TYPE_IS_WIDE (type))
- fatal ("internal error - dup operation");
+ abort ();
}
else if (TYPE_IS_WIDE (type))
- fatal ("internal error - dup operation");
+ abort ();
+
if (src_index != dst_index)
{
tree src_decl = find_stack_slot (src_index, type);
else if (type == long_type_node)
return 11;
else
- fatal ("Can't compute type code - patch_newarray");
+ abort ();
}
/* Build a call to _Jv_ThrowBadArrayIndex(), the
{
tree type = TREE_TYPE (node);
HOST_WIDE_INT length;
+
if (!is_array_type_p (type))
- fatal ("array length on a non-array reference");
+ abort ();
+
length = java_array_type_length (type);
if (length >= 0)
return build_int_2 (length, 0);
+
return fold (build1 (INDIRECT_REF,
int_type_node,
fold (build (PLUS_EXPR, ptr_type_node,
tree elt_type;
if (!is_array_type_p (TREE_TYPE (array_node)))
- fatal ("array indexing on a non-array reference");
+ abort ();
elt_type = (TYPE_ARRAY_ELEMENT (TREE_TYPE (TREE_TYPE (array_node))));
return boolean_type_node;
if (indexed_type != elt_type )
- fatal ("type array element mismatch");
+ abort ();
else
return indexed_type;
}
value = build_real (type, x);
}
else
- fatal ("internal error in expand_java_pushc");
+ abort ();
+
push_value (value);
}
}
if (! call)
- fatal ("Internal compiler error in build_java_soft_divmod");
+ abort ();
call = build (CALL_EXPR, type,
build_address_of (call),
if (method == meth)
break;
if (meth == NULL_TREE)
- fatal ("method '%s' not found in class",
- IDENTIFIER_POINTER (DECL_NAME (method)));
+ fatal_error ("method '%s' not found in class",
+ IDENTIFIER_POINTER (DECL_NAME (method)));
method_index++;
}
method_index *= int_size_in_bytes (method_type_node);
break;
}
if (meth == NULL_TREE)
- fatal ("internal error in build_invokeinterface");
+ abort ();
}
lookup_arg = tree_cons (NULL_TREE, dtable,
tree method_name = COMPONENT_REF_NAME (¤t_jcf->cpool, method_ref_index);
tree self_type = get_class_constant
(current_jcf, COMPONENT_REF_CLASS_INDEX(¤t_jcf->cpool, method_ref_index));
- const char *self_name = IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (self_type)));
+ const char *self_name
+ = IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (self_type)));
tree call, func, method, arg_list, method_type;
tree cond = NULL_TREE;
load_class (self_type, 1);
safe_layout_class (self_type);
if (TREE_CODE (TYPE_SIZE (self_type)) == ERROR_MARK)
- fatal ("failed to find class '%s'", self_name);
+ fatal_error ("failed to find class '%s'", self_name);
}
layout_class_methods (self_type);
return const0_rtx;
default:
- fatal ("Can't expand '%s' tree - java_lang_expand_expr",
- tree_code_name [TREE_CODE (exp)]);
+ internal_error ("Can't expand %s", tree_code_name [TREE_CODE (exp)]);
}
}
INNER_CLASS_DECL_P (NODE) : \
(TREE_CODE (NODE) == RECORD_TYPE ? \
INNER_CLASS_TYPE_P (NODE) : \
- (fatal ("INNER_CLASS_P: Wrong node type"), 0)))
+ (abort (), 0)))
/* On a TYPE_DECL, hold the list of inner classes defined within the
scope of TYPE_DECL. */
JCF *jcf;
int sig_index;
{
- if (sig_index <= 0 || sig_index >= JPOOL_SIZE(jcf)
+ if (sig_index <= 0 || sig_index >= JPOOL_SIZE (jcf)
|| JPOOL_TAG (jcf, sig_index) != CONSTANT_Utf8)
- fatal ("invalid field/method signature");
+ abort ();
else
- {
- return parse_signature_string (JPOOL_UTF_DATA (jcf, sig_index),
- JPOOL_UTF_LENGTH (jcf, sig_index));
- }
+ return parse_signature_string (JPOOL_UTF_DATA (jcf, sig_index),
+ JPOOL_UTF_LENGTH (jcf, sig_index));
}
void
{
int char_len = UT8_CHAR_LENGTH (*utf8);
if (char_len < 0 || char_len > 3 || char_len > i)
- fatal ("bad string constant");
+ fatal_error ("bad string constant");
+
utf8 += char_len;
i -= char_len;
str_len++;
default:
goto bad;
}
- JPOOL_TAG(jcf, index) = tag | CONSTANT_ResolvedFlag;
+ JPOOL_TAG (jcf, index) = tag | CONSTANT_ResolvedFlag;
jcf->cpool.data [index] = (jword) value;
return value;
bad:
- fatal ("bad value constant type %d, index %d",
- JPOOL_TAG( jcf, index ), index);
+ internal_error ("bad value constant type %d, index %d",
+ JPOOL_TAG (jcf, index), index);
}
tree
int index;
{
tree name = get_constant (jcf, index);
+
if (TREE_CODE (name) != IDENTIFIER_NODE)
- fatal ("bad nameandtype index %d", index);
+ abort ();
+
return name;
}
JCF *jcf;
int i;
{
- if (i <= 0 || i >= JPOOL_SIZE(jcf)
+ if (i <= 0 || i >= JPOOL_SIZE (jcf)
|| JPOOL_TAG (jcf, i) != CONSTANT_Class)
- fatal ("bad class index %d", i);
+ abort ();
else
{
tree this_class;
get_class_constant (JCF *jcf , int i)
{
tree type;
- if (i <= 0 || i >= JPOOL_SIZE(jcf)
+ if (i <= 0 || i >= JPOOL_SIZE (jcf)
|| (JPOOL_TAG (jcf, i) & ~CONSTANT_ResolvedFlag) != CONSTANT_Class)
- fatal ("bad class index %d", i);
+ abort ();
if (JPOOL_TAG (jcf, i) != CONSTANT_ResolvedClass)
{
/* verify_constant_pool confirmed that name_index is a CONSTANT_Utf8. */
const char *name = JPOOL_UTF_DATA (jcf, name_index);
int nlength = JPOOL_UTF_LENGTH (jcf, name_index);
+
if (name[0] == '[') /* Handle array "classes". */
type = TREE_TYPE (parse_signature_string (name, nlength));
else
name = DECL_NAME (TYPE_NAME (class_or_name));
if (read_class (name) == 0 && verbose)
- fatal ("Cannot find file for class %s.", IDENTIFIER_POINTER (name));
+ error ("Cannot find file for class %s.", IDENTIFIER_POINTER (name));
}
/* Parse a source file when JCF refers to a source file. */
if (!HAS_BEEN_ALREADY_PARSED_P (file))
{
if (!(finput = fopen (input_filename, "r")))
- fatal ("input file `%s' just disappeared - jcf_parse_source",
- input_filename);
+ fatal_io_error ("can't reopen %s", input_filename);
parse_source_file (file, finput);
if (fclose (finput))
- fatal ("can't close input file `%s' stream - jcf_parse_source",
- input_filename);
+ fatal_io_error ("can't close %s", input_filename);
}
java_pop_parser_context (IS_A_COMMAND_LINE_FILENAME_P (file));
java_parser_context_restore_global ();
tree current;
if (jcf_parse_preamble (jcf) != 0)
- fatal ("Not a valid Java .class file.\n");
+ fatal_error ("not a valid Java .class file");
code = jcf_parse_constant_pool (jcf);
if (code != 0)
- fatal ("error while parsing constant pool");
+ fatal_error ("error while parsing constant pool");
code = verify_constant_pool (jcf);
if (code > 0)
- fatal ("error in constant pool entry #%d\n", code);
+ fatal_error ("error in constant pool entry #%d\n", code);
jcf_parse_class (jcf);
if (main_class == NULL_TREE)
code = jcf_parse_fields (jcf);
if (code != 0)
- fatal ("error while parsing fields");
+ fatal_error ("error while parsing fields");
code = jcf_parse_methods (jcf);
if (code != 0)
- fatal ("error while parsing methods");
+ fatal_error ("error while parsing methods");
code = jcf_parse_final_attributes (jcf);
if (code != 0)
- fatal ("error while parsing final attributes");
+ fatal_error ("error while parsing final attributes");
/* The fields of class_type_node are already in correct order. */
if (current_class != class_type_node && current_class != object_type_node)
/* Close previous descriptor, if any */
if (main_jcf->read_state && fclose (main_jcf->read_state))
- fatal ("failed to close input file `%s' - yyparse",
- (main_jcf->filename ? main_jcf->filename : "<unknown>"));
+ fatal_io_error ("can't close %s",
+ main_jcf->filename ? main_jcf->filename : "<unknown>");
/* Set jcf up and open a new file */
JCF_ZERO (main_jcf);
main_jcf->read_state = fopen (IDENTIFIER_POINTER (name), "rb");
if (main_jcf->read_state == NULL)
- pfatal_with_name (IDENTIFIER_POINTER (name));
+ fatal_io_error ("can't open %s", IDENTIFIER_POINTER (name));
/* Set new input_filename and finput */
finput = main_jcf->read_state;
/* Write out a Java(TM) class file.
- Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
+ Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
This file is part of GNU CC.
static int CHECK_PUT PARAMS ((void *, struct jcf_partial *, int));
static int
-CHECK_PUT(ptr, state, i)
+CHECK_PUT (ptr, state, i)
void *ptr;
struct jcf_partial *state;
int i;
{
- if ((unsigned char *)ptr < state->chunk->data
- || (unsigned char*)ptr + i > state->chunk->data + state->chunk->size)
- fatal ("internal error - CHECK_PUT failed");
+ if ((unsigned char *) ptr < state->chunk->data
+ || (unsigned char *) ptr + i > state->chunk->data + state->chunk->size)
+ abort ();
+
return 0;
}
#else
static int CHECK_OP PARAMS ((struct jcf_partial *));
static int
-CHECK_OP(struct jcf_partial *state)
+CHECK_OP (state)
+ struct jcf_partial *state;
{
if (state->bytecode.ptr > state->bytecode.limit)
- {
- fatal("internal error - CHECK_OP failed");
- }
+ abort ();
+
return 0;
}
#else
-#define CHECK_OP(STATE) ((void)0)
+#define CHECK_OP(STATE) ((void) 0)
#endif
static unsigned char *
flags |= ACC_PRIVATE;
}
else
- fatal ("internal error - bad argument to get_access_flags");
+ abort ();
+
if (TREE_CODE (decl) == FUNCTION_DECL)
{
if (METHOD_NATIVE (decl))
}
}
else if (TREE_CODE (value) == STRING_CST)
- {
- return find_string_constant (&state->cpool, value);
- }
+ return find_string_constant (&state->cpool, value);
+
else
- fatal ("find_constant_index - bad type");
+ abort ();
}
/* Push 64-bit long constant on VM stack.
true_label, false_label,
true_branch_first, state);
if (state->code_SP != save_SP_after)
- fatal ("internal error non-matching SP");
+ abort ();
}
break;
case TRUTH_NOT_EXPR:
- generate_bytecode_conditional (TREE_OPERAND (exp, 0), false_label, true_label,
- ! true_branch_first, state);
+ generate_bytecode_conditional (TREE_OPERAND (exp, 0), false_label,
+ true_label, ! true_branch_first, state);
break;
case TRUTH_ANDIF_EXPR:
{
break;
}
if (save_SP != state->code_SP)
- fatal ("internal error - SP mismatch");
+ abort ();
}
/* Call pending cleanups i.e. those for surrounding CLEANUP_POINT_EXPRs
else if (TREE_CODE (exp) == ARRAY_REF)
{
jopcode = OPCODE_iastore + adjust_typed_op (TREE_TYPE (exp), 7);
- RESERVE(1);
+ RESERVE (1);
OP1 (jopcode);
NOTE_POP (TYPE_IS_WIDE (TREE_TYPE (exp)) ? 4 : 3);
}
else
- fatal ("internal error (bad lhs to MODIFY_EXPR)");
+ abort ();
break;
case PLUS_EXPR:
jopcode = OPCODE_iadd;
{
DECL_CONTEXT (f) = saved_context;
if (nargs <= 0)
- fatal ("Illegal number of arguments to invokeinterface, nargs=%d",
- nargs);
+ abort ();
+
OP1 (nargs);
OP1 (0);
}
}
}
if (new_ptr != chunk->data)
- fatal ("internal error - perform_relocations");
+ abort ();
}
state->code_length = pc;
}
if (s == NULL)
break;
*s = '\0';
- if (stat (r, &sb) == -1)
- {
+ if (stat (r, &sb) == -1
/* Try to make it. */
- if (mkdir (r, 0755) == -1)
- {
- fatal ("failed to create directory `%s'", r);
- free (r);
- return NULL;
- }
- }
+ && mkdir (r, 0755) == -1)
+ fatal_io_error ("can't create directory %s", r);
+
*s = DIR_SEPARATOR;
/* Skip consecutive separators. */
for (dname = s + 1; *dname && *dname == DIR_SEPARATOR; ++dname)
if (class_file_name != NULL)
{
- FILE* stream = fopen (class_file_name, "wb");
+ FILE *stream = fopen (class_file_name, "wb");
if (stream == NULL)
- fatal ("failed to open `%s' for writing", class_file_name);
+ fatal_io_error ("can't to open %s", class_file_name);
+
jcf_dependency_add_target (class_file_name);
init_jcf_state (state, work);
chunks = generate_classfile (clas, state);
write_chunks (stream, chunks);
if (fclose (stream))
- fatal ("failed to close after writing `%s'", class_file_name);
+ fatal_io_error ("can't close %s", class_file_name);
free (class_file_name);
}
release_jcf_state (state);
/* Main for jv-scan
- Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
+ Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
Contributed by Alexandre Petit-Bianco (apbianco@cygnus.com)
This file is part of GNU CC.
#include <getopt.h>
-void fatal PARAMS ((const char *s, ...)) ATTRIBUTE_PRINTF_1 ATTRIBUTE_NORETURN;
+extern void fatal_error PARAMS ((const char *s, ...))
+ ATTRIBUTE_PRINTF_1 ATTRIBUTE_NORETURN;
void warning PARAMS ((const char *s, ...)) ATTRIBUTE_PRINTF_1;
void gcc_obstack_init PARAMS ((struct obstack *obstack));
void report PARAMS ((void));
/* Check on bad usage */
if (flag_find_main + flag_dump_class + flag_complexity > 1)
- fatal ("Only one of `--print-main', `--list-class', and `--complexity' allowed");
+ fatal_error
+ ("Only one of `--print-main', `--list-class', and `--complexity' allowed");
if (output_file && !(out = fopen (output_file, "w")))
- fatal ("Can't open output file `%s'", output_file);
+ fatal_error ("Can't open output file `%s'", output_file);
ft = ftell (out);
reset_report ();
}
else
- fatal ("File not found `%s'", argv [i]);
+ fatal_error ("File not found `%s'", argv [i]);
}
/* Flush and close */
functions */
void
-fatal VPARAMS ((const char *s, ...))
+fatal_error VPARAMS ((const char *s, ...))
{
#ifndef ANSI_PROTOTYPES
const char *s;
java_lexer *java_new_lexer PARAMS ((FILE *, const char *));
+#ifdef HAVE_ICONV
/* This is nonzero if we have initialized `need_byteswap'. */
static int byteswap_init = 0;
doing a conversion once at startup and seeing what happens. This
flag holds the results of this determination. */
static int need_byteswap = 0;
+#endif
void
java_init_lex (finput, encoding)
java_unget_unicode ()
{
if (!ctxp->c_line->current)
- fatal ("can't unget unicode - java_unget_unicode");
+ /* Can't unget unicode. */
+ abort ();
+
ctxp->c_line->current--;
ctxp->c_line->char_col -= JAVA_COLUMN_DELTA (0);
}
}
/* Create a new lexer object. */
+
java_lexer *
java_new_lexer (finput, encoding)
FILE *finput;
{
/* If iconv failed, use the internal decoder if the default
encoding was requested. This code is used on platforms where
- iconv() exists but is insufficient for our needs. For
- instance, on Solaris 2.5 iconv() cannot handle UTF-8 or UCS-2. */
+ iconv exists but is insufficient for our needs. For
+ instance, on Solaris 2.5 iconv cannot handle UTF-8 or UCS-2. */
if (strcmp (encoding, DEFAULT_ENCODING))
enc_error = 1;
#ifdef HAVE_ICONV
}
if (enc_error)
- fatal ("unknown encoding: `%s'", encoding);
+ fatal_error ("unknown encoding: `%s'", encoding);
return lex;
}
ctxp->elc.prev_col = ctxp->elc.col;
ctxp->elc.col = ctxp->c_line->char_col - JAVA_COLUMN_DELTA (-1);
if (ctxp->elc.col < 0)
- fatal ("ctxp->elc.col < 0 - java_lex");
+ abort ();
/* Numeric literals */
if (JAVA_ASCII_DIGIT (c) || (c == '.'))
char *base;
if (!(fp = fopen (filename, "r")))
- fatal ("Can't open file - java_display_line_col");
+ fatal_io_error ("can't open %s", filename);
while (cline != line)
{
mangle_method_decl (decl);
break;
default:
- fatal ("Can't mangle `%s\' -- java_mangle_decl",
- tree_code_name [TREE_CODE (decl)]);
+ internal_error ("Can't mangle %s", tree_code_name [TREE_CODE (decl)]);
}
return finish_mangling ();
}
break;
bad_type:
default:
- fatal ("internal error - trying to mangle unknown type");
+ abort ();
}
}
do { obstack_1grow (mangle_obstack, 'N'); nadded_p = 1; } while (0)
if (TREE_CODE (type) != RECORD_TYPE)
- fatal ("Non RECORD_TYPE argument -- mangle_record_type");
+ abort ();
if (!TYPE_PACKAGE_LIST (type))
set_type_package_list (type);
pointer_type = type;
type = TREE_TYPE (type);
if (TREE_CODE (type) != RECORD_TYPE)
- fatal ("Double indirection found -- mangle_pointer_type");
+ abort ();
obstack_1grow (mangle_obstack, 'P');
if (mangle_record_type (type, /* for_pointer = */ 1))
type = TREE_TYPE (p_type);
if (!type)
- fatal ("Non pointer array type -- mangle_array_type");
+ abort ();
+
elt_type = TYPE_ARRAY_ELEMENT (type);
/* We cache a bit of the Jarray <> mangle. */
if (!compression_table)
compression_table = make_tree_vec (10);
else
- fatal ("Mangling already in progress -- init_mangling");
+ /* Mangling already in progress. */
+ abort ();
/* Mangled name are to be suffixed */
obstack_grow (mangle_obstack, "_Z", 2);
tree result;
if (!compression_table)
- fatal ("Mangling already finished -- finish_mangling");
+ /* Mangling already finished. */
+ abort ();
ggc_del_root (&compression_table);
compression_table = NULL_TREE;
/* Language parser definitions for the GNU compiler for the Java(TM) language.
- Copyright (C) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
+ Copyright (C) 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
Contributed by Alexandre Petit-Bianco (apbianco@cygnus.com)
This file is part of GNU CC.
current = TREE_CHAIN (current), list = TREE_CHAIN (list)) \
ARG_FINAL_P (current) = ARG_FINAL_P (list); \
if (current != list) \
- fatal ("MARK_FINAL_PARMS"); \
+ abort (); \
}
/* Reset the ARG_FINAL_P that might have been set in method M args. */
int to_return;
if (ctxp->osb_depth < 0)
- fatal ("osb stack underflow");
+ abort ();
to_return = CURRENT_OSB (ctxp);
ctxp->osb_depth--;
parse_error_context (wfl_operator, "Unreachable statement");
}
else
- fatal ("Can't get valid statement - unreachable_stmt_error");
+ abort ();
}
int
/* Why is NO_DOLLAR_IN_LABEL defined? */
#if 0
#ifdef NO_DOLLAR_IN_LABEL
- fatal ("make_nested_class_name: Can't use '$' as a separator "
- "for inner classes");
+ internal_error ("Can't use '$' as a separator for inner classes");
#endif
#endif
obstack_1grow (&temporary_obstack, '$');
else if (INCOMPLETE_TYPE_P (type_name))
name = TYPE_NAME (type_name);
else
- fatal ("invalid type name - obtain_incomplete_type");
+ abort ();
for (ptr = ctxp->incomplete_class; ptr; ptr = TREE_CHAIN (ptr))
if (TYPE_NAME (ptr) == name)
break;
default:
- fatal ("Can't handle patch code %d - java_complete_class",
- JDEP_KIND (dep));
+ abort ();
}
}
}
java_check_abstract_method_definitions (class_decl);
if (!saw_constructor)
- fatal ("No constructor found");
+ abort ();
}
/* Return a non zero value if the `throws' clause of METHOD (if any)
/* Pop the exceptions and sanity check */
POP_EXCEPTIONS();
if (currently_caught_type_list)
- fatal ("Exception list non empty - java_complete_expand_method");
+ abort ();
if (flag_emit_xref)
DECL_FUNCTION_THROWS (mdecl) = exception_copy;
if (!TREE_CHAIN (q))
{
if (!previous)
- fatal ("Operating on a non qualified qualified WFL - cut_identifier_in_qualified");
+ /* Operating on a non qualified qualified WFL. */
+ abort ();
+
TREE_CHAIN (previous) = NULL_TREE;
return TREE_PURPOSE (q);
}
strcpy (the, "class");
break;
default:
- fatal ("unexpected DECL code - check_deprecation");
+ abort ();
}
parse_warning_context
(wfl, "The %s `%s' in class `%s' has been deprecated",
break;
default:
- fatal ("internal error - unknown invocation_mode result");
+ abort ();
}
/* Ensure self_type is initialized, (invokestatic). FIXME */
{
lc = 1;
if (!list)
- fatal ("finit$ not found in class -- find_applicable_accessible_methods_list");
+ abort ();
}
/* We must search all interfaces of this class */
return field;
}
else
- fatal ("unimplemented java_complete_tree for COMPONENT_REF");
+ abort ();
break;
case THIS_EXPR:
if ((nn = patch_string (node)))
node = nn;
else
- fatal ("No case for tree code `%s' - java_complete_tree\n",
- tree_code_name [TREE_CODE (node)]);
+ internal_error ("No case for %s", tree_code_name [TREE_CODE (node)]);
}
return node;
}
/* Paranoid sanity check. To be removed */
if (TREE_CODE (b) != BLOCK)
- fatal ("non block expr function body - lookup_name_in_blocks");
+ abort ();
for (current = BLOCK_EXPR_DECLS (b); current;
current = TREE_CHAIN (current))
if (TREE_CODE (decl) != FUNCTION_DECL)
decl = TREE_OPERAND (TREE_OPERAND (decl, 0), 0);
if (TREE_CODE (decl) != FUNCTION_DECL)
- fatal ("Can't find FUNCTION_DECL in CALL_EXPR - check_final_variable_indirect_assignment");
+ abort ();
if (DECL_FUNCTION_ALL_FINAL_INITIALIZED (decl))
return 1;
if (DECL_FINIT_P (decl) || DECL_CONTEXT (decl) != current_class)
case PREDECREMENT_EXPR: /* Fall through */
case POSTDECREMENT_EXPR: BUILD_OPERATOR_STRING ("--");
default:
- fatal ("unregistered operator %s - operator_string",
- tree_code_name [TREE_CODE (node)]);
+ internal_error ("unregistered operator %s",
+ tree_code_name [TREE_CODE (node)]);
}
return NULL;
#undef BUILD_OPERATOR_STRING
case MINUS_TK: op = NEGATE_EXPR; break;
case NEG_TK: op = TRUTH_NOT_EXPR; break;
case NOT_TK: op = BIT_NOT_EXPR; break;
- default: fatal ("Unknown token `%d' for unary operator - build_unaryop",
- op_token);
+ default: abort ();
}
unaryop = build1 (op, NULL_TREE, op1);
/* Handle types for the GNU compiler for the Java(TM) language.
- Copyright (C) 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
+ Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001
+ Free Software Foundation, Inc.
This file is part of GNU CC.
{
int max_locals = DECL_MAX_LOCALS(current_function_decl);
int nslots = TYPE_IS_WIDE (type) ? 2 : 1;
+
if (slot < 0 || slot + nslots - 1 >= max_locals)
- fatal ("invalid local variable index");
+ abort ();
+
type_map[slot] = type;
while (--nslots > 0)
type_map[++slot] = void_type_node;
const unsigned char **ptr, *limit;
{
tree type;
- if ((*ptr) >= limit)
- fatal ("bad signature string");
- switch (*(*ptr))
+
+ if (*ptr >= limit)
+ abort ();
+
+ switch (**ptr)
{
case 'B': (*ptr)++; return byte_type_node;
case 'C': (*ptr)++; return char_type_node;
for ( ; ; str++)
{
if (str >= limit)
- fatal ("bad signature string");
+ abort ();
if (*str == ';')
break;
}
break;
}
default:
- fatal ("unrecognized signature string");
+ abort ();
}
return promote_type (type);
}
argtype_list = tree_cons (NULL_TREE, argtype, argtype_list);
}
if (str++, str >= limit)
- fatal ("bad signature string");
+ abort ();
result_type = parse_signature_type (&str, limit);
argtype_list = chainon (nreverse (argtype_list), end_params_node);
result_type = build_function_type (result_type, argtype_list);
break;
bad_type:
default:
- fatal ("internal error - build_java_signature passed invalid type");
+ abort ();
}
TYPE_SIGNATURE (type) = sig;
}
MAYBE_CREATE_TYPE_TYPE_LANG_SPECIFIC (type);
old_sig = TYPE_SIGNATURE (type);
if (old_sig != NULL_TREE && old_sig != sig)
- fatal ("internal error - set_java_signature");
+ abort ();
TYPE_SIGNATURE (type) = sig;
#if 0 /* careful about METHOD_TYPE */
if (IDENTIFIER_SIGNATURE_TYPE (sig) == NULL_TREE && TREE_PERMANENT (type))
/* Handle verification of bytecoded methods for the GNU compiler for
the Java(TM) language.
- Copyright (C) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
+ Copyright (C) 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
This file is part of GNU CC.
index++;
type[index] = stack_type_map[stack_pointer - 2];
if (! TYPE_IS_WIDE (type[index]))
- fatal ("internal error - dup operation");
+ abort ();
if (index == size || index == size + offset)
- fatal ("dup operation splits 64-bit number");
+ /* Dup operation splits 64-bit number. */
+ abort ();
}
pop_type (type[index]);
}
#ifdef __GNUC__
#define CHECK_PC_IN_RANGE(PC) ({if (PC < 0 || PC > length) goto bad_pc; (void)1;})
#else
-#define CHECK_PC_IN_RANGE(PC) (PC < 0 || PC > length ? \
- (fatal("Bad byte codes.\n"), 0) : 1)
+#define CHECK_PC_IN_RANGE(PC) (PC < 0 || PC > length ? (abort (), 0) : 1)
#endif
#define BCODE byte_ops
/* Implement classes and message passing for Objective C.
- Copyright (C) 1992, 1993, 1994, 1995, 1997, 1998,
- 1999, 2000, 2001 Free Software Foundation, Inc.
+ Copyright (C) 1992, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001
+ Free Software Foundation, Inc.
Contributed by Steve Naroff.
This file is part of GNU CC.
register char * const dumpname = concat (dumpname, ".decl", NULL);
gen_declaration_file = fopen (dumpname, "w");
if (gen_declaration_file == 0)
- pfatal_with_name (dumpname);
+ fatal_io_error ("can't open %s", dumpname);
free (dumpname);
}
if (TREE_CODE (type) == RECORD_TYPE
&& TREE_STATIC_TEMPLATE (type)
&& type != constant_string_type)
- {
- error_with_decl (decl, "`%s' cannot be statically allocated");
- fatal ("statically allocated objects not supported");
- }
+ error_with_decl (decl, "`%s' cannot be statically allocated");
}
void
gen_declaration (type, errbuf));
}
else
- fatal ("Undefined type `id', please import <objc/objc.h>");
+ {
+ error ("Undefined type `id', please import <objc/objc.h>");
+ return error_mark_node;
+ }
/* This clause creates a new pointer type that is qualified with
the protocol specification...this info is used later to do more
}
if (super_interface == interface)
- {
- fatal ("Circular inheritance in interface declaration for `%s'",
- IDENTIFIER_POINTER (super_name));
- }
+ fatal_error ("Circular inheritance in interface declaration for `%s'",
+ IDENTIFIER_POINTER (super_name));
interface = super_interface;
my_name = CLASS_NAME (interface);
strip_off_ending (data_file, len);
strcat (data_file, ".bb");
if ((bb_file = fopen (data_file, "wb")) == 0)
- pfatal_with_name (data_file);
+ fatal_io_error ("can't open %s", data_file);
/* Open an output file for the program flow graph. */
bbg_file_name = (char *) alloca (len + 5);
strip_off_ending (bbg_file_name, len);
strcat (bbg_file_name, ".bbg");
if ((bbg_file = fopen (bbg_file_name, "wb")) == 0)
- pfatal_with_name (bbg_file_name);
+ fatal_io_error ("can't open %s", bbg_file_name);
/* Initialize to zero, to ensure that the first file name will be
written to the .bb file. */
static void
crash_signal (signo)
- /* If this is missing, some compilers complain. */
int signo;
{
- fatal ("Internal error: %s.", strsignal (signo));
+ internal_error ("Internal error: %s", strsignal (signo));
}
/* Strip off a legitimate source ending from the input string NAME of
rtl_dump_file = fopen (dump_name, open_arg);
if (rtl_dump_file == NULL)
- pfatal_with_name (dump_name);
+ fatal_io_error ("can't open %s", dump_name);
free (dump_name);
{
aux_info_file = fopen (aux_info_file_name, "w");
if (aux_info_file == 0)
- pfatal_with_name (aux_info_file_name);
+ fatal_io_error ("can't open %s", aux_info_file_name);
}
/* Open assembler code output file. Do this even if -fsyntax-only is on,
else
asm_out_file = fopen (asm_file_name, "w");
if (asm_out_file == 0)
- pfatal_with_name (asm_file_name);
+ fatal_io_error ("can't open %s for writing", asm_file_name);
}
#ifdef IO_BUFFER_SIZE
finish_parse ();
- if (ferror (asm_out_file) != 0 || fclose (asm_out_file) != 0)
- fatal_io_error (asm_file_name);
+ if (ferror (asm_out_file) != 0)
+ fatal_io_error ("error writing to %s", asm_file_name);
+ if (fclose (asm_out_file) != 0)
+ fatal_io_error ("error closing %s", asm_file_name);
/* Do whatever is necessary to finish printing the graphs. */
if (graph_dump_format != no_graph)
/* toplev.h - Various declarations for functions found in toplev.c
- Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
+ Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
This file is part of GNU CC.
extern void debug_define PARAMS ((unsigned, const char *));
extern void debug_undef PARAMS ((unsigned, const char *));
extern int debug_ignore_block PARAMS ((union tree_node *));
-extern void fatal PARAMS ((const char *, ...))
- ATTRIBUTE_PRINTF_1 ATTRIBUTE_NORETURN;
-extern void fatal_io_error PARAMS ((const char *))
- ATTRIBUTE_NORETURN;
-extern void pfatal_with_name PARAMS ((const char *))
- ATTRIBUTE_NORETURN;
+extern void internal_error PARAMS ((const char *, ...))
+ ATTRIBUTE_PRINTF_1
+ ATTRIBUTE_NORETURN;
+extern void fatal_io_error PARAMS ((const char *, ...))
+ ATTRIBUTE_PRINTF_1
+ ATTRIBUTE_NORETURN;
extern void _fatal_insn_not_found PARAMS ((struct rtx_def *,
const char *, int,
const char *))
- ATTRIBUTE_NORETURN;
+ ATTRIBUTE_NORETURN;
extern void _fatal_insn PARAMS ((const char *,
struct rtx_def *,
const char *, int,
const char *))
- ATTRIBUTE_NORETURN;
+ ATTRIBUTE_NORETURN;
#define fatal_insn(msgid, insn) \
_fatal_insn (msgid, insn, __FILE__, __LINE__, __FUNCTION__)
_fatal_insn_not_found (insn, __FILE__, __LINE__, __FUNCTION__)
extern void warning PARAMS ((const char *, ...))
- ATTRIBUTE_PRINTF_1;
+ ATTRIBUTE_PRINTF_1;
extern void error PARAMS ((const char *, ...))
- ATTRIBUTE_PRINTF_1;
+ ATTRIBUTE_PRINTF_1;
+extern void fatal_error PARAMS ((const char *, ...))
+ ATTRIBUTE_PRINTF_1;
extern void pedwarn PARAMS ((const char *, ...))
- ATTRIBUTE_PRINTF_1;
+ ATTRIBUTE_PRINTF_1;
extern void pedwarn_with_file_and_line PARAMS ((const char *, int,
- const char *, ...))
- ATTRIBUTE_PRINTF_3;
+ const char *, ...))
+ ATTRIBUTE_PRINTF_3;
extern void warning_with_file_and_line PARAMS ((const char *, int,
- const char *, ...))
- ATTRIBUTE_PRINTF_3;
+ const char *, ...))
+ ATTRIBUTE_PRINTF_3;
extern void error_with_file_and_line PARAMS ((const char *, int,
- const char *, ...))
- ATTRIBUTE_PRINTF_3;
+ const char *, ...))
+ ATTRIBUTE_PRINTF_3;
extern void sorry PARAMS ((const char *, ...))
- ATTRIBUTE_PRINTF_1;
+ ATTRIBUTE_PRINTF_1;
extern void default_print_error_function PARAMS ((const char *));
extern void report_error_function PARAMS ((const char *));
/* The *_with_decl functions aren't suitable for ATTRIBUTE_PRINTF. */
extern void pedwarn_with_decl PARAMS ((union tree_node *,
- const char *, ...));
+ const char *, ...));
extern void warning_with_decl PARAMS ((union tree_node *,
- const char *, ...));
+ const char *, ...));
extern void error_with_decl PARAMS ((union tree_node *,
- const char *, ...));
+ const char *, ...));
extern void announce_function PARAMS ((union tree_node *));
extern void error_for_asm PARAMS ((struct rtx_def *,
const char *, ...))
- ATTRIBUTE_PRINTF_2;
+ ATTRIBUTE_PRINTF_2;
extern void warning_for_asm PARAMS ((struct rtx_def *,
const char *, ...))
- ATTRIBUTE_PRINTF_2;
+ ATTRIBUTE_PRINTF_2;
#if defined (_JBLEN) || defined (setjmp)
extern void set_float_handler PARAMS ((jmp_buf));
extern int push_float_handler PARAMS ((jmp_buf, jmp_buf));
#ifdef BUFSIZ
extern void fnotice PARAMS ((FILE *, const char *, ...))
- ATTRIBUTE_PRINTF_2;
+ ATTRIBUTE_PRINTF_2;
#endif
extern int wrapup_global_declarations PARAMS ((union tree_node **, int));
extern void check_global_declarations PARAMS ((union tree_node **, int));
-extern void note_deferral_of_defined_inline_function PARAMS ((union tree_node *));
+extern void note_deferral_of_defined_inline_function
+ PARAMS ((union tree_node *));
extern int errorcount;
extern int warningcount;
extern int sorrycount;
projects / gcc.git / commitdiff