This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[rfc] add __FILE__ and __LINE__ to internal_error()
- To: GDB Patches <gdb-patches at sourceware dot cygnus dot com>
- Subject: [rfc] add __FILE__ and __LINE__ to internal_error()
- From: Andrew Cagney <ac131313 at cygnus dot com>
- Date: Fri, 01 Dec 2000 22:22:05 +1100
FYI,
This is part one of a two step process to completly eliminate all
remaining abort() calls in GDB.
Part two involves replacing abort() with ``internal_error (__FILE__,
__LINE__, "legacy call to abort()");''.
Look ok?
Andrew
Fri Dec 1 21:03:31 2000 Andrew Cagney <cagney@b1.cygnus.com>
* defs.h (internal_error, internal_verror): Add ``file'' and
``line'' parameters.
(internal_error): Add ATTR_FORMAT to declaration.
* utils.c (internal_verror): Print ``file'' and ``line''.
(internal_error): Update.
* gdb_assert.h (gdb_assert_fail), command.c (do_setshow_command),
v850-tdep.c (v850_target_architecture_hook), i386-tdep.c
(i386_extract_return_value), language.c
(longest_local_hex_string_custom), solib-svr4.c
(default_svr4_fetch_link_map_offsets), rs6000-nat.c
(set_host_arch), remote-vx.c (vx_wait), remote-mips.c
(mips_request), solib.c (info_sharedlibrary_command), m68k-tdep.c
(m68k_get_longjmp_target), infptrace.c
(_initialize_kernel_u_addr), i386-linux-nat.c
(fetch_inferior_registers, store_inferior_registers),
mn10300-tdep.c (mn10300_gdbarch_init), hppah-nat.c
(store_inferior_registers, fetch_register), ia64-tdep.c
(read_sigcontext_register), m3-nat.c
(catch_exception_raise, mach3_exception_actions,
setup_notify_port, _initialize_m3_nat), mips-tdep.c
(mips_mask_address_p, show_mask_address), sh-tdep.c
(sh_do_pseudo_register, sh_print_register), sparc-tdep.c
(setup_arbitrary_frame, sparc_frame_find_saved_regs), symm-nat.c
(child_wait, _initialize_symm_nat), go32-nat.c
(go32_fetch_registers, go32_fetch_registers, store_register,
go32_create_inferior, init_go32_ops), f-lang.c (get_bf_for_fcn),
dsrec.c (make_srec), d30v-tdep.c (print_insn), event-loop.c
(add_file_handler, add_file_handler, create_file_handler,
delete_file_handler, handle_file_event, gdb_wait_for_event,
poll_timers), d10v-tdep.c (print_insn, d10v_gdbarch_init),
a29k-tdep.c (setup_arbitrary_frame), ui-file.c (ui_file_data,
mem_file_delete, mem_file_rewind, mem_file_put, mem_file_write,
stdio_file_delete, stdio_file_flush, stdio_file_write,
stdio_file_fputs, stdio_file_isatty), utils.c
(free_current_contents, nomem, xvasprintf,
host_pointer_to_address, address_to_host_pointer), top.c
(arg_cleanup), serial.c
(serial_readchar, deprecated_serial_fd), ui-out.c
(ui_out_table_begin, ui_out_table_body, ui_out_table_end,
ui_out_table_header, ui_out_list_begin, ui_out_list_end,
verify_field_proper_position, verify_field_alignment), ch-exp.c
(peek_token_, pushback_token, require, ch_lex), dwarf2read.c
(read_comp_unit_head, read_address, read_offset), elfread.c
(elf_symtab_read, elf_symtab_read), maint.c
(maintenance_internal_error), objfiles.c (unlink_objfile),
remote-sim.c (gdbsim_store_register, gdbsim_open), ax-gdb.c
(gen_fetch, gen_fetch, gen_var_ref, gen_deref, find_field,
gen_bitfield_ref, gen_expr), objfiles.h (SECT_OFF_DATA,
SECT_OFF_RODATA, SECT_OFF_TEXT), remote.c (packet_ok,
remote_threads_extra_info, remote_write_bytes,
watchpoint_to_Z_packet, remote_insert_watchpoint,
remote_remove_watchpoint, remote_insert_hw_breakpoint,
remote_remove_hw_breakpoint, remote_async), arch-utils.c
(legacy_register_name, default_float_format,
default_double_format, set_endian, set_endian_from_file, arch_ok,
set_arch, set_architecture_from_arch_mach,
set_architecture_from_file, set_architecture,
initialize_current_architecture), command.c (do_setshow_command),
target.h (SOFTWARE_SINGLE_STEP), infrun.c (follow_inferior_fork,
print_stop_reason, normal_stop), infcmd.c
(finish_command_continuation, finish_command), symtab.h
(ANOFFSET), source.c (select_source_symtab), regcache.c
(generic_target_read_pc, generic_target_write_pc,
generic_target_read_sp, generic_target_write_sp,
generic_target_read_fp, generic_target_write_fp), findvar.c
(extract_typed_address, store_typed_address, value_of_register,
value_from_register), breakpoint.c (print_bp_stop_message,
print_one_breakpoint, check_duplicates, delete_breakpoint):
Update.
* gdbarch.sh: Update
* gdbarch.h, gdbarch.c: Regenerate.
* TODO: Update.
Index: TODO
===================================================================
RCS file: /cvs/src/src/gdb/TODO,v
retrieving revision 1.55
diff -p -r1.55 TODO
*** TODO 2000/11/27 00:37:19 1.55
--- TODO 2000/12/01 11:15:52
*************** an error status.
*** 432,441 ****
--
- Add __LINE__ and __FILE__ to internal_error().
-
- --
-
GDB probably doesn't build on FreeBSD pre 2.2.x
http://sourceware.cygnus.com/ml/gdb-patches/2000-05/msg00378.html
--- 432,437 ----
Index: a29k-tdep.c
===================================================================
RCS file: /cvs/src/src/gdb/a29k-tdep.c,v
retrieving revision 1.2
diff -p -r1.2 a29k-tdep.c
*** a29k-tdep.c 2000/07/30 01:48:24 1.2
--- a29k-tdep.c 2000/12/01 11:15:57
*************** setup_arbitrary_frame (int argc, CORE_AD
*** 892,898 ****
frame = create_new_frame (argv[0], argv[1]);
if (!frame)
! internal_error ("create_new_frame returned invalid frame id");
/* Creating a new frame munges the `frame' value from the current
GR1, so we restore it again here. FIXME, untangle all this
--- 892,899 ----
frame = create_new_frame (argv[0], argv[1]);
if (!frame)
! internal_error (__FILE__, __LINE__,
! "create_new_frame returned invalid frame id");
/* Creating a new frame munges the `frame' value from the current
GR1, so we restore it again here. FIXME, untangle all this
Index: arch-utils.c
===================================================================
RCS file: /cvs/src/src/gdb/arch-utils.c,v
retrieving revision 1.16
diff -p -r1.16 arch-utils.c
*** arch-utils.c 2000/10/27 19:17:56 1.16
--- arch-utils.c 2000/12/01 11:15:57
*************** legacy_register_name (int i)
*** 117,123 ****
else
return names[i];
#else
! internal_error ("legacy_register_name: called.");
return NULL;
#endif
}
--- 117,124 ----
else
return names[i];
#else
! internal_error (__FILE__, __LINE__,
! "legacy_register_name: called.");
return NULL;
#endif
}
*************** default_float_format (struct gdbarch *gd
*** 180,186 ****
case LITTLE_ENDIAN:
return &floatformat_ieee_single_little;
default:
! internal_error ("default_float_format: bad byte order");
}
}
--- 181,188 ----
case LITTLE_ENDIAN:
return &floatformat_ieee_single_little;
default:
! internal_error (__FILE__, __LINE__,
! "default_float_format: bad byte order");
}
}
*************** default_double_format (struct gdbarch *g
*** 200,206 ****
case LITTLE_ENDIAN:
return &floatformat_ieee_double_little;
default:
! internal_error ("default_double_format: bad byte order");
}
}
--- 202,209 ----
case LITTLE_ENDIAN:
return &floatformat_ieee_double_little;
default:
! internal_error (__FILE__, __LINE__,
! "default_double_format: bad byte order");
}
}
*************** set_endian (char *ignore_args, int from_
*** 334,340 ****
}
}
else
! internal_error ("set_endian: bad value");
show_endian (NULL, from_tty);
}
--- 337,344 ----
}
}
else
! internal_error (__FILE__, __LINE__,
! "set_endian: bad value");
show_endian (NULL, from_tty);
}
*************** static void
*** 344,350 ****
set_endian_from_file (bfd *abfd)
{
if (GDB_MULTI_ARCH)
! internal_error ("set_endian_from_file: not for multi-arch");
if (TARGET_BYTE_ORDER_SELECTABLE_P)
{
int want;
--- 348,355 ----
set_endian_from_file (bfd *abfd)
{
if (GDB_MULTI_ARCH)
! internal_error (__FILE__, __LINE__,
! "set_endian_from_file: not for multi-arch");
if (TARGET_BYTE_ORDER_SELECTABLE_P)
{
int want;
*************** static int
*** 390,396 ****
arch_ok (const struct bfd_arch_info *arch)
{
if (GDB_MULTI_ARCH)
! internal_error ("arch_ok: not multi-arched");
/* Should be performing the more basic check that the binary is
compatible with GDB. */
/* Check with the target that the architecture is valid. */
--- 395,402 ----
arch_ok (const struct bfd_arch_info *arch)
{
if (GDB_MULTI_ARCH)
! internal_error (__FILE__, __LINE__,
! "arch_ok: not multi-arched");
/* Should be performing the more basic check that the binary is
compatible with GDB. */
/* Check with the target that the architecture is valid. */
*************** set_arch (const struct bfd_arch_info *ar
*** 403,409 ****
enum set_arch type)
{
if (GDB_MULTI_ARCH)
! internal_error ("set_arch: not multi-arched");
switch (type)
{
case set_arch_auto:
--- 409,416 ----
enum set_arch type)
{
if (GDB_MULTI_ARCH)
! internal_error (__FILE__, __LINE__,
! "set_arch: not multi-arched");
switch (type)
{
case set_arch_auto:
*************** set_architecture_from_arch_mach (enum bf
*** 437,447 ****
{
const struct bfd_arch_info *wanted = bfd_lookup_arch (arch, mach);
if (GDB_MULTI_ARCH)
! internal_error ("set_architecture_from_arch_mach: not multi-arched");
if (wanted != NULL)
set_arch (wanted, set_arch_manual);
else
! internal_error ("gdbarch: hardwired architecture/machine not recognized");
}
/* Set the architecture from a BFD (deprecated) */
--- 444,456 ----
{
const struct bfd_arch_info *wanted = bfd_lookup_arch (arch, mach);
if (GDB_MULTI_ARCH)
! internal_error (__FILE__, __LINE__,
! "set_architecture_from_arch_mach: not multi-arched");
if (wanted != NULL)
set_arch (wanted, set_arch_manual);
else
! internal_error (__FILE__, __LINE__,
! "gdbarch: hardwired architecture/machine not recognized");
}
/* Set the architecture from a BFD (deprecated) */
*************** set_architecture_from_file (bfd *abfd)
*** 451,457 ****
{
const struct bfd_arch_info *wanted = bfd_get_arch_info (abfd);
if (GDB_MULTI_ARCH)
! internal_error ("set_architecture_from_file: not multi-arched");
if (target_architecture_auto)
{
set_arch (wanted, set_arch_auto);
--- 460,467 ----
{
const struct bfd_arch_info *wanted = bfd_get_arch_info (abfd);
if (GDB_MULTI_ARCH)
! internal_error (__FILE__, __LINE__,
! "set_architecture_from_file: not multi-arched");
if (target_architecture_auto)
{
set_arch (wanted, set_arch_auto);
*************** set_architecture (char *ignore_args, int
*** 496,502 ****
memset (&info, 0, sizeof info);
info.bfd_arch_info = bfd_scan_arch (set_architecture_string);
if (info.bfd_arch_info == NULL)
! internal_error ("set_architecture: bfd_scan_arch failed");
if (gdbarch_update_p (info))
target_architecture_auto = 0;
else
--- 506,513 ----
memset (&info, 0, sizeof info);
info.bfd_arch_info = bfd_scan_arch (set_architecture_string);
if (info.bfd_arch_info == NULL)
! internal_error (__FILE__, __LINE__,
! "set_architecture: bfd_scan_arch failed");
if (gdbarch_update_p (info))
target_architecture_auto = 0;
else
*************** set_architecture (char *ignore_args, int
*** 508,514 ****
const struct bfd_arch_info *arch
= bfd_scan_arch (set_architecture_string);
if (arch == NULL)
! internal_error ("set_architecture: bfd_scan_arch failed");
set_arch (arch, set_arch_manual);
}
show_architecture (NULL, from_tty);
--- 519,526 ----
const struct bfd_arch_info *arch
= bfd_scan_arch (set_architecture_string);
if (arch == NULL)
! internal_error (__FILE__, __LINE__,
! "set_architecture: bfd_scan_arch failed");
set_arch (arch, set_arch_manual);
}
show_architecture (NULL, from_tty);
*************** initialize_current_architecture (void)
*** 612,621 ****
chosen = *arch;
}
if (chosen == NULL)
! internal_error ("initialize_current_architecture: No arch");
info.bfd_arch_info = bfd_scan_arch (chosen);
if (info.bfd_arch_info == NULL)
! internal_error ("initialize_current_architecture: Arch not found");
}
/* take several guesses at a byte order. */
--- 624,635 ----
chosen = *arch;
}
if (chosen == NULL)
! internal_error (__FILE__, __LINE__,
! "initialize_current_architecture: No arch");
info.bfd_arch_info = bfd_scan_arch (chosen);
if (info.bfd_arch_info == NULL)
! internal_error (__FILE__, __LINE__,
! "initialize_current_architecture: Arch not found");
}
/* take several guesses at a byte order. */
*************** initialize_current_architecture (void)
*** 657,663 ****
{
if (! gdbarch_update_p (info))
{
! internal_error ("initialize_current_architecture: Selection of initial architecture failed");
}
}
--- 671,678 ----
{
if (! gdbarch_update_p (info))
{
! internal_error (__FILE__, __LINE__,
! "initialize_current_architecture: Selection of initial architecture failed");
}
}
Index: ax-gdb.c
===================================================================
RCS file: /cvs/src/src/gdb/ax-gdb.c,v
retrieving revision 1.7
diff -p -r1.7 ax-gdb.c
*** ax-gdb.c 2000/10/30 21:15:56 1.7
--- ax-gdb.c 2000/12/01 11:16:04
*************** gen_fetch (struct agent_expr *ax, struct
*** 409,415 ****
implementing something we should be (this code's fault).
In any case, it's a bug the user shouldn't see. */
default:
! internal_error ("ax-gdb.c (gen_fetch): strange size");
}
gen_sign_extend (ax, type);
--- 409,416 ----
implementing something we should be (this code's fault).
In any case, it's a bug the user shouldn't see. */
default:
! internal_error (__FILE__, __LINE__,
! "gen_fetch: strange size");
}
gen_sign_extend (ax, type);
*************** gen_fetch (struct agent_expr *ax, struct
*** 420,426 ****
pointer (other code's fault), or we're not implementing
something we should be (this code's fault). In any case,
it's a bug the user shouldn't see. */
! internal_error ("ax-gdb.c (gen_fetch): bad type code");
}
}
--- 421,428 ----
pointer (other code's fault), or we're not implementing
something we should be (this code's fault). In any case,
it's a bug the user shouldn't see. */
! internal_error (__FILE__, __LINE__,
! "gen_fetch: bad type code");
}
}
*************** gen_var_ref (struct agent_expr *ax, stru
*** 530,536 ****
break;
case LOC_CONST_BYTES:
! internal_error ("ax-gdb.c (gen_var_ref): LOC_CONST_BYTES symbols are not supported");
/* Variable at a fixed location in memory. Easy. */
case LOC_STATIC:
--- 532,539 ----
break;
case LOC_CONST_BYTES:
! internal_error (__FILE__, __LINE__,
! "gen_var_ref: LOC_CONST_BYTES symbols are not supported");
/* Variable at a fixed location in memory. Easy. */
case LOC_STATIC:
*************** gen_deref (struct agent_expr *ax, struct
*** 1088,1094 ****
/* The caller should check the type, because several operators use
this, and we don't know what error message to generate. */
if (value->type->code != TYPE_CODE_PTR)
! internal_error ("ax-gdb.c (gen_deref): expected a pointer");
/* We've got an rvalue now, which is a pointer. We want to yield an
lvalue, whose address is exactly that pointer. So we don't
--- 1091,1098 ----
/* The caller should check the type, because several operators use
this, and we don't know what error message to generate. */
if (value->type->code != TYPE_CODE_PTR)
! internal_error (__FILE__, __LINE__,
! "gen_deref: expected a pointer");
/* We've got an rvalue now, which is a pointer. We want to yield an
lvalue, whose address is exactly that pointer. So we don't
*************** find_field (struct type *type, char *nam
*** 1143,1149 ****
/* Make sure this isn't C++. */
if (TYPE_N_BASECLASSES (type) != 0)
! internal_error ("ax-gdb.c (find_field): derived classes supported");
for (i = 0; i < TYPE_NFIELDS (type); i++)
{
--- 1147,1154 ----
/* Make sure this isn't C++. */
if (TYPE_N_BASECLASSES (type) != 0)
! internal_error (__FILE__, __LINE__,
! "find_field: derived classes supported");
for (i = 0; i < TYPE_NFIELDS (type); i++)
{
*************** find_field (struct type *type, char *nam
*** 1153,1159 ****
return i;
if (this_name[0] == '\0')
! internal_error ("ax-gdb.c (find_field): anonymous unions not supported");
}
error ("Couldn't find member named `%s' in struct/union `%s'",
--- 1158,1165 ----
return i;
if (this_name[0] == '\0')
! internal_error (__FILE__, __LINE__,
! "find_field: anonymous unions not supported");
}
error ("Couldn't find member named `%s' in struct/union `%s'",
*************** gen_bitfield_ref (struct agent_expr *ax,
*** 1225,1231 ****
/* Can we fetch the number of bits requested at all? */
if ((end - start) > ((1 << num_ops) * 8))
! internal_error ("ax-gdb.c (gen_bitfield_ref): bitfield too wide");
/* Note that we know here that we only need to try each opcode once.
That may not be true on machines with weird byte sizes. */
--- 1231,1238 ----
/* Can we fetch the number of bits requested at all? */
if ((end - start) > ((1 << num_ops) * 8))
! internal_error (__FILE__, __LINE__,
! "gen_bitfield_ref: bitfield too wide");
/* Note that we know here that we only need to try each opcode once.
That may not be true on machines with weird byte sizes. */
*************** gen_expr (union exp_element **pc, struct
*** 1535,1541 ****
default:
/* We should only list operators in the outer case statement
that we actually handle in the inner case statement. */
! internal_error ("ax-gdb.c (gen_expr): op case sets don't match");
}
break;
--- 1542,1549 ----
default:
/* We should only list operators in the outer case statement
that we actually handle in the inner case statement. */
! internal_error (__FILE__, __LINE__,
! "gen_expr: op case sets don't match");
}
break;
*************** gen_expr (union exp_element **pc, struct
*** 1610,1616 ****
the given type, and dereference it. */
if (value->kind != axs_rvalue)
/* This would be weird. */
! internal_error ("ax-gdb.c (gen_expr): OP_MEMVAL operand isn't an rvalue???");
value->type = type;
value->kind = axs_lvalue_memory;
}
--- 1618,1625 ----
the given type, and dereference it. */
if (value->kind != axs_rvalue)
/* This would be weird. */
! internal_error (__FILE__, __LINE__,
! "gen_expr: OP_MEMVAL operand isn't an rvalue???");
value->type = type;
value->kind = axs_lvalue_memory;
}
*************** gen_expr (union exp_element **pc, struct
*** 1678,1684 ****
else
/* If this `if' chain doesn't handle it, then the case list
shouldn't mention it, and we shouldn't be here. */
! internal_error ("ax-gdb.c (gen_expr): unhandled struct case");
}
break;
--- 1687,1694 ----
else
/* If this `if' chain doesn't handle it, then the case list
shouldn't mention it, and we shouldn't be here. */
! internal_error (__FILE__, __LINE__,
! "gen_expr: unhandled struct case");
}
break;
Index: breakpoint.c
===================================================================
RCS file: /cvs/src/src/gdb/breakpoint.c,v
retrieving revision 1.21
diff -p -r1.21 breakpoint.c
*** breakpoint.c 2000/12/01 00:41:27 1.21
--- breakpoint.c 2000/12/01 11:16:33
*************** print_bp_stop_message (bpstat bs)
*** 2182,2188 ****
return print_it_typical (bs);
break;
default:
! internal_error ("print_bp_stop_message: unrecognized enum value");
break;
}
}
--- 2182,2189 ----
return print_it_typical (bs);
break;
default:
! internal_error (__FILE__, __LINE__,
! "print_bp_stop_message: unrecognized enum value");
break;
}
}
*************** print_one_breakpoint (struct breakpoint
*** 3131,3137 ****
annotate_field (1);
if (((int) b->type > (sizeof (bptypes) / sizeof (bptypes[0])))
|| ((int) b->type != bptypes[(int) b->type].type))
! internal_error ("bptypes table does not describe type #%d.",
(int) b->type);
#ifdef UI_OUT
ui_out_field_string (uiout, "type", bptypes[(int) b->type].description);
--- 3132,3139 ----
annotate_field (1);
if (((int) b->type > (sizeof (bptypes) / sizeof (bptypes[0])))
|| ((int) b->type != bptypes[(int) b->type].type))
! internal_error (__FILE__, __LINE__,
! "bptypes table does not describe type #%d.",
(int) b->type);
#ifdef UI_OUT
ui_out_field_string (uiout, "type", bptypes[(int) b->type].description);
*************** print_one_breakpoint (struct breakpoint
*** 3163,3169 ****
switch (b->type)
{
case bp_none:
! internal_error ("print_one_breakpoint: bp_none encountered\n");
break;
case bp_watchpoint:
--- 3165,3172 ----
switch (b->type)
{
case bp_none:
! internal_error (__FILE__, __LINE__,
! "print_one_breakpoint: bp_none encountered\n");
break;
case bp_watchpoint:
*************** check_duplicates (CORE_ADDR address, ase
*** 3750,3763 ****
/* Permanent breakpoint should always be inserted. */
if (! perm_bp->inserted)
! internal_error ("allegedly permanent breakpoint is not "
"actually inserted");
ALL_BREAKPOINTS (b)
if (b != perm_bp)
{
if (b->inserted)
! internal_error ("another breakpoint was inserted on top of "
"a permanent breakpoint");
if (b->enable != disabled
--- 3753,3768 ----
/* Permanent breakpoint should always be inserted. */
if (! perm_bp->inserted)
! internal_error (__FILE__, __LINE__,
! "allegedly permanent breakpoint is not "
"actually inserted");
ALL_BREAKPOINTS (b)
if (b != perm_bp)
{
if (b->inserted)
! internal_error (__FILE__, __LINE__,
! "another breakpoint was inserted on top of "
"a permanent breakpoint");
if (b->enable != disabled
*************** delete_breakpoint (struct breakpoint *bp
*** 6782,6788 ****
If there is a permanent breakpoint somewhere, it should
always be the only one inserted. */
if (b->enable == permanent)
! internal_error ("another breakpoint was inserted on top of "
"a permanent breakpoint");
if (b->type == bp_hardware_breakpoint)
--- 6787,6794 ----
If there is a permanent breakpoint somewhere, it should
always be the only one inserted. */
if (b->enable == permanent)
! internal_error (__FILE__, __LINE__,
! "another breakpoint was inserted on top of "
"a permanent breakpoint");
if (b->type == bp_hardware_breakpoint)
Index: ch-exp.c
===================================================================
RCS file: /cvs/src/src/gdb/ch-exp.c,v
retrieving revision 1.5
diff -p -r1.5 ch-exp.c
*** ch-exp.c 2000/08/07 03:07:59 1.5
--- ch-exp.c 2000/12/01 11:16:35
*************** static enum ch_terminal
*** 216,222 ****
peek_token_ (int i)
{
if (i > MAX_LOOK_AHEAD)
! internal_error ("ch-exp.c - too much lookahead");
if (terminal_buffer[i] == TOKEN_NOT_READ)
{
terminal_buffer[i] = ch_lex ();
--- 216,223 ----
peek_token_ (int i)
{
if (i > MAX_LOOK_AHEAD)
! internal_error (__FILE__, __LINE__,
! "too much lookahead");
if (terminal_buffer[i] == TOKEN_NOT_READ)
{
terminal_buffer[i] = ch_lex ();
*************** pushback_token (enum ch_terminal code, Y
*** 232,238 ****
{
int i;
if (terminal_buffer[MAX_LOOK_AHEAD] != TOKEN_NOT_READ)
! internal_error ("ch-exp.c - cannot pushback token");
for (i = MAX_LOOK_AHEAD; i > 0; i--)
{
terminal_buffer[i] = terminal_buffer[i - 1];
--- 233,240 ----
{
int i;
if (terminal_buffer[MAX_LOOK_AHEAD] != TOKEN_NOT_READ)
! internal_error (__FILE__, __LINE__,
! "cannot pushback token");
for (i = MAX_LOOK_AHEAD; i > 0; i--)
{
terminal_buffer[i] = terminal_buffer[i - 1];
*************** require (enum ch_terminal token)
*** 265,271 ****
{
if (PEEK_TOKEN () != token)
{
! internal_error ("ch-exp.c - expected token %d", (int) token);
}
FORWARD_TOKEN ();
}
--- 267,274 ----
{
if (PEEK_TOKEN () != token)
{
! internal_error (__FILE__, __LINE__,
! "expected token %d", (int) token);
}
FORWARD_TOKEN ();
}
*************** ch_lex (void)
*** 2177,2183 ****
error ("Symbol \"%s\" names no location.", inputname);
break;
default:
! internal_error ("unhandled SYMBOL_CLASS in ch_lex()");
break;
}
}
--- 2180,2187 ----
error ("Symbol \"%s\" names no location.", inputname);
break;
default:
! internal_error (__FILE__, __LINE__,
! "unhandled SYMBOL_CLASS in ch_lex()");
break;
}
}
Index: command.c
===================================================================
RCS file: /cvs/src/src/gdb/command.c,v
retrieving revision 1.20
diff -p -r1.20 command.c
*** command.c 2000/11/06 22:44:34 1.20
--- command.c 2000/12/01 11:16:40
*************** do_setshow_command (char *arg, int from_
*** 1774,1780 ****
fputs_filtered ("auto", stb->stream);
break;
default:
! internal_error ("do_setshow_command: invalid var_auto_boolean");
break;
}
break;
--- 1774,1781 ----
fputs_filtered ("auto", stb->stream);
break;
default:
! internal_error (__FILE__, __LINE__,
! "do_setshow_command: invalid var_auto_boolean");
break;
}
break;
*************** do_setshow_command (char *arg, int from_
*** 1844,1850 ****
fputs_filtered ("auto", gdb_stdout);
break;
default:
! internal_error ("do_setshow_command: invalid var_auto_boolean");
break;
}
break;
--- 1845,1852 ----
fputs_filtered ("auto", gdb_stdout);
break;
default:
! internal_error (__FILE__, __LINE__,
! "do_setshow_command: invalid var_auto_boolean");
break;
}
break;
Index: d10v-tdep.c
===================================================================
RCS file: /cvs/src/src/gdb/d10v-tdep.c,v
retrieving revision 1.12
diff -p -r1.12 d10v-tdep.c
*** d10v-tdep.c 2000/09/01 23:45:13 1.12
--- d10v-tdep.c 2000/12/01 11:16:42
*************** print_insn (CORE_ADDR memaddr, struct ui
*** 1271,1277 ****
{
/* If there's no disassembler, something is very wrong. */
if (tm_print_insn == NULL)
! internal_error ("print_insn: no disassembler");
if (TARGET_BYTE_ORDER == BIG_ENDIAN)
tm_print_insn_info.endian = BFD_ENDIAN_BIG;
--- 1271,1278 ----
{
/* If there's no disassembler, something is very wrong. */
if (tm_print_insn == NULL)
! internal_error (__FILE__, __LINE__,
! "print_insn: no disassembler");
if (TARGET_BYTE_ORDER == BIG_ENDIAN)
tm_print_insn_info.endian = BFD_ENDIAN_BIG;
*************** d10v_gdbarch_init (struct gdbarch_info i
*** 1535,1541 ****
set_gdbarch_long_double_format (gdbarch, &floatformat_ieee_double_little);
break;
default:
! internal_error ("d10v_gdbarch_init: bad byte order for float format");
}
set_gdbarch_use_generic_dummy_frames (gdbarch, 1);
--- 1536,1543 ----
set_gdbarch_long_double_format (gdbarch, &floatformat_ieee_double_little);
break;
default:
! internal_error (__FILE__, __LINE__,
! "d10v_gdbarch_init: bad byte order for float format");
}
set_gdbarch_use_generic_dummy_frames (gdbarch, 1);
Index: d30v-tdep.c
===================================================================
RCS file: /cvs/src/src/gdb/d30v-tdep.c,v
retrieving revision 1.5
diff -p -r1.5 d30v-tdep.c
*** d30v-tdep.c 2000/08/13 01:22:17 1.5
--- d30v-tdep.c 2000/12/01 11:16:47
*************** print_insn (CORE_ADDR memaddr, struct ui
*** 1146,1152 ****
{
/* If there's no disassembler, something is very wrong. */
if (tm_print_insn == NULL)
! internal_error ("print_insn: no disassembler");
if (TARGET_BYTE_ORDER == BIG_ENDIAN)
tm_print_insn_info.endian = BFD_ENDIAN_BIG;
--- 1146,1153 ----
{
/* If there's no disassembler, something is very wrong. */
if (tm_print_insn == NULL)
! internal_error (__FILE__, __LINE__,
! "print_insn: no disassembler");
if (TARGET_BYTE_ORDER == BIG_ENDIAN)
tm_print_insn_info.endian = BFD_ENDIAN_BIG;
Index: defs.h
===================================================================
RCS file: /cvs/src/src/gdb/defs.h,v
retrieving revision 1.32
diff -p -r1.32 defs.h
*** defs.h 2000/11/20 02:06:18 1.32
--- defs.h 2000/12/01 11:16:49
*************** extern NORETURN void error_stream (struc
*** 867,875 ****
message. */
extern char *error_last_message (void);
! extern NORETURN void internal_verror (const char *, va_list ap) ATTR_NORETURN;
! extern NORETURN void internal_error (char *, ...) ATTR_NORETURN;
extern NORETURN void nomem (long) ATTR_NORETURN;
--- 867,877 ----
message. */
extern char *error_last_message (void);
! extern NORETURN void internal_verror (const char *file, int line,
! const char *, va_list ap) ATTR_NORETURN;
! extern NORETURN void internal_error (const char *file, int line,
! const char *, ...) ATTR_NORETURN ATTR_FORMAT (printf, 3, 4);
extern NORETURN void nomem (long) ATTR_NORETURN;
Index: dsrec.c
===================================================================
RCS file: /cvs/src/src/gdb/dsrec.c,v
retrieving revision 1.5
diff -p -r1.5 dsrec.c
*** dsrec.c 2000/08/21 17:30:58 1.5
--- dsrec.c 2000/12/01 11:16:49
*************** make_srec (char *srec, CORE_ADDR targ_ad
*** 250,256 ****
else if (tmp & SREC_4_BYTE_ADDR)
addr_size = 4;
else
! internal_error ("make_srec: Bad address (0x%x), or bad flags (0x%x).",
targ_addr, flags);
/* Now that we know the address size, we can figure out how much
--- 250,257 ----
else if (tmp & SREC_4_BYTE_ADDR)
addr_size = 4;
else
! internal_error (__FILE__, __LINE__,
! "make_srec: Bad address (0x%x), or bad flags (0x%x).",
targ_addr, flags);
/* Now that we know the address size, we can figure out how much
Index: dwarf2read.c
===================================================================
RCS file: /cvs/src/src/gdb/dwarf2read.c,v
retrieving revision 1.18
diff -p -r1.18 dwarf2read.c
*** dwarf2read.c 2000/11/08 02:50:51 1.18
--- dwarf2read.c 2000/12/01 11:17:01
*************** read_comp_unit_head (struct comp_unit_he
*** 944,950 ****
info_ptr += 1;
signed_addr = bfd_get_sign_extend_vma (abfd);
if (signed_addr < 0)
! internal_error ("read_comp_unit_head: dwarf from non elf file");
cu_header->signed_addr_p = signed_addr;
return info_ptr;
}
--- 944,951 ----
info_ptr += 1;
signed_addr = bfd_get_sign_extend_vma (abfd);
if (signed_addr < 0)
! internal_error (__FILE__, __LINE__,
! "read_comp_unit_head: dwarf from non elf file");
cu_header->signed_addr_p = signed_addr;
return info_ptr;
}
*************** read_address (bfd *abfd, char *buf, cons
*** 3463,3469 ****
retval = bfd_get_signed_64 (abfd, (bfd_byte *) buf);
break;
default:
! internal_error ("read_address: bad switch, signed");
}
}
else
--- 3464,3471 ----
retval = bfd_get_signed_64 (abfd, (bfd_byte *) buf);
break;
default:
! internal_error (__FILE__, __LINE__,
! "read_address: bad switch, signed");
}
}
else
*************** read_address (bfd *abfd, char *buf, cons
*** 3480,3486 ****
retval = bfd_get_64 (abfd, (bfd_byte *) buf);
break;
default:
! internal_error ("read_address: bad switch, unsigned");
}
}
--- 3482,3489 ----
retval = bfd_get_64 (abfd, (bfd_byte *) buf);
break;
default:
! internal_error (__FILE__, __LINE__,
! "read_address: bad switch, unsigned");
}
}
*************** read_offset (bfd *abfd, char *buf, const
*** 3565,3571 ****
*bytes_read = 8;
break;
default:
! internal_error ("read_offset: bad switch");
}
return retval;
--- 3568,3575 ----
*bytes_read = 8;
break;
default:
! internal_error (__FILE__, __LINE__,
! "read_offset: bad switch");
}
return retval;
Index: elfread.c
===================================================================
RCS file: /cvs/src/src/gdb/elfread.c,v
retrieving revision 1.11
diff -p -r1.11 elfread.c
*** elfread.c 2000/08/07 15:02:48 1.11
--- elfread.c 2000/12/01 11:17:03
*************** elf_symtab_read (struct objfile *objfile
*** 483,489 ****
}
}
else
! internal_error ("Section index uninitialized.");
/* Bfd symbols are section relative. */
symaddr = sym->value + sym->section->vma;
/* Relocate non-absolute symbols by the section offset. */
--- 483,490 ----
}
}
else
! internal_error (__FILE__, __LINE__,
! "Section index uninitialized.");
/* Bfd symbols are section relative. */
symaddr = sym->value + sym->section->vma;
/* Relocate non-absolute symbols by the section offset. */
*************** elf_symtab_read (struct objfile *objfile
*** 494,500 ****
if (index != -1)
sectinfo->sections[index] = symaddr;
else
! internal_error ("Section index uninitialized.");
/* The special local symbols don't go in the
minimal symbol table, so ignore this one. */
continue;
--- 495,502 ----
if (index != -1)
sectinfo->sections[index] = symaddr;
else
! internal_error (__FILE__, __LINE__,
! "Section index uninitialized.");
/* The special local symbols don't go in the
minimal symbol table, so ignore this one. */
continue;
Index: event-loop.c
===================================================================
RCS file: /cvs/src/src/gdb/event-loop.c,v
retrieving revision 1.8
diff -p -r1.8 event-loop.c
*** event-loop.c 2000/09/01 23:52:09 1.8
--- event-loop.c 2000/12/01 11:17:05
*************** add_file_handler (int fd, handler_func *
*** 484,490 ****
if (poll (&fds, 1, 0) == 1 && (fds.revents & POLLNVAL))
use_poll = 0;
#else
! internal_error ("event-loop.c : use_poll without HAVE_POLL");
#endif /* HAVE_POLL */
}
if (use_poll)
--- 484,491 ----
if (poll (&fds, 1, 0) == 1 && (fds.revents & POLLNVAL))
use_poll = 0;
#else
! internal_error (__FILE__, __LINE__,
! "use_poll without HAVE_POLL");
#endif /* HAVE_POLL */
}
if (use_poll)
*************** add_file_handler (int fd, handler_func *
*** 492,498 ****
#ifdef HAVE_POLL
create_file_handler (fd, POLLIN, proc, client_data);
#else
! internal_error ("event-loop.c : use_poll without HAVE_POLL");
#endif
}
else
--- 493,500 ----
#ifdef HAVE_POLL
create_file_handler (fd, POLLIN, proc, client_data);
#else
! internal_error (__FILE__, __LINE__,
! "use_poll without HAVE_POLL");
#endif
}
else
*************** create_file_handler (int fd, int mask, h
*** 552,558 ****
(gdb_notifier.poll_fds + gdb_notifier.num_fds - 1)->events = mask;
(gdb_notifier.poll_fds + gdb_notifier.num_fds - 1)->revents = 0;
#else
! internal_error ("event-loop.c : use_poll without HAVE_POLL");
#endif /* HAVE_POLL */
}
else
--- 554,561 ----
(gdb_notifier.poll_fds + gdb_notifier.num_fds - 1)->events = mask;
(gdb_notifier.poll_fds + gdb_notifier.num_fds - 1)->revents = 0;
#else
! internal_error (__FILE__, __LINE__,
! "use_poll without HAVE_POLL");
#endif /* HAVE_POLL */
}
else
*************** delete_file_handler (int fd)
*** 624,630 ****
gdb_notifier.poll_fds = new_poll_fds;
gdb_notifier.num_fds--;
#else
! internal_error ("event-loop.c : use_poll without HAVE_POLL");
#endif /* HAVE_POLL */
}
else
--- 627,634 ----
gdb_notifier.poll_fds = new_poll_fds;
gdb_notifier.num_fds--;
#else
! internal_error (__FILE__, __LINE__,
! "use_poll without HAVE_POLL");
#endif /* HAVE_POLL */
}
else
*************** handle_file_event (int event_file_desc)
*** 725,731 ****
else
file_ptr->error = 0;
#else
! internal_error ("event-loop.c : use_poll without HAVE_POLL");
#endif /* HAVE_POLL */
}
else
--- 729,736 ----
else
file_ptr->error = 0;
#else
! internal_error (__FILE__, __LINE__,
! "use_poll without HAVE_POLL");
#endif /* HAVE_POLL */
}
else
*************** gdb_wait_for_event (void)
*** 786,792 ****
if (num_found == -1 && errno != EINTR)
perror_with_name ("Poll");
#else
! internal_error ("event-loop.c : use_poll without HAVE_POLL");
#endif /* HAVE_POLL */
}
else
--- 791,798 ----
if (num_found == -1 && errno != EINTR)
perror_with_name ("Poll");
#else
! internal_error (__FILE__, __LINE__,
! "use_poll without HAVE_POLL");
#endif /* HAVE_POLL */
}
else
*************** gdb_wait_for_event (void)
*** 847,853 ****
file_ptr->ready_mask = (gdb_notifier.poll_fds + i)->revents;
}
#else
! internal_error ("event-loop.c : use_poll without HAVE_POLL");
#endif /* HAVE_POLL */
}
else
--- 853,860 ----
file_ptr->ready_mask = (gdb_notifier.poll_fds + i)->revents;
}
#else
! internal_error (__FILE__, __LINE__,
! "use_poll without HAVE_POLL");
#endif /* HAVE_POLL */
}
else
*************** poll_timers (void)
*** 1167,1173 ****
#ifdef HAVE_POLL
gdb_notifier.poll_timeout = delta.tv_sec * 1000;
#else
! internal_error ("event-loop.c : use_poll without HAVE_POLL");
#endif /* HAVE_POLL */
}
else
--- 1174,1181 ----
#ifdef HAVE_POLL
gdb_notifier.poll_timeout = delta.tv_sec * 1000;
#else
! internal_error (__FILE__, __LINE__,
! "use_poll without HAVE_POLL");
#endif /* HAVE_POLL */
}
else
Index: f-lang.c
===================================================================
RCS file: /cvs/src/src/gdb/f-lang.c,v
retrieving revision 1.5
diff -p -r1.5 f-lang.c
*** f-lang.c 2000/08/11 01:02:35 1.5
--- f-lang.c 2000/12/01 11:17:07
*************** get_bf_for_fcn (long the_function)
*** 896,902 ****
item at the head of the queue is the one you want) */
if (saved_bf_list == NULL)
! internal_error ("cannot get .bf node off empty list");
if (current_head_bf_list != NULL)
if (current_head_bf_list->symnum_fcn == the_function)
--- 896,903 ----
item at the head of the queue is the one you want) */
if (saved_bf_list == NULL)
! internal_error (__FILE__, __LINE__,
! "cannot get .bf node off empty list");
if (current_head_bf_list != NULL)
if (current_head_bf_list->symnum_fcn == the_function)
Index: findvar.c
===================================================================
RCS file: /cvs/src/src/gdb/findvar.c,v
retrieving revision 1.15
diff -p -r1.15 findvar.c
*** findvar.c 2000/07/30 01:48:25 1.15
--- findvar.c 2000/12/01 11:17:08
*************** extract_typed_address (void *buf, struct
*** 190,196 ****
{
if (TYPE_CODE (type) != TYPE_CODE_PTR
&& TYPE_CODE (type) != TYPE_CODE_REF)
! internal_error ("findvar.c (extract_typed_address): "
"type is not a pointer or reference");
return POINTER_TO_ADDRESS (type, buf);
--- 190,197 ----
{
if (TYPE_CODE (type) != TYPE_CODE_PTR
&& TYPE_CODE (type) != TYPE_CODE_REF)
! internal_error (__FILE__, __LINE__,
! "extract_typed_address: "
"type is not a pointer or reference");
return POINTER_TO_ADDRESS (type, buf);
*************** store_typed_address (void *buf, struct t
*** 276,282 ****
{
if (TYPE_CODE (type) != TYPE_CODE_PTR
&& TYPE_CODE (type) != TYPE_CODE_REF)
! internal_error ("findvar.c (store_typed_address): "
"type is not a pointer or reference");
ADDRESS_TO_POINTER (type, buf, addr);
--- 277,284 ----
{
if (TYPE_CODE (type) != TYPE_CODE_PTR
&& TYPE_CODE (type) != TYPE_CODE_REF)
! internal_error (__FILE__, __LINE__,
! "store_typed_address: "
"type is not a pointer or reference");
ADDRESS_TO_POINTER (type, buf, addr);
*************** value_of_register (int regnum)
*** 415,421 ****
memcpy (VALUE_CONTENTS_RAW (reg_val), raw_buffer,
REGISTER_RAW_SIZE (regnum));
else
! internal_error ("Register \"%s\" (%d) has conflicting raw (%d) and virtual (%d) size",
REGISTER_NAME (regnum),
regnum,
REGISTER_RAW_SIZE (regnum),
--- 417,424 ----
memcpy (VALUE_CONTENTS_RAW (reg_val), raw_buffer,
REGISTER_RAW_SIZE (regnum));
else
! internal_error (__FILE__, __LINE__,
! "Register \"%s\" (%d) has conflicting raw (%d) and virtual (%d) size",
REGISTER_NAME (regnum),
regnum,
REGISTER_RAW_SIZE (regnum),
*************** value_from_register (struct type *type,
*** 874,880 ****
VALUE_ADDRESS (v) = first_addr;
}
else
! internal_error ("value_from_register: Value not stored anywhere!");
VALUE_OPTIMIZED_OUT (v) = optim;
--- 877,884 ----
VALUE_ADDRESS (v) = first_addr;
}
else
! internal_error (__FILE__, __LINE__,
! "value_from_register: Value not stored anywhere!");
VALUE_OPTIMIZED_OUT (v) = optim;
Index: gdb_assert.h
===================================================================
RCS file: /cvs/src/src/gdb/gdb_assert.h,v
retrieving revision 1.1
diff -p -r1.1 gdb_assert.h
*** gdb_assert.h 2000/09/03 17:19:41 1.1
--- gdb_assert.h 2000/12/01 11:17:08
***************
*** 43,50 ****
/* This prints an "Assertion failed" message, aksing the user if they
want to continue, dump core, or just exit. */
#define gdb_assert_fail(assertion, file, line, function) \
! internal_error ("%s:%u: %s%sAssertion `%s' failed.", \
! file, line, \
function ? function : "", function ? ": " : "", \
assertion)
--- 43,49 ----
/* This prints an "Assertion failed" message, aksing the user if they
want to continue, dump core, or just exit. */
#define gdb_assert_fail(assertion, file, line, function) \
! internal_error (file, line, "%s%sAssertion `%s' failed.", \
function ? function : "", function ? ": " : "", \
assertion)
Index: gdbarch.sh
===================================================================
RCS file: /cvs/src/src/gdb/gdbarch.sh,v
retrieving revision 1.48
diff -p -r1.48 gdbarch.sh
*** gdbarch.sh 2000/11/08 23:58:46 1.48
--- gdbarch.sh 2000/12/01 11:17:21
*************** do
*** 665,671 ****
printf "#if (!GDB_MULTI_ARCH) && !defined (${macro})\n"
if [ "${fallbackdefault}" = "0" ]
then
! printf "#define ${macro}(${actual}) (internal_error (\"${macro}\"), 0)\n"
else
# FIXME: Should be passing current_gdbarch through!
echo "#define ${macro}(${actual}) (${fallbackdefault} (${actual}))" \
--- 665,671 ----
printf "#if (!GDB_MULTI_ARCH) && !defined (${macro})\n"
if [ "${fallbackdefault}" = "0" ]
then
! printf "#define ${macro}(${actual}) (internal_error (__FILE__, __LINE__, \"${macro}\"), 0)\n"
else
# FIXME: Should be passing current_gdbarch through!
echo "#define ${macro}(${actual}) (${fallbackdefault} (${actual}))" \
*************** extern disassemble_info tm_print_insn_in
*** 969,975 ****
/* Fallback definition for EXTRACT_STRUCT_VALUE_ADDRESS */
#ifndef EXTRACT_STRUCT_VALUE_ADDRESS
#define EXTRACT_STRUCT_VALUE_ADDRESS_P (0)
! #define EXTRACT_STRUCT_VALUE_ADDRESS(X) (internal_error ("gdbarch: EXTRACT_STRUCT_VALUE_ADDRESS"), 0)
#else
#ifndef EXTRACT_STRUCT_VALUE_ADDRESS_P
#define EXTRACT_STRUCT_VALUE_ADDRESS_P (1)
--- 969,975 ----
/* Fallback definition for EXTRACT_STRUCT_VALUE_ADDRESS */
#ifndef EXTRACT_STRUCT_VALUE_ADDRESS
#define EXTRACT_STRUCT_VALUE_ADDRESS_P (0)
! #define EXTRACT_STRUCT_VALUE_ADDRESS(X) (internal_error (__FILE__, __LINE__, "gdbarch: EXTRACT_STRUCT_VALUE_ADDRESS"), 0)
#else
#ifndef EXTRACT_STRUCT_VALUE_ADDRESS_P
#define EXTRACT_STRUCT_VALUE_ADDRESS_P (1)
*************** verify_gdbarch (struct gdbarch *gdbarch)
*** 1244,1252 ****
return;
/* fundamental */
if (gdbarch->byte_order == 0)
! internal_error ("verify_gdbarch: byte-order unset");
if (gdbarch->bfd_arch_info == NULL)
! internal_error ("verify_gdbarch: bfd_arch_info unset");
/* Check those that need to be defined for the given multi-arch level. */
EOF
function_list | while do_read
--- 1244,1254 ----
return;
/* fundamental */
if (gdbarch->byte_order == 0)
! internal_error (__FILE__, __LINE__,
! "verify_gdbarch: byte-order unset");
if (gdbarch->bfd_arch_info == NULL)
! internal_error (__FILE__, __LINE__,
! "verify_gdbarch: bfd_arch_info unset");
/* Check those that need to be defined for the given multi-arch level. */
EOF
function_list | while do_read
*************** do
*** 1276,1287 ****
then
printf " if ((GDB_MULTI_ARCH >= ${level})\n"
printf " && (${invalid_p}))\n"
! printf " internal_error (\"gdbarch: verify_gdbarch: ${function} invalid\");\n"
elif [ "${predefault}" ]
then
printf " if ((GDB_MULTI_ARCH >= ${level})\n"
printf " && (gdbarch->${function} == ${predefault}))\n"
! printf " internal_error (\"gdbarch: verify_gdbarch: ${function} invalid\");\n"
fi
fi
done
--- 1278,1291 ----
then
printf " if ((GDB_MULTI_ARCH >= ${level})\n"
printf " && (${invalid_p}))\n"
! printf " internal_error (__FILE__, __LINE__,\n"
! printf " \"gdbarch: verify_gdbarch: ${function} invalid\");\n"
elif [ "${predefault}" ]
then
printf " if ((GDB_MULTI_ARCH >= ${level})\n"
printf " && (gdbarch->${function} == ${predefault}))\n"
! printf " internal_error (__FILE__, __LINE__,\n"
! printf " \"gdbarch: verify_gdbarch: ${function} invalid\");\n"
fi
fi
done
*************** do
*** 1406,1412 ****
fi
printf "{\n"
printf " if (gdbarch->${function} == 0)\n"
! printf " internal_error (\"gdbarch: gdbarch_${function} invalid\");\n"
printf " if (gdbarch_debug >= 2)\n"
printf " fprintf_unfiltered (gdb_stdlog, \"gdbarch_${function} called\\\\n\");\n"
test "${actual}" = "-" && actual=""
--- 1410,1417 ----
fi
printf "{\n"
printf " if (gdbarch->${function} == 0)\n"
! printf " internal_error (__FILE__, __LINE__,\n"
! printf " \"gdbarch: gdbarch_${function} invalid\");\n"
printf " if (gdbarch_debug >= 2)\n"
printf " fprintf_unfiltered (gdb_stdlog, \"gdbarch_${function} called\\\\n\");\n"
test "${actual}" = "-" && actual=""
*************** do
*** 1436,1446 ****
elif [ "${invalid_p}" ]
then
printf " if (${invalid_p})\n"
! printf " internal_error (\"gdbarch: gdbarch_${function} invalid\");\n"
elif [ "${predefault}" ]
then
printf " if (gdbarch->${function} == ${predefault})\n"
! printf " internal_error (\"gdbarch: gdbarch_${function} invalid\");\n"
fi
printf " if (gdbarch_debug >= 2)\n"
printf " fprintf_unfiltered (gdb_stdlog, \"gdbarch_${function} called\\\\n\");\n"
--- 1441,1453 ----
elif [ "${invalid_p}" ]
then
printf " if (${invalid_p})\n"
! printf " internal_error (__FILE__, __LINE__,\n"
! printf " \"gdbarch: gdbarch_${function} invalid\");\n"
elif [ "${predefault}" ]
then
printf " if (gdbarch->${function} == ${predefault})\n"
! printf " internal_error (__FILE__, __LINE__,\n"
! printf " \"gdbarch: gdbarch_${function} invalid\");\n"
fi
printf " if (gdbarch_debug >= 2)\n"
printf " fprintf_unfiltered (gdb_stdlog, \"gdbarch_${function} called\\\\n\");\n"
*************** void *
*** 1537,1543 ****
gdbarch_data (struct gdbarch_data *data)
{
if (data->index >= current_gdbarch->nr_data)
! internal_error ("gdbarch_data: request for non-existant data.");
return current_gdbarch->data[data->index];
}
--- 1544,1551 ----
gdbarch_data (struct gdbarch_data *data)
{
if (data->index >= current_gdbarch->nr_data)
! internal_error (__FILE__, __LINE__,
! "gdbarch_data: request for non-existant data.");
return current_gdbarch->data[data->index];
}
*************** gdbarch_printable_names (void)
*** 1671,1677 ****
const struct bfd_arch_info *ap;
ap = bfd_lookup_arch (rego->bfd_architecture, 0);
if (ap == NULL)
! internal_error ("gdbarch_architecture_names: multi-arch unknown");
do
{
append_name (&arches, &nr_arches, ap->printable_name);
--- 1679,1686 ----
const struct bfd_arch_info *ap;
ap = bfd_lookup_arch (rego->bfd_architecture, 0);
if (ap == NULL)
! internal_error (__FILE__, __LINE__,
! "gdbarch_architecture_names: multi-arch unknown");
do
{
append_name (&arches, &nr_arches, ap->printable_name);
*************** gdbarch_register (enum bfd_architecture
*** 1700,1706 ****
bfd_arch_info = bfd_lookup_arch (bfd_architecture, 0);
if (bfd_arch_info == NULL)
{
! internal_error ("gdbarch: Attempt to register unknown architecture (%d)", bfd_architecture);
}
/* Check that we haven't seen this architecture before */
for (curr = &gdbarch_registry;
--- 1709,1717 ----
bfd_arch_info = bfd_lookup_arch (bfd_architecture, 0);
if (bfd_arch_info == NULL)
{
! internal_error (__FILE__, __LINE__,
! "gdbarch: Attempt to register unknown architecture (%d)",
! bfd_architecture);
}
/* Check that we haven't seen this architecture before */
for (curr = &gdbarch_registry;
*************** gdbarch_register (enum bfd_architecture
*** 1708,1715 ****
curr = &(*curr)->next)
{
if (bfd_architecture == (*curr)->bfd_architecture)
! internal_error ("gdbarch: Duplicate registraration of architecture (%s)",
! bfd_arch_info->printable_name);
}
/* log it */
if (gdbarch_debug)
--- 1719,1727 ----
curr = &(*curr)->next)
{
if (bfd_architecture == (*curr)->bfd_architecture)
! internal_error (__FILE__, __LINE__,
! "gdbarch: Duplicate registraration of architecture (%s)",
! bfd_arch_info->printable_name);
}
/* log it */
if (gdbarch_debug)
Index: go32-nat.c
===================================================================
RCS file: /cvs/src/src/gdb/go32-nat.c,v
retrieving revision 1.6
diff -p -r1.6 go32-nat.c
*** go32-nat.c 2000/08/06 07:19:38 1.6
--- go32-nat.c 2000/12/01 11:17:23
*************** go32_fetch_registers (int regno)
*** 488,500 ****
((char *) &npx + regno_mapping[regno].tss_ofs);
break;
default:
! internal_error ("\
Invalid native size for register no. %d in go32_fetch_register.", regno);
}
supply_register (regno, (char *) ®val);
}
else
! internal_error ("Invalid register no. %d in go32_fetch_register.",
regno);
}
}
--- 488,501 ----
((char *) &npx + regno_mapping[regno].tss_ofs);
break;
default:
! internal_error (__FILE__, __LINE__, "\
Invalid native size for register no. %d in go32_fetch_register.", regno);
}
supply_register (regno, (char *) ®val);
}
else
! internal_error (__FILE__, __LINE__,
! "Invalid register no. %d in go32_fetch_register.",
regno);
}
}
*************** store_register (int regno)
*** 512,518 ****
else if (regno < 32)
rp = (char *) &npx + regno_mapping[regno].tss_ofs;
else
! internal_error ("Invalid register no. %d in store_register.", regno);
memcpy (rp, v, regno_mapping[regno].size);
if (regno == FOP_REGNUM)
*(short *)rp &= 0x07ff; /* strip high 5 bits, in case they added them */
--- 513,520 ----
else if (regno < 32)
rp = (char *) &npx + regno_mapping[regno].tss_ofs;
else
! internal_error (__FILE__, __LINE__,
! "Invalid register no. %d in store_register.", regno);
memcpy (rp, v, regno_mapping[regno].size);
if (regno == FOP_REGNUM)
*(short *)rp &= 0x07ff; /* strip high 5 bits, in case they added them */
*************** go32_create_inferior (char *exec_file, c
*** 617,623 ****
/* Init command line storage. */
if (redir_debug_init (&child_cmd) == -1)
! internal_error ("Cannot allocate redirection storage: not enough memory.\n");
/* Parse the command line and create redirections. */
if (strpbrk (args, "<>"))
--- 619,626 ----
/* Init command line storage. */
if (redir_debug_init (&child_cmd) == -1)
! internal_error (__FILE__, __LINE__,
! "Cannot allocate redirection storage: not enough memory.\n");
/* Parse the command line and create redirections. */
if (strpbrk (args, "<>"))
*************** init_go32_ops (void)
*** 1242,1248 ****
/* Initialize child's command line storage. */
if (redir_debug_init (&child_cmd) == -1)
! internal_error ("Cannot allocate redirection storage: not enough memory.\n");
/* We are always processing GCC-compiled programs. */
processing_gcc_compilation = 2;
--- 1245,1252 ----
/* Initialize child's command line storage. */
if (redir_debug_init (&child_cmd) == -1)
! internal_error (__FILE__, __LINE__,
! "Cannot allocate redirection storage: not enough memory.\n");
/* We are always processing GCC-compiled programs. */
processing_gcc_compilation = 2;
Index: hppah-nat.c
===================================================================
RCS file: /cvs/src/src/gdb/hppah-nat.c,v
retrieving revision 1.5
diff -p -r1.5 hppah-nat.c
*** hppah-nat.c 2000/09/02 00:07:32 1.5
--- hppah-nat.c 2000/12/01 11:17:25
*************** store_inferior_registers (int regno)
*** 106,112 ****
addr = (HPPAH_OFFSETOF (save_state_t, ss_narrow)
+ (REGISTER_BYTE (regno) - REGISTER_BYTE (1)));
else
! internal_error ("hppah-nat.c (write_register): unexpected register size");
#ifdef GDB_TARGET_IS_HPPA_20W
/* Unbelieveable. The PC head and tail must be written in 64bit hunks
--- 106,113 ----
addr = (HPPAH_OFFSETOF (save_state_t, ss_narrow)
+ (REGISTER_BYTE (regno) - REGISTER_BYTE (1)));
else
! internal_error (__FILE__, __LINE__,
! "hppah-nat.c (write_register): unexpected register size");
#ifdef GDB_TARGET_IS_HPPA_20W
/* Unbelieveable. The PC head and tail must be written in 64bit hunks
*************** fetch_register (int regno)
*** 222,228 ****
+ (REGISTER_BYTE (regno) - REGISTER_BYTE (1)));
else
! internal_error ("hppa-nat.c (fetch_register): unexpected register size");
for (i = 0; i < len; i += sizeof (int))
{
--- 223,230 ----
+ (REGISTER_BYTE (regno) - REGISTER_BYTE (1)));
else
! internal_error (__FILE__, __LINE__,
! "hppa-nat.c (fetch_register): unexpected register size");
for (i = 0; i < len; i += sizeof (int))
{
Index: i386-linux-nat.c
===================================================================
RCS file: /cvs/src/src/gdb/i386-linux-nat.c,v
retrieving revision 1.18
diff -p -r1.18 i386-linux-nat.c
*** i386-linux-nat.c 2000/09/22 17:45:47 1.18
--- i386-linux-nat.c 2000/12/01 11:17:28
*************** fetch_inferior_registers (int regno)
*** 592,598 ****
return;
}
! internal_error ("Got request for bad register number %d.", regno);
}
/* Store register REGNO back into the child process. If REGNO is -1,
--- 592,599 ----
return;
}
! internal_error (__FILE__, __LINE__,
! "Got request for bad register number %d.", regno);
}
/* Store register REGNO back into the child process. If REGNO is -1,
*************** store_inferior_registers (int regno)
*** 645,651 ****
return;
}
! internal_error ("Got request to store bad register number %d.", regno);
}
--- 646,653 ----
return;
}
! internal_error (__FILE__, __LINE__,
! "Got request to store bad register number %d.", regno);
}
Index: i386-tdep.c
===================================================================
RCS file: /cvs/src/src/gdb/i386-tdep.c,v
retrieving revision 1.15
diff -p -r1.15 i386-tdep.c
*** i386-tdep.c 2000/07/30 01:48:25 1.15
--- i386-tdep.c 2000/12/01 11:17:30
*************** i386_extract_return_value (struct type *
*** 770,776 ****
®buf[REGISTER_BYTE (HIGH_RETURN_REGNUM)], len - low_size);
}
else
! internal_error ("Cannot extract return value of %d bytes long.", len);
}
}
--- 770,777 ----
®buf[REGISTER_BYTE (HIGH_RETURN_REGNUM)], len - low_size);
}
else
! internal_error (__FILE__, __LINE__,
! "Cannot extract return value of %d bytes long.", len);
}
}
Index: ia64-tdep.c
===================================================================
RCS file: /cvs/src/src/gdb/ia64-tdep.c,v
retrieving revision 1.11
diff -p -r1.11 ia64-tdep.c
*** ia64-tdep.c 2000/11/20 23:46:36 1.11
--- ia64-tdep.c 2000/12/01 11:17:37
*************** read_sigcontext_register (struct frame_i
*** 324,343 ****
CORE_ADDR regaddr;
if (frame == NULL)
! internal_error ("read_sigcontext_register: NULL frame");
if (!frame->signal_handler_caller)
! internal_error (
! "read_sigcontext_register: frame not a signal_handler_caller");
if (SIGCONTEXT_REGISTER_ADDRESS == 0)
! internal_error (
! "read_sigcontext_register: SIGCONTEXT_REGISTER_ADDRESS is 0");
regaddr = SIGCONTEXT_REGISTER_ADDRESS (frame->frame, regnum);
if (regaddr)
return read_memory_integer (regaddr, REGISTER_RAW_SIZE (regnum));
else
! internal_error (
! "read_sigcontext_register: Register %d not in struct sigcontext", regnum);
}
/* Extract ``len'' bits from an instruction bundle starting at
--- 324,344 ----
CORE_ADDR regaddr;
if (frame == NULL)
! internal_error (__FILE__, __LINE__,
! "read_sigcontext_register: NULL frame");
if (!frame->signal_handler_caller)
! internal_error (__FILE__, __LINE__,
! "read_sigcontext_register: frame not a signal_handler_caller");
if (SIGCONTEXT_REGISTER_ADDRESS == 0)
! internal_error (__FILE__, __LINE__,
! "read_sigcontext_register: SIGCONTEXT_REGISTER_ADDRESS is 0");
regaddr = SIGCONTEXT_REGISTER_ADDRESS (frame->frame, regnum);
if (regaddr)
return read_memory_integer (regaddr, REGISTER_RAW_SIZE (regnum));
else
! internal_error (__FILE__, __LINE__,
! "read_sigcontext_register: Register %d not in struct sigcontext", regnum);
}
/* Extract ``len'' bits from an instruction bundle starting at
*************** process_note_abi_tag_sections (bfd *abfd
*** 1922,1929 ****
*os_ident_ptr = ELFOSABI_SOLARIS;
break;
default :
! internal_error (
! "process_note_abi_sections: unknown OS number %d", os_number);
break;
}
}
--- 1923,1930 ----
*os_ident_ptr = ELFOSABI_SOLARIS;
break;
default :
! internal_error (__FILE__, __LINE__,
! "process_note_abi_sections: unknown OS number %d", os_number);
break;
}
}
Index: infcmd.c
===================================================================
RCS file: /cvs/src/src/gdb/infcmd.c,v
retrieving revision 1.13
diff -p -r1.13 infcmd.c
*** infcmd.c 2000/11/10 19:27:45 1.13
--- infcmd.c 2000/12/01 11:17:40
*************** finish_command_continuation (struct cont
*** 1090,1096 ****
value_type = TYPE_TARGET_TYPE (SYMBOL_TYPE (function));
if (!value_type)
! internal_error ("finish_command: function has no target type");
if (TYPE_CODE (value_type) == TYPE_CODE_VOID)
{
--- 1090,1097 ----
value_type = TYPE_TARGET_TYPE (SYMBOL_TYPE (function));
if (!value_type)
! internal_error (__FILE__, __LINE__,
! "finish_command: function has no target type");
if (TYPE_CODE (value_type) == TYPE_CODE_VOID)
{
*************** finish_command (char *arg, int from_tty)
*** 1217,1223 ****
value_type = TYPE_TARGET_TYPE (SYMBOL_TYPE (function));
if (!value_type)
! internal_error ("finish_command: function has no target type");
/* FIXME: Shouldn't we do the cleanups before returning? */
if (TYPE_CODE (value_type) == TYPE_CODE_VOID)
--- 1218,1225 ----
value_type = TYPE_TARGET_TYPE (SYMBOL_TYPE (function));
if (!value_type)
! internal_error (__FILE__, __LINE__,
! "finish_command: function has no target type");
/* FIXME: Shouldn't we do the cleanups before returning? */
if (TYPE_CODE (value_type) == TYPE_CODE_VOID)
Index: inferior.h
===================================================================
RCS file: /cvs/src/src/gdb/inferior.h,v
retrieving revision 1.12
diff -p -r1.12 inferior.h
*** inferior.h 2000/11/10 19:27:45 1.12
--- inferior.h 2000/12/01 11:17:40
*************** extern int attach_flag;
*** 415,434 ****
#endif /* No CALL_DUMMY_LOCATION. */
#if !defined (CALL_DUMMY_ADDRESS)
! #define CALL_DUMMY_ADDRESS() (internal_error ("CALL_DUMMY_ADDRESS"), 0)
#endif
#if !defined (CALL_DUMMY_START_OFFSET)
! #define CALL_DUMMY_START_OFFSET (internal_error ("CALL_DUMMY_START_OFFSET"), 0)
#endif
#if !defined (CALL_DUMMY_BREAKPOINT_OFFSET)
#define CALL_DUMMY_BREAKPOINT_OFFSET_P (0)
! #define CALL_DUMMY_BREAKPOINT_OFFSET (internal_error ("CALL_DUMMY_BREAKPOINT_OFFSET"), 0)
#endif
#if !defined CALL_DUMMY_BREAKPOINT_OFFSET_P
#define CALL_DUMMY_BREAKPOINT_OFFSET_P (1)
#endif
#if !defined (CALL_DUMMY_LENGTH)
! #define CALL_DUMMY_LENGTH (internal_error ("CALL_DUMMY_LENGTH"), 0)
#endif
#if defined (CALL_DUMMY_STACK_ADJUST)
--- 415,434 ----
#endif /* No CALL_DUMMY_LOCATION. */
#if !defined (CALL_DUMMY_ADDRESS)
! #define CALL_DUMMY_ADDRESS() (internal_error (__FILE__, __LINE__, "CALL_DUMMY_ADDRESS"), 0)
#endif
#if !defined (CALL_DUMMY_START_OFFSET)
! #define CALL_DUMMY_START_OFFSET (internal_error (__FILE__, __LINE__, "CALL_DUMMY_START_OFFSET"), 0)
#endif
#if !defined (CALL_DUMMY_BREAKPOINT_OFFSET)
#define CALL_DUMMY_BREAKPOINT_OFFSET_P (0)
! #define CALL_DUMMY_BREAKPOINT_OFFSET (internal_error (__FILE__, __LINE__, "CALL_DUMMY_BREAKPOINT_OFFSET"), 0)
#endif
#if !defined CALL_DUMMY_BREAKPOINT_OFFSET_P
#define CALL_DUMMY_BREAKPOINT_OFFSET_P (1)
#endif
#if !defined (CALL_DUMMY_LENGTH)
! #define CALL_DUMMY_LENGTH (internal_error (__FILE__, __LINE__, "CALL_DUMMY_LENGTH"), 0)
#endif
#if defined (CALL_DUMMY_STACK_ADJUST)
*************** extern int attach_flag;
*** 437,443 ****
#endif
#endif
#if !defined (CALL_DUMMY_STACK_ADJUST)
! #define CALL_DUMMY_STACK_ADJUST (internal_error ("CALL_DUMMY_STACK_ADJUST"), 0)
#endif
#if !defined (CALL_DUMMY_STACK_ADJUST_P)
#define CALL_DUMMY_STACK_ADJUST_P (0)
--- 437,443 ----
#endif
#endif
#if !defined (CALL_DUMMY_STACK_ADJUST)
! #define CALL_DUMMY_STACK_ADJUST (internal_error (__FILE__, __LINE__, "CALL_DUMMY_STACK_ADJUST"), 0)
#endif
#if !defined (CALL_DUMMY_STACK_ADJUST_P)
#define CALL_DUMMY_STACK_ADJUST_P (0)
*************** extern int attach_flag;
*** 455,469 ****
#endif
#if !defined PUSH_DUMMY_FRAME
! #define PUSH_DUMMY_FRAME (internal_error ("PUSH_DUMMY_FRAME"), 0)
#endif
#if !defined FIX_CALL_DUMMY
! #define FIX_CALL_DUMMY(a1,a2,a3,a4,a5,a6,a7) (internal_error ("FIX_CALL_DUMMY"), 0)
#endif
#if !defined STORE_STRUCT_RETURN
! #define STORE_STRUCT_RETURN(a1,a2) (internal_error ("STORE_STRUCT_RETURN"), 0)
#endif
--- 455,469 ----
#endif
#if !defined PUSH_DUMMY_FRAME
! #define PUSH_DUMMY_FRAME (internal_error (__FILE__, __LINE__, "PUSH_DUMMY_FRAME"), 0)
#endif
#if !defined FIX_CALL_DUMMY
! #define FIX_CALL_DUMMY(a1,a2,a3,a4,a5,a6,a7) (internal_error (__FILE__, __LINE__, "FIX_CALL_DUMMY"), 0)
#endif
#if !defined STORE_STRUCT_RETURN
! #define STORE_STRUCT_RETURN(a1,a2) (internal_error (__FILE__, __LINE__, "STORE_STRUCT_RETURN"), 0)
#endif
Index: infptrace.c
===================================================================
RCS file: /cvs/src/src/gdb/infptrace.c,v
retrieving revision 1.6
diff -p -r1.6 infptrace.c
*** infptrace.c 2000/09/09 01:38:49 1.6
--- infptrace.c 2000/12/01 11:17:42
*************** _initialize_kernel_u_addr (void)
*** 340,346 ****
if (nlist ("/vmunix", names) == 0)
kernel_u_addr = names[0].n_value;
else
! internal_error ("Unable to get kernel u area address.");
#endif /* KERNEL_U_ADDR_BSD. */
}
--- 340,347 ----
if (nlist ("/vmunix", names) == 0)
kernel_u_addr = names[0].n_value;
else
! internal_error (__FILE__, __LINE__,
! "Unable to get kernel u area address.");
#endif /* KERNEL_U_ADDR_BSD. */
}
Index: infrun.c
===================================================================
RCS file: /cvs/src/src/gdb/infrun.c,v
retrieving revision 1.22
diff -p -r1.22 infrun.c
*** infrun.c 2000/11/10 19:27:45 1.22
--- infrun.c 2000/12/01 11:17:53
*************** follow_inferior_fork (int parent_pid, in
*** 473,479 ****
/* Or, did the user not know, and want us to ask? */
if (follow_fork_mode_string == follow_fork_mode_ask)
{
! internal_error ("follow_inferior_fork: \"ask\" mode not implemented");
/* follow_mode = follow_fork_mode_...; */
}
--- 473,480 ----
/* Or, did the user not know, and want us to ask? */
if (follow_fork_mode_string == follow_fork_mode_ask)
{
! internal_error (__FILE__, __LINE__,
! "follow_inferior_fork: \"ask\" mode not implemented");
/* follow_mode = follow_fork_mode_...; */
}
*************** print_stop_reason (enum inferior_stop_re
*** 3382,3388 ****
#endif
break;
default:
! internal_error ("print_stop_reason: unrecognized enum value");
break;
}
}
--- 3383,3390 ----
#endif
break;
default:
! internal_error (__FILE__, __LINE__,
! "print_stop_reason: unrecognized enum value");
break;
}
}
*************** and/or watchpoints.\n");
*** 3518,3524 ****
do_frame_printing = 0;
break;
default:
! internal_error ("Unknown value.");
}
#ifdef UI_OUT
/* For mi, have the same behavior every time we stop:
--- 3520,3527 ----
do_frame_printing = 0;
break;
default:
! internal_error (__FILE__, __LINE__,
! "Unknown value.");
}
#ifdef UI_OUT
/* For mi, have the same behavior every time we stop:
Index: language.c
===================================================================
RCS file: /cvs/src/src/gdb/language.c,v
retrieving revision 1.10
diff -p -r1.10 language.c
*** language.c 2000/09/15 07:08:11 1.10
--- language.c 2000/12/01 11:17:56
*************** longest_local_hex_string_custom (LONGEST
*** 721,727 ****
if (strlen (local_hex_format_prefix ()) + num_len + num_pad_chars
< RESULT_BUF_LEN) /* paranoia */
! internal_error ("longest_local_hex_string_custom: insufficient space to store result");
strcpy (res2, local_hex_format_prefix ());
if (pad_on_left)
--- 721,728 ----
if (strlen (local_hex_format_prefix ()) + num_len + num_pad_chars
< RESULT_BUF_LEN) /* paranoia */
! internal_error (__FILE__, __LINE__,
! "longest_local_hex_string_custom: insufficient space to store result");
strcpy (res2, local_hex_format_prefix ());
if (pad_on_left)
Index: m3-nat.c
===================================================================
RCS file: /cvs/src/src/gdb/m3-nat.c,v
retrieving revision 1.6
diff -p -r1.6 m3-nat.c
*** m3-nat.c 2000/10/30 21:50:57 1.6
--- m3-nat.c 2000/12/01 11:18:05
*************** catch_exception_raise (mach_port_t port,
*** 1637,1643 ****
}
if (exception < 0 || exception > MAX_EXCEPTION)
! internal_error ("catch_exception_raise: unknown exception code %d thread %d",
exception,
mid);
--- 1637,1644 ----
}
if (exception < 0 || exception > MAX_EXCEPTION)
! internal_error (__FILE__, __LINE__,
! "catch_exception_raise: unknown exception code %d thread %d",
exception,
mid);
*************** mach3_exception_actions (WAITTYPE *w, bo
*** 3498,3504 ****
stop_code);
break;
default:
! internal_error ("Unknown exception");
}
}
}
--- 3499,3506 ----
stop_code);
break;
default:
! internal_error (__FILE__, __LINE__,
! "Unknown exception");
}
}
}
*************** setup_notify_port (int create_new)
*** 3523,3535 ****
MACH_PORT_RIGHT_RECEIVE,
&our_notify_port);
if (ret != KERN_SUCCESS)
! internal_error ("Creating notify port %s", mach_error_string (ret));
ret = mach_port_move_member (mach_task_self (),
our_notify_port,
inferior_wait_port_set);
if (ret != KERN_SUCCESS)
! internal_error ("initial move member %s", mach_error_string (ret));
}
}
--- 3525,3539 ----
MACH_PORT_RIGHT_RECEIVE,
&our_notify_port);
if (ret != KERN_SUCCESS)
! internal_error (__FILE__, __LINE__,
! "Creating notify port %s", mach_error_string (ret));
ret = mach_port_move_member (mach_task_self (),
our_notify_port,
inferior_wait_port_set);
if (ret != KERN_SUCCESS)
! internal_error (__FILE__, __LINE__,
! "initial move member %s", mach_error_string (ret));
}
}
*************** _initialize_m3_nat (void)
*** 4499,4505 ****
MACH_PORT_RIGHT_PORT_SET,
&inferior_wait_port_set);
if (ret != KERN_SUCCESS)
! internal_error ("initial port set %s", mach_error_string (ret));
/* mach_really_wait now waits for this */
currently_waiting_for = inferior_wait_port_set;
--- 4503,4510 ----
MACH_PORT_RIGHT_PORT_SET,
&inferior_wait_port_set);
if (ret != KERN_SUCCESS)
! internal_error (__FILE__, __LINE__,
! "initial port set %s", mach_error_string (ret));
/* mach_really_wait now waits for this */
currently_waiting_for = inferior_wait_port_set;
Index: m68k-tdep.c
===================================================================
RCS file: /cvs/src/src/gdb/m68k-tdep.c,v
retrieving revision 1.9
diff -p -r1.9 m68k-tdep.c
*** m68k-tdep.c 2000/11/08 12:26:15 1.9
--- m68k-tdep.c 2000/12/01 11:18:05
*************** m68k_get_longjmp_target (CORE_ADDR *pc)
*** 672,678 ****
return 1;
#else
! internal_error ("m68k_get_longjmp_target: not implemented");
return 0;
#endif
}
--- 672,679 ----
return 1;
#else
! internal_error (__FILE__, __LINE__,
! "m68k_get_longjmp_target: not implemented");
return 0;
#endif
}
Index: maint.c
===================================================================
RCS file: /cvs/src/src/gdb/maint.c,v
retrieving revision 1.11
diff -p -r1.11 maint.c
*** maint.c 2000/07/30 01:48:26 1.11
--- maint.c 2000/12/01 11:18:07
*************** maintenance_dump_me (char *args, int fro
*** 115,121 ****
static void
maintenance_internal_error (char *args, int from_tty)
{
! internal_error ("internal maintenance");
}
/* Someday we should allow demangling for things other than just
--- 115,122 ----
static void
maintenance_internal_error (char *args, int from_tty)
{
! internal_error (__FILE__, __LINE__,
! "internal maintenance");
}
/* Someday we should allow demangling for things other than just
Index: mips-tdep.c
===================================================================
RCS file: /cvs/src/src/gdb/mips-tdep.c,v
retrieving revision 1.34
diff -p -r1.34 mips-tdep.c
*** mips-tdep.c 2000/10/30 21:50:57 1.34
--- mips-tdep.c 2000/12/01 11:18:23
*************** mips_mask_address_p (void)
*** 477,483 ****
case CMD_AUTO_BOOLEAN_AUTO:
return MIPS_DEFAULT_MASK_ADDRESS_P;
default:
! internal_error ("mips_mask_address_p: bad switch");
return -1;
}
}
--- 477,484 ----
case CMD_AUTO_BOOLEAN_AUTO:
return MIPS_DEFAULT_MASK_ADDRESS_P;
default:
! internal_error (__FILE__, __LINE__,
! "mips_mask_address_p: bad switch");
return -1;
}
}
*************** show_mask_address (char *cmd, int from_t
*** 498,504 ****
mips_mask_address_p () ? "enabled" : "disabled");
break;
default:
! internal_error ("show_mask_address: bad switch");
break;
}
}
--- 499,506 ----
mips_mask_address_p () ? "enabled" : "disabled");
break;
default:
! internal_error (__FILE__, __LINE__,
! "show_mask_address: bad switch");
break;
}
}
Index: mn10300-tdep.c
===================================================================
RCS file: /cvs/src/src/gdb/mn10300-tdep.c,v
retrieving revision 1.5
diff -p -r1.5 mn10300-tdep.c
*** mn10300-tdep.c 2000/08/12 03:28:42 1.5
--- mn10300-tdep.c 2000/12/01 11:18:30
*************** mn10300_gdbarch_init (struct gdbarch_inf
*** 974,980 ****
num_regs = 32;
break;
default:
! internal_error ("mn10300_gdbarch_init: Unknown mn10300 variant");
return NULL; /* keep GCC happy. */
}
--- 974,981 ----
num_regs = 32;
break;
default:
! internal_error (__FILE__, __LINE__,
! "mn10300_gdbarch_init: Unknown mn10300 variant");
return NULL; /* keep GCC happy. */
}
Index: objfiles.c
===================================================================
RCS file: /cvs/src/src/gdb/objfiles.c,v
retrieving revision 1.11
diff -p -r1.11 objfiles.c
*** objfiles.c 2000/11/03 19:00:06 1.11
--- objfiles.c 2000/12/01 11:18:38
*************** unlink_objfile (struct objfile *objfile)
*** 370,376 ****
}
}
! internal_error ("objfiles.c (unlink_objfile): objfile already unlinked");
}
--- 370,377 ----
}
}
! internal_error (__FILE__, __LINE__,
! "unlink_objfile: objfile already unlinked");
}
Index: objfiles.h
===================================================================
RCS file: /cvs/src/src/gdb/objfiles.h,v
retrieving revision 1.6
diff -p -r1.6 objfiles.h
*** objfiles.h 2000/08/07 15:02:48 1.6
--- objfiles.h 2000/12/01 11:18:41
*************** extern int is_in_import_list (char *, st
*** 586,601 ****
ALL_OBJFILE_OSECTIONS (objfile, osect)
#define SECT_OFF_DATA(objfile) \
! ((objfile->sect_index_data == -1) ? \
! (internal_error ("sect_index_data not initialized"), -1) : objfile->sect_index_data)
#define SECT_OFF_RODATA(objfile) \
! ((objfile->sect_index_rodata == -1) ? \
! (internal_error ("sect_index_rodata not initialized"), -1) : objfile->sect_index_rodata)
#define SECT_OFF_TEXT(objfile) \
! ((objfile->sect_index_text == -1) ? \
! (internal_error ("sect_index_text not initialized"), -1) : objfile->sect_index_text)
/* Sometimes the .bss section is missing from the objfile, so we don't
want to die here. Let the users of SECT_OFF_BSS deal with an
--- 586,604 ----
ALL_OBJFILE_OSECTIONS (objfile, osect)
#define SECT_OFF_DATA(objfile) \
! ((objfile->sect_index_data == -1) \
! ? (internal_error (__FILE__, __LINE__, "sect_index_data not initialized"), -1) \
! : objfile->sect_index_data)
#define SECT_OFF_RODATA(objfile) \
! ((objfile->sect_index_rodata == -1) \
! ? (internal_error (__FILE__, __LINE__, "sect_index_rodata not initialized"), -1) \
! : objfile->sect_index_rodata)
#define SECT_OFF_TEXT(objfile) \
! ((objfile->sect_index_text == -1) \
! ? (internal_error (__FILE__, __LINE__, "sect_index_text not initialized"), -1) \
! : objfile->sect_index_text)
/* Sometimes the .bss section is missing from the objfile, so we don't
want to die here. Let the users of SECT_OFF_BSS deal with an
Index: regcache.c
===================================================================
RCS file: /cvs/src/src/gdb/regcache.c,v
retrieving revision 1.12
diff -p -r1.12 regcache.c
*** regcache.c 2000/11/17 01:30:53 1.12
--- regcache.c 2000/12/01 11:18:44
*************** generic_target_read_pc (int pid)
*** 742,748 ****
return pc_val;
}
#endif
! internal_error ("generic_target_read_pc");
return 0;
}
--- 742,749 ----
return pc_val;
}
#endif
! internal_error (__FILE__, __LINE__,
! "generic_target_read_pc");
return 0;
}
*************** generic_target_write_pc (CORE_ADDR pc, i
*** 779,785 ****
if (NNPC_REGNUM >= 0)
write_register_pid (NNPC_REGNUM, pc + 8, pid);
#else
! internal_error ("generic_target_write_pc");
#endif
}
--- 780,787 ----
if (NNPC_REGNUM >= 0)
write_register_pid (NNPC_REGNUM, pc + 8, pid);
#else
! internal_error (__FILE__, __LINE__,
! "generic_target_write_pc");
#endif
}
*************** generic_target_read_sp (void)
*** 812,818 ****
if (SP_REGNUM >= 0)
return read_register (SP_REGNUM);
#endif
! internal_error ("generic_target_read_sp");
}
CORE_ADDR
--- 814,821 ----
if (SP_REGNUM >= 0)
return read_register (SP_REGNUM);
#endif
! internal_error (__FILE__, __LINE__,
! "generic_target_read_sp");
}
CORE_ADDR
*************** generic_target_write_sp (CORE_ADDR val)
*** 831,837 ****
return;
}
#endif
! internal_error ("generic_target_write_sp");
}
void
--- 834,841 ----
return;
}
#endif
! internal_error (__FILE__, __LINE__,
! "generic_target_write_sp");
}
void
*************** generic_target_read_fp (void)
*** 847,853 ****
if (FP_REGNUM >= 0)
return read_register (FP_REGNUM);
#endif
! internal_error ("generic_target_read_fp");
}
CORE_ADDR
--- 851,858 ----
if (FP_REGNUM >= 0)
return read_register (FP_REGNUM);
#endif
! internal_error (__FILE__, __LINE__,
! "generic_target_read_fp");
}
CORE_ADDR
*************** generic_target_write_fp (CORE_ADDR val)
*** 866,872 ****
return;
}
#endif
! internal_error ("generic_target_write_fp");
}
void
--- 871,878 ----
return;
}
#endif
! internal_error (__FILE__, __LINE__,
! "generic_target_write_fp");
}
void
Index: remote-mips.c
===================================================================
RCS file: /cvs/src/src/gdb/remote-mips.c,v
retrieving revision 1.10
diff -p -r1.10 remote-mips.c
*** remote-mips.c 2000/09/12 17:20:09 1.10
--- remote-mips.c 2000/12/01 11:18:51
*************** mips_request (int cmd,
*** 1244,1250 ****
if (cmd != '\0')
{
if (mips_need_reply)
! internal_error ("mips_request: Trying to send command before reply");
sprintf (buff, "0x0 %c 0x%s 0x%s", cmd, paddr_nz (addr), paddr_nz (data));
mips_send_packet (buff, 1);
mips_need_reply = 1;
--- 1244,1251 ----
if (cmd != '\0')
{
if (mips_need_reply)
! internal_error (__FILE__, __LINE__,
! "mips_request: Trying to send command before reply");
sprintf (buff, "0x0 %c 0x%s 0x%s", cmd, paddr_nz (addr), paddr_nz (data));
mips_send_packet (buff, 1);
mips_need_reply = 1;
*************** mips_request (int cmd,
*** 1254,1260 ****
return 0;
if (!mips_need_reply)
! internal_error ("mips_request: Trying to get reply before command");
mips_need_reply = 0;
--- 1255,1262 ----
return 0;
if (!mips_need_reply)
! internal_error (__FILE__, __LINE__,
! "mips_request: Trying to get reply before command");
mips_need_reply = 0;
Index: remote-sim.c
===================================================================
RCS file: /cvs/src/src/gdb/remote-sim.c,v
retrieving revision 1.8
diff -p -r1.8 remote-sim.c
*** remote-sim.c 2000/10/12 21:39:21 1.8
--- remote-sim.c 2000/12/01 11:19:00
*************** gdbsim_store_register (int regno)
*** 333,339 ****
REGISTER_SIM_REGNO (regno),
tmp, REGISTER_RAW_SIZE (regno));
if (nr_bytes > 0 && nr_bytes != REGISTER_RAW_SIZE (regno))
! internal_error ("Register size different to expected");
if (sr_get_debug ())
{
printf_filtered ("gdbsim_store_register: %d", regno);
--- 333,340 ----
REGISTER_SIM_REGNO (regno),
tmp, REGISTER_RAW_SIZE (regno));
if (nr_bytes > 0 && nr_bytes != REGISTER_RAW_SIZE (regno))
! internal_error (__FILE__, __LINE__,
! "Register size different to expected");
if (sr_get_debug ())
{
printf_filtered ("gdbsim_store_register: %d", regno);
*************** gdbsim_open (char *args, int from_tty)
*** 479,485 ****
strcat (arg_buf, " -E little");
break;
default:
! internal_error ("Value of TARGET_BYTE_ORDER unknown");
}
}
/* Specify the architecture of the target when it has been
--- 480,487 ----
strcat (arg_buf, " -E little");
break;
default:
! internal_error (__FILE__, __LINE__,
! "Value of TARGET_BYTE_ORDER unknown");
}
}
/* Specify the architecture of the target when it has been
Index: remote-vx.c
===================================================================
RCS file: /cvs/src/src/gdb/remote-vx.c,v
retrieving revision 1.9
diff -p -r1.9 remote-vx.c
*** remote-vx.c 2000/10/30 21:50:57 1.9
--- remote-vx.c 2000/12/01 11:19:05
*************** vx_wait (int pid_to_wait_for, struct tar
*** 976,982 ****
sleep_ms (200); /* FIXME Don't kill the network too badly */
}
else if (pid != inferior_pid)
! internal_error ("Bad pid for debugged task: %s\n",
local_hex_string ((unsigned long) pid));
}
while (pid == 0);
--- 976,983 ----
sleep_ms (200); /* FIXME Don't kill the network too badly */
}
else if (pid != inferior_pid)
! internal_error (__FILE__, __LINE__,
! "Bad pid for debugged task: %s\n",
local_hex_string ((unsigned long) pid));
}
while (pid == 0);
Index: remote.c
===================================================================
RCS file: /cvs/src/src/gdb/remote.c,v
retrieving revision 1.30
diff -p -r1.30 remote.c
*** remote.c 2000/11/27 02:18:44 1.30
--- remote.c 2000/12/01 11:19:18
*************** packet_ok (const char *buf, struct packe
*** 615,621 ****
config->support = PACKET_ENABLE;
break;
case PACKET_DISABLE:
! internal_error ("packet_ok: attempt to use a disabled packet");
break;
case PACKET_ENABLE:
break;
--- 615,622 ----
config->support = PACKET_ENABLE;
break;
case PACKET_DISABLE:
! internal_error (__FILE__, __LINE__,
! "packet_ok: attempt to use a disabled packet");
break;
case PACKET_ENABLE:
break;
*************** remote_threads_extra_info (struct thread
*** 1681,1687 ****
int n = 0; /* position in display_buf */
if (remote_desc == 0) /* paranoia */
! internal_error ("remote_threads_extra_info");
if (use_threadextra_query)
{
--- 1682,1689 ----
int n = 0; /* position in display_buf */
if (remote_desc == 0) /* paranoia */
! internal_error (__FILE__, __LINE__,
! "remote_threads_extra_info");
if (use_threadextra_query)
{
*************** remote_write_bytes (CORE_ADDR memaddr, c
*** 3363,3372 ****
todo = min (len, max_buf_size / 2);
break;
case PACKET_SUPPORT_UNKNOWN:
! internal_error ("%s:%d: remote_write_bytes: bad internal state",
! __FILE__, __LINE__);
default:
! internal_error ("%s:%d: bad switch", __FILE__, __LINE__);
}
/* Append <memaddr> */
--- 3365,3374 ----
todo = min (len, max_buf_size / 2);
break;
case PACKET_SUPPORT_UNKNOWN:
! internal_error (__FILE__, __LINE__,
! "remote_write_bytes: bad internal state");
default:
! internal_error (__FILE__, __LINE__, "bad switch");
}
/* Append <memaddr> */
*************** remote_write_bytes (CORE_ADDR memaddr, c
*** 3430,3439 ****
*p = '\0';
break;
case PACKET_SUPPORT_UNKNOWN:
! internal_error ("%s:%d: remote_write_bytes: bad internal state",
! __FILE__, __LINE__);
default:
! internal_error ("%s:%d: bad switch", __FILE__, __LINE__);
}
putpkt_binary (buf, (int) (p - buf));
--- 3432,3441 ----
*p = '\0';
break;
case PACKET_SUPPORT_UNKNOWN:
! internal_error (__FILE__, __LINE__,
! "remote_write_bytes: bad internal state");
default:
! internal_error (__FILE__, __LINE__, "bad switch");
}
putpkt_binary (buf, (int) (p - buf));
*************** watchpoint_to_Z_packet (int type)
*** 4337,4343 ****
return 4;
break;
default:
! internal_error ("hw_bp_to_z: bad watchpoint type %d", type);
}
}
--- 4339,4346 ----
return 4;
break;
default:
! internal_error (__FILE__, __LINE__,
! "hw_bp_to_z: bad watchpoint type %d", type);
}
}
*************** remote_insert_watchpoint (CORE_ADDR addr
*** 4373,4379 ****
case PACKET_OK:
return 0;
}
! internal_error ("remote_insert_watchpoint: reached end of function");
}
/* FIXME: This function should be static and a member of the remote
--- 4376,4383 ----
case PACKET_OK:
return 0;
}
! internal_error (__FILE__, __LINE__,
! "remote_insert_watchpoint: reached end of function");
}
/* FIXME: This function should be static and a member of the remote
*************** remote_remove_watchpoint (CORE_ADDR addr
*** 4407,4413 ****
case PACKET_OK:
return 0;
}
! internal_error ("remote_remove_watchpoint: reached end of function");
}
/* FIXME: This function should be static and a member of the remote
--- 4411,4418 ----
case PACKET_OK:
return 0;
}
! internal_error (__FILE__, __LINE__,
! "remote_remove_watchpoint: reached end of function");
}
/* FIXME: This function should be static and a member of the remote
*************** remote_insert_hw_breakpoint (CORE_ADDR a
*** 4443,4449 ****
case PACKET_OK:
return 0;
}
! internal_error ("remote_remove_watchpoint: reached end of function");
}
/* FIXME: This function should be static and a member of the remote
--- 4448,4455 ----
case PACKET_OK:
return 0;
}
! internal_error (__FILE__, __LINE__,
! "remote_remove_watchpoint: reached end of function");
}
/* FIXME: This function should be static and a member of the remote
*************** remote_remove_hw_breakpoint (CORE_ADDR a
*** 4479,4485 ****
case PACKET_OK:
return 0;
}
! internal_error ("remote_remove_watchpoint: reached end of function");
}
/* Some targets are only capable of doing downloads, and afterwards
--- 4485,4492 ----
case PACKET_OK:
return 0;
}
! internal_error (__FILE__, __LINE__,
! "remote_remove_watchpoint: reached end of function");
}
/* Some targets are only capable of doing downloads, and afterwards
*************** static void
*** 5402,5408 ****
remote_async (void (*callback) (enum inferior_event_type event_type, void *context), void *context)
{
if (current_target.to_async_mask_value == 0)
! internal_error ("Calling remote_async when async is masked");
if (callback != NULL)
{
--- 5409,5416 ----
remote_async (void (*callback) (enum inferior_event_type event_type, void *context), void *context)
{
if (current_target.to_async_mask_value == 0)
! internal_error (__FILE__, __LINE__,
! "Calling remote_async when async is masked");
if (callback != NULL)
{
Index: rs6000-nat.c
===================================================================
RCS file: /cvs/src/src/gdb/rs6000-nat.c,v
retrieving revision 1.11
diff -p -r1.11 rs6000-nat.c
*** rs6000-nat.c 2000/11/09 09:49:00 1.11
--- rs6000-nat.c 2000/12/01 11:19:20
*************** set_host_arch (int pid)
*** 927,933 ****
if (!gdbarch_update_p (info))
{
! internal_error ("set_host_arch: failed to select architecture");
}
}
--- 927,934 ----
if (!gdbarch_update_p (info))
{
! internal_error (__FILE__, __LINE__,
! "set_host_arch: failed to select architecture");
}
}
Index: rs6000-tdep.c
===================================================================
RCS file: /cvs/src/src/gdb/rs6000-tdep.c,v
retrieving revision 1.17
diff -p -r1.17 rs6000-tdep.c
*** rs6000-tdep.c 2000/11/18 05:50:11 1.17
--- rs6000-tdep.c 2000/12/01 11:19:25
*************** process_note_abi_tag_sections (bfd *abfd
*** 2039,2046 ****
*os_ident_ptr = ELFOSABI_SOLARIS;
break;
default :
! internal_error (
! "process_note_abi_sections: unknown OS number %d", os_number);
break;
}
}
--- 2039,2047 ----
*os_ident_ptr = ELFOSABI_SOLARIS;
break;
default :
! internal_error (__FILE__, __LINE__,
! "process_note_abi_sections: unknown OS number %d",
! os_number);
break;
}
}
Index: serial.c
===================================================================
RCS file: /cvs/src/src/gdb/serial.c,v
retrieving revision 1.4
diff -p -r1.4 serial.c
*** serial.c 2000/06/08 00:52:56 1.4
--- serial.c 2000/12/01 11:19:28
*************** serial_readchar (serial_t scb, int timeo
*** 347,353 ****
/* FIXME: cagney/1999-10-11: Don't enable this check until the ASYNC
code is finished. */
if (0 && SERIAL_IS_ASYNC_P (scb) && timeout < 0)
! internal_error ("serial_readchar: blocking read in async mode");
ch = scb->ops->readchar (scb, timeout);
if (serial_logfp != NULL)
--- 347,354 ----
/* FIXME: cagney/1999-10-11: Don't enable this check until the ASYNC
code is finished. */
if (0 && SERIAL_IS_ASYNC_P (scb) && timeout < 0)
! internal_error (__FILE__, __LINE__,
! "serial_readchar: blocking read in async mode");
ch = scb->ops->readchar (scb, timeout);
if (serial_logfp != NULL)
*************** deprecated_serial_fd (serial_t scb)
*** 506,512 ****
called? */
if (scb->fd < 0)
{
! internal_error ("serial: FD not valid");
}
return scb->fd; /* sigh */
}
--- 507,514 ----
called? */
if (scb->fd < 0)
{
! internal_error (__FILE__, __LINE__,
! "serial: FD not valid");
}
return scb->fd; /* sigh */
}
Index: sh-tdep.c
===================================================================
RCS file: /cvs/src/src/gdb/sh-tdep.c,v
retrieving revision 1.16
diff -p -r1.16 sh-tdep.c
*** sh-tdep.c 2000/10/31 19:35:03 1.16
--- sh-tdep.c 2000/12/01 11:19:31
*************** static void
*** 1663,1669 ****
sh_do_pseudo_register (int regnum)
{
if (regnum < NUM_REGS || regnum >= NUM_REGS + NUM_PSEUDO_REGS)
! internal_error ("Invalid pseudo register number %d\n", regnum);
else if (regnum >= NUM_REGS &&
regnum < gdbarch_tdep (current_gdbarch)->FV0_REGNUM)
do_dr_register_info (regnum);
--- 1663,1670 ----
sh_do_pseudo_register (int regnum)
{
if (regnum < NUM_REGS || regnum >= NUM_REGS + NUM_PSEUDO_REGS)
! internal_error (__FILE__, __LINE__,
! "Invalid pseudo register number %d\n", regnum);
else if (regnum >= NUM_REGS &&
regnum < gdbarch_tdep (current_gdbarch)->FV0_REGNUM)
do_dr_register_info (regnum);
*************** static void
*** 1734,1740 ****
sh_print_register (int regnum)
{
if (regnum < 0 || regnum >= NUM_REGS + NUM_PSEUDO_REGS)
! internal_error ("Invalid register number %d\n", regnum);
else if (regnum > 0 && regnum < NUM_REGS)
{
--- 1735,1742 ----
sh_print_register (int regnum)
{
if (regnum < 0 || regnum >= NUM_REGS + NUM_PSEUDO_REGS)
! internal_error (__FILE__, __LINE__,
! "Invalid register number %d\n", regnum);
else if (regnum > 0 && regnum < NUM_REGS)
{
Index: solib-svr4.c
===================================================================
RCS file: /cvs/src/src/gdb/solib-svr4.c,v
retrieving revision 1.4
diff -p -r1.4 solib-svr4.c
*** solib-svr4.c 2000/11/21 01:09:54 1.4
--- solib-svr4.c 2000/12/01 11:19:37
*************** default_svr4_fetch_link_map_offsets (voi
*** 209,215 ****
#else
! internal_error ("default_svr4_fetch_link_map_offsets called without HAVE_LINK_H defined.");
return 0;
#endif /* HAVE_LINK_H */
--- 209,216 ----
#else
! internal_error (__FILE__, __LINE__,
! "default_svr4_fetch_link_map_offsets called without HAVE_LINK_H defined.");
return 0;
#endif /* HAVE_LINK_H */
Index: solib.c
===================================================================
RCS file: /cvs/src/src/gdb/solib.c,v
retrieving revision 1.29
diff -p -r1.29 solib.c
*** solib.c 2000/11/27 02:18:44 1.29
--- solib.c 2000/12/01 11:19:39
*************** info_sharedlibrary_command (char *ignore
*** 615,622 ****
}
else
{
! internal_error ("%s:%d: bfd_get_arch_size() returned unknown size %d",
! __FILE__, __LINE__, arch_size);
}
update_solib_list (from_tty, 0);
--- 615,623 ----
}
else
{
! internal_error (__FILE__, __LINE__,
! "bfd_get_arch_size() returned unknown size %d",
! arch_size);
}
update_solib_list (from_tty, 0);
Index: source.c
===================================================================
RCS file: /cvs/src/src/gdb/source.c,v
retrieving revision 1.5
diff -p -r1.5 source.c
*** source.c 2000/12/01 00:41:27 1.5
--- source.c 2000/12/01 11:19:41
*************** select_source_symtab (register struct sy
*** 200,206 ****
{
if (cs_pst->readin)
{
! internal_error ("select_source_symtab: readin pst found and no symtabs.");
}
else
{
--- 200,208 ----
{
if (cs_pst->readin)
{
! internal_error (__FILE__, __LINE__,
! "select_source_symtab: "
! "readin pst found and no symtabs.");
}
else
{
Index: sparc-tdep.c
===================================================================
RCS file: /cvs/src/src/gdb/sparc-tdep.c,v
retrieving revision 1.9
diff -p -r1.9 sparc-tdep.c
*** sparc-tdep.c 2000/10/24 20:05:35 1.9
--- sparc-tdep.c 2000/12/01 11:19:49
*************** setup_arbitrary_frame (int argc, CORE_AD
*** 526,532 ****
frame = create_new_frame (argv[0], 0);
if (!frame)
! internal_error ("create_new_frame returned invalid frame");
frame->extra_info->bottom = argv[1];
frame->pc = FRAME_SAVED_PC (frame);
--- 526,533 ----
frame = create_new_frame (argv[0], 0);
if (!frame)
! internal_error (__FILE__, __LINE__,
! "create_new_frame returned invalid frame");
frame->extra_info->bottom = argv[1];
frame->pc = FRAME_SAVED_PC (frame);
*************** sparc_frame_find_saved_regs (struct fram
*** 1053,1059 ****
CORE_ADDR frame_addr = FRAME_FP (fi);
if (!fi)
! internal_error ("Bad frame info struct in FRAME_FIND_SAVED_REGS");
memset (saved_regs_addr, 0, NUM_REGS * sizeof (CORE_ADDR));
--- 1054,1061 ----
CORE_ADDR frame_addr = FRAME_FP (fi);
if (!fi)
! internal_error (__FILE__, __LINE__,
! "Bad frame info struct in FRAME_FIND_SAVED_REGS");
memset (saved_regs_addr, 0, NUM_REGS * sizeof (CORE_ADDR));
Index: symm-nat.c
===================================================================
RCS file: /cvs/src/src/gdb/symm-nat.c,v
retrieving revision 1.4
diff -p -r1.4 symm-nat.c
*** symm-nat.c 2000/11/02 03:18:49 1.4
--- symm-nat.c 2000/12/01 11:19:51
*************** child_wait (int pid, struct target_waits
*** 531,537 ****
}
break;
case PTS_WATCHPT_HIT:
! internal_error ("PTS_WATCHPT_HIT\n");
break;
default:
/* stopped by signal */
--- 531,538 ----
}
break;
case PTS_WATCHPT_HIT:
! internal_error (__FILE__, __LINE__,
! "PTS_WATCHPT_HIT\n");
break;
default:
/* stopped by signal */
*************** _initialize_symm_nat (void)
*** 844,850 ****
rv = mptrace (XPT_MPDEBUGGER, 0, 0, 0);
if (-1 == rv)
{
! internal_error ("_initialize_symm_nat(): mptrace(XPT_MPDEBUGGER): %s",
safe_strerror (errno));
}
--- 845,852 ----
rv = mptrace (XPT_MPDEBUGGER, 0, 0, 0);
if (-1 == rv)
{
! internal_error (__FILE__, __LINE__,
! "_initialize_symm_nat(): mptrace(XPT_MPDEBUGGER): %s",
safe_strerror (errno));
}
*************** _initialize_symm_nat (void)
*** 862,874 ****
rv = sigaddset (&set, SIGCHLD);
if (-1 == rv)
{
! internal_error ("_initialize_symm_nat(): sigaddset(SIGCHLD): %s",
safe_strerror (errno));
}
rv = sigprocmask (SIG_BLOCK, &set, (sigset_t *) NULL);
if (-1 == rv)
{
! internal_error ("_initialize_symm_nat(): sigprocmask(SIG_BLOCK): %s",
safe_strerror (errno));
}
--- 864,878 ----
rv = sigaddset (&set, SIGCHLD);
if (-1 == rv)
{
! internal_error (__FILE__, __LINE__,
! "_initialize_symm_nat(): sigaddset(SIGCHLD): %s",
safe_strerror (errno));
}
rv = sigprocmask (SIG_BLOCK, &set, (sigset_t *) NULL);
if (-1 == rv)
{
! internal_error (__FILE__, __LINE__,
! "_initialize_symm_nat(): sigprocmask(SIG_BLOCK): %s",
safe_strerror (errno));
}
*************** _initialize_symm_nat (void)
*** 878,884 ****
rv = sigaction (SIGCHLD, &sact, (struct sigaction *) NULL);
if (-1 == rv)
{
! internal_error ("_initialize_symm_nat(): sigaction(SIGCHLD): %s",
safe_strerror (errno));
}
#endif
--- 882,889 ----
rv = sigaction (SIGCHLD, &sact, (struct sigaction *) NULL);
if (-1 == rv)
{
! internal_error (__FILE__, __LINE__,
! "_initialize_symm_nat(): sigaction(SIGCHLD): %s",
safe_strerror (errno));
}
#endif
Index: symtab.h
===================================================================
RCS file: /cvs/src/src/gdb/symtab.h,v
retrieving revision 1.16
diff -p -r1.16 symtab.h
*** symtab.h 2000/11/10 23:02:56 1.16
--- symtab.h 2000/12/01 11:19:55
*************** struct section_offsets
*** 828,835 ****
};
#define ANOFFSET(secoff, whichone) \
! ((whichone == -1) ? \
! (internal_error ("Section index is uninitialized"), -1) : secoff->offsets[whichone])
/* The maximum possible size of a section_offsets table. */
--- 828,836 ----
};
#define ANOFFSET(secoff, whichone) \
! ((whichone == -1) \
! ? (internal_error (__FILE__, __LINE__, "Section index is uninitialized"), -1) \
! : secoff->offsets[whichone])
/* The maximum possible size of a section_offsets table. */
Index: target.h
===================================================================
RCS file: /cvs/src/src/gdb/target.h,v
retrieving revision 1.9
diff -p -r1.9 target.h
*** target.h 2000/11/21 10:26:07 1.9
--- target.h 2000/12/01 11:19:59
*************** extern void push_remote_target (char *na
*** 1391,1397 ****
#ifndef SOFTWARE_SINGLE_STEP_P
#define SOFTWARE_SINGLE_STEP_P 0
#define SOFTWARE_SINGLE_STEP(sig,bp_p) \
! (internal_error ("SOFTWARE_SINGLE_STEP"), 0)
#endif /* SOFTWARE_SINGLE_STEP_P */
/* Blank target vector entries are initialized to target_ignore. */
--- 1391,1397 ----
#ifndef SOFTWARE_SINGLE_STEP_P
#define SOFTWARE_SINGLE_STEP_P 0
#define SOFTWARE_SINGLE_STEP(sig,bp_p) \
! (internal_error (__FILE__, __LINE__, "SOFTWARE_SINGLE_STEP"), 0)
#endif /* SOFTWARE_SINGLE_STEP_P */
/* Blank target vector entries are initialized to target_ignore. */
Index: top.c
===================================================================
RCS file: /cvs/src/src/gdb/top.c,v
retrieving revision 1.23
diff -p -r1.23 top.c
*** top.c 2000/12/01 00:43:47 1.23
--- top.c 2000/12/01 11:20:10
*************** arg_cleanup (void *ignore)
*** 1249,1255 ****
{
struct user_args *oargs = user_args;
if (!user_args)
! internal_error ("Internal error, arg_cleanup called with no user args.\n");
user_args = user_args->next;
free (oargs);
--- 1249,1256 ----
{
struct user_args *oargs = user_args;
if (!user_args)
! internal_error (__FILE__, __LINE__,
! "arg_cleanup called with no user args.\n");
user_args = user_args->next;
free (oargs);
Index: ui-file.c
===================================================================
RCS file: /cvs/src/src/gdb/ui-file.c,v
retrieving revision 1.4
diff -p -r1.4 ui-file.c
*** ui-file.c 2000/07/30 01:48:27 1.4
--- ui-file.c 2000/12/01 11:20:10
*************** void *
*** 149,155 ****
ui_file_data (struct ui_file *file)
{
if (file->magic != &ui_file_magic)
! internal_error ("ui_file_data: bad magic number");
return file->to_data;
}
--- 149,156 ----
ui_file_data (struct ui_file *file)
{
if (file->magic != &ui_file_magic)
! internal_error (__FILE__, __LINE__,
! "ui_file_data: bad magic number");
return file->to_data;
}
*************** mem_file_delete (struct ui_file *file)
*** 314,320 ****
{
struct mem_file *stream = ui_file_data (file);
if (stream->magic != &mem_file_magic)
! internal_error ("mem_file_delete: bad magic number");
if (stream->buffer != NULL)
free (stream->buffer);
free (stream);
--- 315,322 ----
{
struct mem_file *stream = ui_file_data (file);
if (stream->magic != &mem_file_magic)
! internal_error (__FILE__, __LINE__,
! "mem_file_delete: bad magic number");
if (stream->buffer != NULL)
free (stream->buffer);
free (stream);
*************** mem_file_rewind (struct ui_file *file)
*** 331,337 ****
{
struct mem_file *stream = ui_file_data (file);
if (stream->magic != &mem_file_magic)
! internal_error ("mem_file_rewind: bad magic number");
stream->length_buffer = 0;
}
--- 333,340 ----
{
struct mem_file *stream = ui_file_data (file);
if (stream->magic != &mem_file_magic)
! internal_error (__FILE__, __LINE__,
! "mem_file_rewind: bad magic number");
stream->length_buffer = 0;
}
*************** mem_file_put (struct ui_file *file,
*** 342,348 ****
{
struct mem_file *stream = ui_file_data (file);
if (stream->magic != &mem_file_magic)
! internal_error ("mem_file_put: bad magic number");
if (stream->length_buffer > 0)
write (dest, stream->buffer, stream->length_buffer);
}
--- 345,352 ----
{
struct mem_file *stream = ui_file_data (file);
if (stream->magic != &mem_file_magic)
! internal_error (__FILE__, __LINE__,
! "mem_file_put: bad magic number");
if (stream->length_buffer > 0)
write (dest, stream->buffer, stream->length_buffer);
}
*************** mem_file_write (struct ui_file *file,
*** 354,360 ****
{
struct mem_file *stream = ui_file_data (file);
if (stream->magic != &mem_file_magic)
! internal_error ("mem_file_write: bad magic number");
if (stream->buffer == NULL)
{
stream->length_buffer = length_buffer;
--- 358,365 ----
{
struct mem_file *stream = ui_file_data (file);
if (stream->magic != &mem_file_magic)
! internal_error (__FILE__, __LINE__,
! "mem_file_write: bad magic number");
if (stream->buffer == NULL)
{
stream->length_buffer = length_buffer;
*************** stdio_file_delete (struct ui_file *file)
*** 415,421 ****
{
struct stdio_file *stdio = ui_file_data (file);
if (stdio->magic != &stdio_file_magic)
! internal_error ("stdio_file_delete: bad magic number");
if (stdio->close_p)
{
fclose (stdio->file);
--- 420,427 ----
{
struct stdio_file *stdio = ui_file_data (file);
if (stdio->magic != &stdio_file_magic)
! internal_error (__FILE__, __LINE__,
! "stdio_file_delete: bad magic number");
if (stdio->close_p)
{
fclose (stdio->file);
*************** stdio_file_flush (struct ui_file *file)
*** 428,434 ****
{
struct stdio_file *stdio = ui_file_data (file);
if (stdio->magic != &stdio_file_magic)
! internal_error ("stdio_file_flush: bad magic number");
fflush (stdio->file);
}
--- 434,441 ----
{
struct stdio_file *stdio = ui_file_data (file);
if (stdio->magic != &stdio_file_magic)
! internal_error (__FILE__, __LINE__,
! "stdio_file_flush: bad magic number");
fflush (stdio->file);
}
*************** stdio_file_write (struct ui_file *file,
*** 437,443 ****
{
struct stdio_file *stdio = ui_file_data (file);
if (stdio->magic != &stdio_file_magic)
! internal_error ("stdio_file_write: bad magic number");
fwrite (buf, length_buf, 1, stdio->file);
}
--- 444,451 ----
{
struct stdio_file *stdio = ui_file_data (file);
if (stdio->magic != &stdio_file_magic)
! internal_error (__FILE__, __LINE__,
! "stdio_file_write: bad magic number");
fwrite (buf, length_buf, 1, stdio->file);
}
*************** stdio_file_fputs (const char *linebuffer
*** 446,452 ****
{
struct stdio_file *stdio = ui_file_data (file);
if (stdio->magic != &stdio_file_magic)
! internal_error ("stdio_file_fputs: bad magic number");
fputs (linebuffer, stdio->file);
}
--- 454,461 ----
{
struct stdio_file *stdio = ui_file_data (file);
if (stdio->magic != &stdio_file_magic)
! internal_error (__FILE__, __LINE__,
! "stdio_file_fputs: bad magic number");
fputs (linebuffer, stdio->file);
}
*************** stdio_file_isatty (struct ui_file *file)
*** 455,461 ****
{
struct stdio_file *stdio = ui_file_data (file);
if (stdio->magic != &stdio_file_magic)
! internal_error ("stdio_file_isatty: bad magic number");
return (isatty (fileno (stdio->file)));
}
--- 464,471 ----
{
struct stdio_file *stdio = ui_file_data (file);
if (stdio->magic != &stdio_file_magic)
! internal_error (__FILE__, __LINE__,
! "stdio_file_isatty: bad magic number");
return (isatty (fileno (stdio->file)));
}
Index: ui-out.c
===================================================================
RCS file: /cvs/src/src/gdb/ui-out.c,v
retrieving revision 1.5
diff -p -r1.5 ui-out.c
*** ui-out.c 2000/10/31 05:49:55 1.5
--- ui-out.c 2000/12/01 11:20:10
*************** void
*** 190,196 ****
ui_out_table_begin (struct ui_out *uiout, int nbrofcols, char *tblid)
{
if (uiout->table_flag)
! internal_error ("gdb/ui_out.c: tables cannot be nested; table_begin found before \
previous table_end.");
uiout->table_flag = 1;
--- 190,197 ----
ui_out_table_begin (struct ui_out *uiout, int nbrofcols, char *tblid)
{
if (uiout->table_flag)
! internal_error (__FILE__, __LINE__,
! "tables cannot be nested; table_begin found before \
previous table_end.");
uiout->table_flag = 1;
*************** void
*** 208,220 ****
ui_out_table_body (struct ui_out *uiout)
{
if (!uiout->table_flag)
! internal_error ("gdb/ui_out.c: table_body outside a table is not valid; it must be \
after a table_begin and before a table_end.");
if (uiout->body_flag)
! internal_error ("gdb/ui_out.c: extra table_body call not allowed; there must be \
only one table_body after a table_begin and before a table_end.");
if (uiout->headercurr->colno != uiout->table_columns)
! internal_error ("gdb/ui_out.c: number of headers differ from number of table \
columns.");
uiout->body_flag = 1;
--- 209,224 ----
ui_out_table_body (struct ui_out *uiout)
{
if (!uiout->table_flag)
! internal_error (__FILE__, __LINE__,
! "table_body outside a table is not valid; it must be \
after a table_begin and before a table_end.");
if (uiout->body_flag)
! internal_error (__FILE__, __LINE__,
! "extra table_body call not allowed; there must be \
only one table_body after a table_begin and before a table_end.");
if (uiout->headercurr->colno != uiout->table_columns)
! internal_error (__FILE__, __LINE__,
! "number of headers differ from number of table \
columns.");
uiout->body_flag = 1;
*************** void
*** 227,233 ****
ui_out_table_end (struct ui_out *uiout)
{
if (!uiout->table_flag)
! internal_error ("gdb/ui_out.c: misplaced table_end or missing table_begin.");
uiout->body_flag = 0;
uiout->table_flag = 0;
--- 231,238 ----
ui_out_table_end (struct ui_out *uiout)
{
if (!uiout->table_flag)
! internal_error (__FILE__, __LINE__,
! "misplaced table_end or missing table_begin.");
uiout->body_flag = 0;
uiout->table_flag = 0;
*************** ui_out_table_header (struct ui_out *uiou
*** 244,250 ****
char *colhdr)
{
if (!uiout->table_flag || uiout->body_flag)
! internal_error ("ui_out: table header must be specified after table_begin \
and before table_body.");
append_header_to_list (uiout, width, alignment, colhdr);
--- 249,256 ----
char *colhdr)
{
if (!uiout->table_flag || uiout->body_flag)
! internal_error (__FILE__, __LINE__,
! "table header must be specified after table_begin \
and before table_body.");
append_header_to_list (uiout, width, alignment, colhdr);
*************** void
*** 256,265 ****
ui_out_list_begin (struct ui_out *uiout, char *lstid)
{
if (uiout->table_flag && !uiout->body_flag)
! internal_error ("ui_out: table header or table_body expected; lists must be \
specified after table_body.");
if (uiout->list_flag >= 4)
! internal_error ("ui_out: list depth exceeded; only 4 levels of lists can be \
nested.");
uiout->list_flag++;
--- 262,273 ----
ui_out_list_begin (struct ui_out *uiout, char *lstid)
{
if (uiout->table_flag && !uiout->body_flag)
! internal_error (__FILE__, __LINE__,
! "table header or table_body expected; lists must be \
specified after table_body.");
if (uiout->list_flag >= 4)
! internal_error (__FILE__, __LINE__,
! "list depth exceeded; only 4 levels of lists can be \
nested.");
uiout->list_flag++;
*************** void
*** 274,280 ****
ui_out_list_end (struct ui_out *uiout)
{
if (!uiout->list_flag)
! internal_error ("ui_out: misplaced list_end; there is no list to be closed.");
uo_list_end (uiout, uiout->list_flag);
--- 282,289 ----
ui_out_list_end (struct ui_out *uiout)
{
if (!uiout->list_flag)
! internal_error (__FILE__, __LINE__,
! "misplaced list_end; there is no list to be closed.");
uo_list_end (uiout, uiout->list_flag);
*************** verify_field_proper_position (struct ui_
*** 838,847 ****
if (uiout->table_flag)
{
if (!uiout->body_flag)
! internal_error ("ui_out: table_body missing; table fields must be \
specified after table_body and inside a list.");
if (!uiout->list_flag)
! internal_error ("ui_out: list_begin missing; table fields must be \
specified after table_body and inside a list.");
}
}
--- 847,858 ----
if (uiout->table_flag)
{
if (!uiout->body_flag)
! internal_error (__FILE__, __LINE__,
! "table_body missing; table fields must be \
specified after table_body and inside a list.");
if (!uiout->list_flag)
! internal_error (__FILE__, __LINE__,
! "list_begin missing; table fields must be \
specified after table_body and inside a list.");
}
}
*************** verify_field_alignment (struct ui_out *u
*** 861,867 ****
&& get_curr_header (uiout, &colno, width, align, &text))
{
if (fldno != colno)
! internal_error ("gdb/ui-out.c: ui-out internal error in handling headers.");
}
else
{
--- 872,879 ----
&& get_curr_header (uiout, &colno, width, align, &text))
{
if (fldno != colno)
! internal_error (__FILE__, __LINE__,
! "ui-out internal error in handling headers.");
}
else
{
Index: utils.c
===================================================================
RCS file: /cvs/src/src/gdb/utils.c,v
retrieving revision 1.23
diff -p -r1.23 utils.c
*** utils.c 2000/11/20 02:06:19 1.23
--- utils.c 2000/12/01 11:20:22
*************** free_current_contents (void *ptr)
*** 386,392 ****
{
void **location = ptr;
if (location == NULL)
! internal_error ("free_current_contents: NULL pointer");
if (*location != NULL)
{
free (*location);
--- 386,393 ----
{
void **location = ptr;
if (location == NULL)
! internal_error (__FILE__, __LINE__,
! "free_current_contents: NULL pointer");
if (*location != NULL)
{
free (*location);
*************** error_init (void)
*** 667,673 ****
want to continue, dump core, or just exit. */
NORETURN void
! internal_verror (const char *fmt, va_list ap)
{
static char msg[] = "Internal GDB error: recursive internal error.\n";
static int dejavu = 0;
--- 668,675 ----
want to continue, dump core, or just exit. */
NORETURN void
! internal_verror (const char *file, int line,
! const char *fmt, va_list ap)
{
static char msg[] = "Internal GDB error: recursive internal error.\n";
static int dejavu = 0;
*************** internal_verror (const char *fmt, va_lis
*** 692,698 ****
/* Try to get the message out */
target_terminal_ours ();
! fputs_unfiltered ("gdb-internal-error: ", gdb_stderr);
vfprintf_unfiltered (gdb_stderr, fmt, ap);
fputs_unfiltered ("\n", gdb_stderr);
--- 694,700 ----
/* Try to get the message out */
target_terminal_ours ();
! fprintf_unfiltered (gdb_stderr, "%s:%d: gdb-internal-error: ", file, line);
vfprintf_unfiltered (gdb_stderr, fmt, ap);
fputs_unfiltered ("\n", gdb_stderr);
*************** Create a core file containing the curren
*** 728,739 ****
}
NORETURN void
! internal_error (char *string, ...)
{
va_list ap;
va_start (ap, string);
! internal_verror (string, ap);
va_end (ap);
}
--- 730,741 ----
}
NORETURN void
! internal_error (const char *file, int line, const char *string, ...)
{
va_list ap;
va_start (ap, string);
! internal_verror (file, line, string, ap);
va_end (ap);
}
*************** nomem (long size)
*** 999,1009 ****
{
if (size > 0)
{
! internal_error ("virtual memory exhausted: can't allocate %ld bytes.", size);
}
else
{
! internal_error ("virtual memory exhausted.");
}
}
--- 1001,1013 ----
{
if (size > 0)
{
! internal_error (__FILE__, __LINE__,
! "virtual memory exhausted: can't allocate %ld bytes.", size);
}
else
{
! internal_error (__FILE__, __LINE__,
! "virtual memory exhausted.");
}
}
*************** xvasprintf (char **ret, const char *form
*** 1098,1110 ****
/* NULL could be returned due to a memory allocation problem; a
badly format string; or something else. */
if ((*ret) == NULL)
! internal_error ("%s:%d: vasprintf returned NULL buffer (errno %d)",
! __FILE__, __LINE__, errno);
/* A negative status with a non-NULL buffer shouldn't never
happen. But to be sure. */
if (status < 0)
! internal_error ("%s:%d: vasprintf call failed (errno %d)",
! __FILE__, __LINE__, errno);
}
--- 1102,1116 ----
/* NULL could be returned due to a memory allocation problem; a
badly format string; or something else. */
if ((*ret) == NULL)
! internal_error (__FILE__, __LINE__,
! "vasprintf returned NULL buffer (errno %d)",
! errno);
/* A negative status with a non-NULL buffer shouldn't never
happen. But to be sure. */
if (status < 0)
! internal_error (__FILE__, __LINE__,
! "vasprintf call failed (errno %d)",
! errno);
}
*************** CORE_ADDR
*** 2869,2875 ****
host_pointer_to_address (void *ptr)
{
if (sizeof (ptr) != TYPE_LENGTH (builtin_type_ptr))
! internal_error ("core_addr_to_void_ptr: bad cast");
return POINTER_TO_ADDRESS (builtin_type_ptr, &ptr);
}
--- 2875,2882 ----
host_pointer_to_address (void *ptr)
{
if (sizeof (ptr) != TYPE_LENGTH (builtin_type_ptr))
! internal_error (__FILE__, __LINE__,
! "core_addr_to_void_ptr: bad cast");
return POINTER_TO_ADDRESS (builtin_type_ptr, &ptr);
}
*************** address_to_host_pointer (CORE_ADDR addr)
*** 2878,2884 ****
{
void *ptr;
if (sizeof (ptr) != TYPE_LENGTH (builtin_type_ptr))
! internal_error ("core_addr_to_void_ptr: bad cast");
ADDRESS_TO_POINTER (builtin_type_ptr, &ptr, addr);
return ptr;
}
--- 2885,2892 ----
{
void *ptr;
if (sizeof (ptr) != TYPE_LENGTH (builtin_type_ptr))
! internal_error (__FILE__, __LINE__,
! "core_addr_to_void_ptr: bad cast");
ADDRESS_TO_POINTER (builtin_type_ptr, &ptr, addr);
return ptr;
}
Index: v850-tdep.c
===================================================================
RCS file: /cvs/src/src/gdb/v850-tdep.c,v
retrieving revision 1.6
diff -p -r1.6 v850-tdep.c
*** v850-tdep.c 2000/11/06 04:53:14 1.6
--- v850-tdep.c 2000/12/01 11:20:24
*************** v850_target_architecture_hook (const bfd
*** 848,854 ****
}
}
! internal_error ("Architecture `%s' unrecognized", ap->printable_name);
}
void
--- 848,855 ----
}
}
! internal_error (__FILE__, __LINE__,
! "Architecture `%s' unrecognized", ap->printable_name);
}
void
Index: mi/ChangeLog
===================================================================
RCS file: /cvs/src/src/gdb/mi/ChangeLog,v
retrieving revision 1.5
diff -p -r1.5 ChangeLog
*** ChangeLog 2000/11/20 02:06:19 1.5
--- ChangeLog 2000/12/01 11:20:29
***************
*** 1,3 ****
--- 1,16 ----
+ Fri Dec 1 22:02:45 2000 Andrew Cagney <cagney@b1.cygnus.com>
+
+ * mi-getopt.c (mi_getopt):
+
+ * mi-cmd-break.c (mi_cmd_break_insert):
+
+ * mi-console.c (mi_console_file_delete):
+ (mi_console_file_fputs):
+ (mi_console_raw_packet):
+ (mi_console_file_flush):
+
+ * mi-cmds.c (build_table):
+
Fri Nov 17 16:07:23 2000 Andrew Cagney <cagney@b1.cygnus.com>
* mi-main.c: Replace asprintf with xasprintf.
Index: mi/mi-cmd-break.c
===================================================================
RCS file: /cvs/src/src/gdb/mi/mi-cmd-break.c,v
retrieving revision 1.3
diff -p -r1.3 mi-cmd-break.c
*** mi-cmd-break.c 2000/05/16 05:07:53 1.3
--- mi-cmd-break.c 2000/12/01 11:20:29
*************** mi_cmd_break_insert (char *command, char
*** 161,167 ****
break;
#endif
default:
! internal_error ("mi_cmd_break_insert: Bad switch.");
}
set_gdb_event_hooks (old_hooks);
--- 161,168 ----
break;
#endif
default:
! internal_error (__FILE__, __LINE__,
! "mi_cmd_break_insert: Bad switch.");
}
set_gdb_event_hooks (old_hooks);
Index: mi/mi-cmds.c
===================================================================
RCS file: /cvs/src/src/gdb/mi/mi-cmds.c,v
retrieving revision 1.5
diff -p -r1.5 mi-cmds.c
*** mi-cmds.c 2000/07/30 01:48:28 1.5
--- mi-cmds.c 2000/12/01 11:20:29
*************** build_table (struct mi_cmd *commands)
*** 234,240 ****
{
struct mi_cmd **entry = lookup_table (command->name);
if (*entry)
! internal_error ("command `%s' appears to be duplicated",
command->name);
*entry = command;
if (0)
--- 234,241 ----
{
struct mi_cmd **entry = lookup_table (command->name);
if (*entry)
! internal_error (__FILE__, __LINE__,
! "command `%s' appears to be duplicated",
command->name);
*entry = command;
if (0)
Index: mi/mi-console.c
===================================================================
RCS file: /cvs/src/src/gdb/mi/mi-console.c,v
retrieving revision 1.3
diff -p -r1.3 mi-console.c
*** mi-console.c 2000/05/16 05:07:53 1.3
--- mi-console.c 2000/12/01 11:20:29
*************** mi_console_file_delete (struct ui_file *
*** 65,71 ****
{
struct mi_console_file *mi_console = ui_file_data (file);
if (mi_console->magic != &mi_console_file_magic)
! internal_error ("mi_console_file_delete: bad magic number");
free (mi_console);
}
--- 65,72 ----
{
struct mi_console_file *mi_console = ui_file_data (file);
if (mi_console->magic != &mi_console_file_magic)
! internal_error (__FILE__, __LINE__,
! "mi_console_file_delete: bad magic number");
free (mi_console);
}
*************** mi_console_file_fputs (const char *buf,
*** 75,81 ****
{
struct mi_console_file *mi_console = ui_file_data (file);
if (mi_console->magic != &mi_console_file_magic)
! internal_error ("mi_console_file_fputs: bad magic number");
/* Append the text to our internal buffer */
fputs_unfiltered (buf, mi_console->buffer);
/* Flush when an embedded \n */
--- 76,83 ----
{
struct mi_console_file *mi_console = ui_file_data (file);
if (mi_console->magic != &mi_console_file_magic)
! internal_error (__FILE__, __LINE__,
! "mi_console_file_fputs: bad magic number");
/* Append the text to our internal buffer */
fputs_unfiltered (buf, mi_console->buffer);
/* Flush when an embedded \n */
*************** mi_console_raw_packet (void *data,
*** 91,97 ****
{
struct mi_console_file *mi_console = data;
if (mi_console->magic != &mi_console_file_magic)
! internal_error ("mi_console_file_transform: bad magic number");
if (length_buf > 0)
{
--- 93,100 ----
{
struct mi_console_file *mi_console = data;
if (mi_console->magic != &mi_console_file_magic)
! internal_error (__FILE__, __LINE__,
! "mi_console_file_transform: bad magic number");
if (length_buf > 0)
{
*************** mi_console_file_flush (struct ui_file *f
*** 108,114 ****
{
struct mi_console_file *mi_console = ui_file_data (file);
if (mi_console->magic != &mi_console_file_magic)
! internal_error ("mi_console_file_flush: bad magic number");
ui_file_put (mi_console->buffer, mi_console_raw_packet, mi_console);
ui_file_rewind (mi_console->buffer);
}
--- 111,118 ----
{
struct mi_console_file *mi_console = ui_file_data (file);
if (mi_console->magic != &mi_console_file_magic)
! internal_error (__FILE__, __LINE__,
! "mi_console_file_flush: bad magic number");
ui_file_put (mi_console->buffer, mi_console_raw_packet, mi_console);
ui_file_rewind (mi_console->buffer);
}
Index: mi/mi-getopt.c
===================================================================
RCS file: /cvs/src/src/gdb/mi/mi-getopt.c,v
retrieving revision 1.3
diff -p -r1.3 mi-getopt.c
*** mi-getopt.c 2000/05/16 05:07:53 1.3
--- mi-getopt.c 2000/12/01 11:20:31
*************** mi_getopt (const char *prefix,
*** 33,39 ****
struct mi_opt *opt;
/* We assume that argv/argc are ok. */
if (*optind > argc || *optind < 0)
! internal_error ("mi_getopt_long: optind out of bounds");
if (*optind == argc)
return -1;
arg = argv[*optind];
--- 33,40 ----
struct mi_opt *opt;
/* We assume that argv/argc are ok. */
if (*optind > argc || *optind < 0)
! internal_error (__FILE__, __LINE__,
! "mi_getopt_long: optind out of bounds");
if (*optind == argc)
return -1;
arg = argv[*optind];
Index: tui/ChangeLog
===================================================================
RCS file: /cvs/src/src/gdb/tui/ChangeLog,v
retrieving revision 1.8
diff -p -r1.8 ChangeLog
*** ChangeLog 2000/06/22 07:16:19 1.8
--- ChangeLog 2000/12/01 11:20:33
***************
*** 1,3 ****
--- 1,13 ----
+ Fri Dec 1 21:49:51 2000 Andrew Cagney <cagney@b1.cygnus.com>
+
+ * tui-file.c (tui_file_delete):
+ (tui_file_isatty):
+ (tui_file_rewind):
+ (tui_file_put):
+ (tui_file_get_strbuf):
+ (tui_file_adjust_strbuf):
+ (tui_file_flush):
+
2000-06-22 Kevin Buettner <kevinb@redhat.com>
* tuiSourceWin.h: Eliminate use of PARAMS from this file.
Index: tui/tui-file.c
===================================================================
RCS file: /cvs/src/src/gdb/tui/tui-file.c,v
retrieving revision 1.4
diff -p -r1.4 tui-file.c
*** tui-file.c 2000/07/30 01:48:28 1.4
--- tui-file.c 2000/12/01 11:20:33
*************** tui_file_delete (struct ui_file *file)
*** 85,91 ****
{
struct tui_stream *tmpstream = ui_file_data (file);
if (tmpstream->ts_magic != &tui_file_magic)
! internal_error ("tui_file_delete: bad magic number");
if ((tmpstream->ts_streamtype == astring) &&
(tmpstream->ts_strbuf != NULL))
{
--- 85,92 ----
{
struct tui_stream *tmpstream = ui_file_data (file);
if (tmpstream->ts_magic != &tui_file_magic)
! internal_error (__FILE__, __LINE__,
! "tui_file_delete: bad magic number");
if ((tmpstream->ts_streamtype == astring) &&
(tmpstream->ts_strbuf != NULL))
{
*************** tui_file_isatty (struct ui_file *file)
*** 131,137 ****
{
struct tui_stream *stream = ui_file_data (file);
if (stream->ts_magic != &tui_file_magic)
! internal_error ("tui_file_isatty: bad magic number");
if (stream->ts_streamtype == afile)
return (isatty (fileno (stream->ts_filestream)));
else
--- 132,139 ----
{
struct tui_stream *stream = ui_file_data (file);
if (stream->ts_magic != &tui_file_magic)
! internal_error (__FILE__, __LINE__,
! "tui_file_isatty: bad magic number");
if (stream->ts_streamtype == afile)
return (isatty (fileno (stream->ts_filestream)));
else
*************** tui_file_rewind (struct ui_file *file)
*** 143,149 ****
{
struct tui_stream *stream = ui_file_data (file);
if (stream->ts_magic != &tui_file_magic)
! internal_error ("tui_file_rewind: bad magic number");
stream->ts_strbuf[0] = '\0';
}
--- 145,152 ----
{
struct tui_stream *stream = ui_file_data (file);
if (stream->ts_magic != &tui_file_magic)
! internal_error (__FILE__, __LINE__,
! "tui_file_rewind: bad magic number");
stream->ts_strbuf[0] = '\0';
}
*************** tui_file_put (struct ui_file *file,
*** 154,160 ****
{
struct tui_stream *stream = ui_file_data (file);
if (stream->ts_magic != &tui_file_magic)
! internal_error ("tui_file_put: bad magic number");
if (stream->ts_streamtype == astring)
write (dest, stream->ts_strbuf, strlen (stream->ts_strbuf));
}
--- 157,164 ----
{
struct tui_stream *stream = ui_file_data (file);
if (stream->ts_magic != &tui_file_magic)
! internal_error (__FILE__, __LINE__,
! "tui_file_put: bad magic number");
if (stream->ts_streamtype == astring)
write (dest, stream->ts_strbuf, strlen (stream->ts_strbuf));
}
*************** tui_file_get_strbuf (struct ui_file *fil
*** 240,246 ****
{
struct tui_stream *stream = ui_file_data (file);
if (stream->ts_magic != &tui_file_magic)
! internal_error ("tui_file_get_strbuf: bad magic number");
return (stream->ts_strbuf);
}
--- 244,251 ----
{
struct tui_stream *stream = ui_file_data (file);
if (stream->ts_magic != &tui_file_magic)
! internal_error (__FILE__, __LINE__,
! "tui_file_get_strbuf: bad magic number");
return (stream->ts_strbuf);
}
*************** tui_file_adjust_strbuf (int n, struct ui
*** 252,258 ****
struct tui_stream *stream = ui_file_data (file);
int non_null_chars;
if (stream->ts_magic != &tui_file_magic)
! internal_error ("tui_file_adjust_strbuf: bad magic number");
if (stream->ts_streamtype != astring)
return;
--- 257,264 ----
struct tui_stream *stream = ui_file_data (file);
int non_null_chars;
if (stream->ts_magic != &tui_file_magic)
! internal_error (__FILE__, __LINE__,
! "tui_file_adjust_strbuf: bad magic number");
if (stream->ts_streamtype != astring)
return;
*************** tui_file_flush (struct ui_file *file)
*** 278,284 ****
{
struct tui_stream *stream = ui_file_data (file);
if (stream->ts_magic != &tui_file_magic)
! internal_error ("tui_file_flush: bad magic number");
/* NOTE: cagney/1999-10-12: If we've been linked with code that uses
fputs_unfiltered_hook then we assume that it doesn't need to know
--- 284,291 ----
{
struct tui_stream *stream = ui_file_data (file);
if (stream->ts_magic != &tui_file_magic)
! internal_error (__FILE__, __LINE__,
! "tui_file_flush: bad magic number");
/* NOTE: cagney/1999-10-12: If we've been linked with code that uses
fputs_unfiltered_hook then we assume that it doesn't need to know