From 1b831c9308be215e465dac7079ba18aca8d2e68f Mon Sep 17 00:00:00 2001 From: Andrew Cagney Date: Thu, 2 Jan 2003 14:27:27 +0000 Subject: 2003-01-02 Andrew Cagney * valarith.c (value_binop): Delete obsolete code and comments. * configure.host: Ditto. * buildsym.h (make_blockvector): Ditto. * buildsym.c (make_blockvector): Ditto. * defs.h (enum language): Ditto. (chill_demangle): Ditto. * elfread.c (elf_symtab_read): Ditto. * dwarfread.c (CHILL_PRODUCER): Ditto. (set_cu_language): Ditto. (handle_producer): Ditto. * expprint.c (print_subexp): Ditto. * gdbtypes.c (chill_varying_type): Ditto. * gdbtypes.h (builtin_type_chill_bool): Ditto. (builtin_type_chill_char, builtin_type_chill_long): Ditto. (builtin_type_chill_ulong, builtin_type_chill_real): Ditto. (chill_varying_type): Ditto. * language.h (_LANG_chill): Ditto. * language.c (binop_result_type, integral_type): Ditto. (character_type, string_type, structured_type): Ditto. (lang_bool_type, binop_type_check): Ditto. * stabsread.h (os9k_stabs): Ditto. * stabsread.c (os9k_type_vector, dbx_lookup_type): Ditto. (define_symbol, read_type, read_struct_fields): Ditto. (read_array_type, read_enum_type, read_huge_number): Ditto. (read_range_type, start_stabs): Ditto. * symfile.c (init_filename_language_table): Ditto. (add_psymbol_with_dem_name_to_list): Ditto. * symtab.c (symbol_init_language_specific): Ditto. (symbol_init_demangled_name, symbol_demangled_name): Ditto. * symtab.h (struct general_symbol_info): Ditto. (SYMBOL_CHILL_DEMANGLED_NAME): Ditto. * typeprint.c (typedef_print): Ditto. * utils.c (fprintf_symbol_filtered): Ditto. * valops.c (value_cast, search_struct_field, value_slice): Delete obsolete code. (varying_to_slice): Delete function. * value.h (COERCE_VARYING_ARRAY): Delete obsolete macro contents. (varying_to_slice): Delete declaration. * MAINTAINERS: Update. --- gdb/ChangeLog | 42 ++++++++++++++++ gdb/MAINTAINERS | 10 ++-- gdb/Makefile.in | 46 ------------------ gdb/NEWS | 20 ++++++++ gdb/buildsym.c | 4 -- gdb/buildsym.h | 6 --- gdb/configure.host | 13 ----- gdb/configure.tgt | 28 ----------- gdb/defs.h | 5 -- gdb/dwarfread.c | 8 ---- gdb/elfread.c | 8 ++-- gdb/eval.c | 11 +++-- gdb/expprint.c | 29 +++--------- gdb/expression.h | 28 +++++------ gdb/gdbtypes.c | 18 ------- gdb/gdbtypes.h | 20 ++------ gdb/language.c | 19 +------- gdb/language.h | 1 - gdb/stabsread.c | 137 ++--------------------------------------------------- gdb/stabsread.h | 4 -- gdb/symfile.c | 7 --- gdb/symtab.c | 27 ----------- gdb/symtab.h | 10 ---- gdb/typeprint.c | 11 ----- gdb/utils.c | 5 -- gdb/valarith.c | 16 +------ gdb/valops.c | 80 +++++-------------------------- gdb/value.h | 6 +-- 28 files changed, 123 insertions(+), 496 deletions(-) (limited to 'gdb') diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 57aff39..f34ef80 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,45 @@ +2003-01-02 Andrew Cagney + + * valarith.c (value_binop): Delete obsolete code and comments. + * configure.host: Ditto. + * buildsym.h (make_blockvector): Ditto. + * buildsym.c (make_blockvector): Ditto. + * defs.h (enum language): Ditto. + (chill_demangle): Ditto. + * elfread.c (elf_symtab_read): Ditto. + * dwarfread.c (CHILL_PRODUCER): Ditto. + (set_cu_language): Ditto. + (handle_producer): Ditto. + * expprint.c (print_subexp): Ditto. + * gdbtypes.c (chill_varying_type): Ditto. + * gdbtypes.h (builtin_type_chill_bool): Ditto. + (builtin_type_chill_char, builtin_type_chill_long): Ditto. + (builtin_type_chill_ulong, builtin_type_chill_real): Ditto. + (chill_varying_type): Ditto. + * language.h (_LANG_chill): Ditto. + * language.c (binop_result_type, integral_type): Ditto. + (character_type, string_type, structured_type): Ditto. + (lang_bool_type, binop_type_check): Ditto. + * stabsread.h (os9k_stabs): Ditto. + * stabsread.c (os9k_type_vector, dbx_lookup_type): Ditto. + (define_symbol, read_type, read_struct_fields): Ditto. + (read_array_type, read_enum_type, read_huge_number): Ditto. + (read_range_type, start_stabs): Ditto. + * symfile.c (init_filename_language_table): Ditto. + (add_psymbol_with_dem_name_to_list): Ditto. + * symtab.c (symbol_init_language_specific): Ditto. + (symbol_init_demangled_name, symbol_demangled_name): Ditto. + * symtab.h (struct general_symbol_info): Ditto. + (SYMBOL_CHILL_DEMANGLED_NAME): Ditto. + * typeprint.c (typedef_print): Ditto. + * utils.c (fprintf_symbol_filtered): Ditto. + * valops.c (value_cast, search_struct_field, value_slice): Delete + obsolete code. + (varying_to_slice): Delete function. + * value.h (COERCE_VARYING_ARRAY): Delete obsolete macro contents. + (varying_to_slice): Delete declaration. + * MAINTAINERS: Update. + 2003-01-02 Mark Kettenis * configure.in: Reorganize "Checks for library functions section" diff --git a/gdb/MAINTAINERS b/gdb/MAINTAINERS index 257b718..851d609 100644 --- a/gdb/MAINTAINERS +++ b/gdb/MAINTAINERS @@ -60,7 +60,7 @@ maintainer works with the native maintainer when resolving API issues. alpha --target=alpha-elf ,-Werror Maintenance only - arc (--target=arc-elf OBSOLETE) + arc Deleted. arm --target=arm-elf , Fernando Nasser fnasser@redhat.com @@ -77,9 +77,9 @@ maintainer works with the native maintainer when resolving API issues. d10v --target=d10v-elf ,-Werror Maintenance only - d30v (--target=d30v-elf OBSOLETE) + d30v Deleted. - fr30 (--target=fr30-elf OBSOLETE) + fr30 Deleted. h8300 --target=h8300hms ,-Werror Maintenance only @@ -91,7 +91,7 @@ maintainer works with the native maintainer when resolving API issues. i386 --target=i386-elf ,-Werror Mark Kettenis kettenis@gnu.org - i960 (--target=i960-coff OBSOLETE) + i960 Deleted. ia64 --target=ia64-linux-gnu ,-Werror (--target=ia64-elf broken) @@ -107,7 +107,7 @@ maintainer works with the native maintainer when resolving API issues. m68k --target=m68k-elf ,-Werror Maintenance only - m88k (--target=m88k OBSOLETE) + m88k Deleted. mcore --target=mcore-elf ,-Werror Maintenance only diff --git a/gdb/Makefile.in b/gdb/Makefile.in index ec280bb..8e6ef9c 100644 --- a/gdb/Makefile.in +++ b/gdb/Makefile.in @@ -482,26 +482,6 @@ CXX_FOR_TARGET = ` \ fi; \ fi` -# OBSOLETE CHILLFLAGS = $(CFLAGS) -# OBSOLETE CHILL = gcc -# OBSOLETE CHILL_FOR_TARGET = ` \ -# OBSOLETE if [ -f $${rootme}/../gcc/Makefile ] ; then \ -# OBSOLETE echo $${rootme}/../gcc/xgcc -B$${rootme}/../gcc/ -L$${rootme}/../gcc/ch/runtime/; \ -# OBSOLETE else \ -# OBSOLETE if [ "$(host_canonical)" = "$(target_canonical)" ] ; then \ -# OBSOLETE echo $(CC); \ -# OBSOLETE else \ -# OBSOLETE t='$(program_transform_name)'; echo gcc | sed -e '' $$t; \ -# OBSOLETE fi; \ -# OBSOLETE fi` -# OBSOLETE CHILL_LIB = ` \ -# OBSOLETE if [ -f $${rootme}/../gcc/ch/runtime/libchill.a ] ; then \ -# OBSOLETE echo $${rootme}/../gcc/ch/runtime/chillrt0.o \ -# OBSOLETE $${rootme}/../gcc/ch/runtime/libchill.a; \ -# OBSOLETE else \ -# OBSOLETE echo -lchill; \ -# OBSOLETE fi` - # The use of $$(x_FOR_TARGET) reduces the command line length by not # duplicating the lengthy definition. TARGET_FLAGS_TO_PASS = \ @@ -1360,11 +1340,6 @@ force_update: # will remove them. MAKEOVERRIDES= -## This is ugly, but I don't want GNU make to put these variables in -## the environment. Older makes will see this as a set of targets -## with no dependencies and no actions. -# OBSOLETE unexport CHILLFLAGS CHILL_LIB CHILL_FOR_TARGET : - ALLDEPFILES = a68v-nat.c \ aix-thread.c \ alpha-nat.c alphabsd-nat.c \ @@ -1539,7 +1514,6 @@ alphanbsd-tdep.o: alphanbsd-tdep.c $(defs_h) $(gdbcore_h) $(frame_h) \ $(alphabsd_tdep_h) $(nbsd_tdep_h) annotate.o: annotate.c $(defs_h) $(annotate_h) $(value_h) $(target_h) \ $(gdbtypes_h) $(breakpoint_h) -# OBSOLETE arc-tdep.o: arc-tdep.c arch-utils.o: arch-utils.c $(defs_h) $(arch_utils_h) $(gdbcmd_h) \ $(inferior_h) $(symtab_h) $(frame_h) $(inferior_h) $(breakpoint_h) \ $(gdb_wait_h) $(gdbcore_h) $(gdbcmd_h) $(target_h) $(annotate_h) \ @@ -1593,10 +1567,6 @@ c-typeprint.o: c-typeprint.c $(defs_h) $(gdb_obstack_h) $(bfd_h) $(symtab_h) \ c-valprint.o: c-valprint.c $(defs_h) $(gdb_string_h) $(symtab_h) \ $(gdbtypes_h) $(expression_h) $(value_h) $(valprint_h) $(language_h) \ $(c_lang_h) $(cp_abi_h) -# OBSOLETE ch-exp.o: ch-exp.c -# OBSOLETE ch-lang.o: ch-lang.c -# OBSOLETE ch-typeprint.o: ch-typeprint.c -# OBSOLETE ch-valprint.o: ch-valprint.c charset.o: charset.c $(defs_h) $(charset_h) $(gdbcmd_h) gdb_assert.h cli-out.o: cli-out.c $(defs_h) $(ui_out_h) $(cli_out_h) $(gdb_string_h) \ $(gdb_assert_h) @@ -1636,13 +1606,11 @@ cris-tdep.o: cris-tdep.c $(defs_h) $(frame_h) $(symtab_h) $(inferior_h) \ $(gdbtypes_h) $(gdbcore_h) $(gdbcmd_h) $(target_h) $(value_h) \ $(opcode_cris_h) $(arch_utils_h) $(regcache_h) $(symfile_h) \ $(solib_h) $(solib_svr4_h) $(gdb_string_h) -# OBSOLETE cxux-nat.o: cxux-nat.c d10v-tdep.o: d10v-tdep.c $(defs_h) $(frame_h) $(symtab_h) $(gdbtypes_h) \ $(gdbcmd_h) $(gdbcore_h) $(gdb_string_h) $(value_h) $(inferior_h) \ $(dis_asm_h) $(symfile_h) $(objfiles_h) $(language_h) \ $(arch_utils_h) $(regcache_h) $(floatformat_h) $(gdb_sim_d10v_h) \ $(sim_regno_h) -# OBSOLETE d30v-tdep.o: d30v-tdep.c dbug-rom.o: dbug-rom.c $(defs_h) $(gdbcore_h) $(target_h) $(monitor_h) \ $(serial_h) $(regcache_h) $(m68k_tdep_h) dbxread.o: dbxread.c $(defs_h) $(gdb_string_h) $(gdb_obstack_h) \ @@ -1663,7 +1631,6 @@ doublest.o: doublest.c $(defs_h) $(doublest_h) $(floatformat_h) \ $(gdb_assert_h) $(gdb_string_h) $(gdbtypes_h) dpx2-nat.o: dpx2-nat.c $(defs_h) $(gdbcore_h) $(gdb_string_h) dsrec.o: dsrec.c $(defs_h) $(serial_h) $(srec_h) -# OBSOLETE dstread.o: dstread.c dummy-frame.o: dummy-frame.c $(defs_h) $(dummy_frame_h) $(regcache_h) \ $(frame_h) $(inferior_h) $(gdb_assert_h) dve3900-rom.o: dve3900-rom.c $(defs_h) $(gdbcore_h) $(target_h) $(monitor_h) \ @@ -1714,7 +1681,6 @@ findvar.o: findvar.c $(defs_h) $(symtab_h) $(gdbtypes_h) $(frame_h) \ fork-child.o: fork-child.c $(defs_h) $(gdb_string_h) $(frame_h) \ $(inferior_h) $(target_h) $(gdb_wait_h) $(gdb_vfork_h) $(gdbcore_h) \ $(terminal_h) $(gdbthread_h) $(command_h) -# OBSOLETE fr30-tdep.o: fr30-tdep.c frame.o: frame.c $(defs_h) $(frame_h) $(target_h) $(value_h) $(inferior_h) \ $(regcache_h) $(gdb_assert_h) $(gdb_string_h) $(builtin_regs_h) \ $(gdb_obstack_h) $(dummy_frame_h) $(gdbcore_h) $(annotate_h) \ @@ -1787,7 +1753,6 @@ i386-tdep.o: i386-tdep.c $(defs_h) $(gdb_string_h) $(frame_h) $(inferior_h) \ $(symtab_h) $(gdbcmd_h) $(command_h) $(arch_utils_h) $(regcache_h) \ $(doublest_h) $(value_h) $(gdb_assert_h) $(i386_tdep_h) \ $(i387_tdep_h) -# OBSOLETE i386aix-nat.o: i386aix-nat.c i386b-nat.o: i386b-nat.c $(defs_h) i386bsd-nat.o: i386bsd-nat.c $(defs_h) $(inferior_h) $(regcache_h) \ $(gdb_assert_h) $(gregset_h) $(i386_tdep_h) $(i387_tdep_h) @@ -1800,8 +1765,6 @@ i386gnu-nat.o: i386gnu-nat.c $(defs_h) $(inferior_h) $(floatformat_h) \ i386gnu-tdep.o: i386gnu-tdep.c $(defs_h) $(i386_tdep_h) i386ly-tdep.o: i386ly-tdep.c $(defs_h) $(gdbcore_h) $(inferior_h) \ $(regcache_h) $(target_h) $(i386_tdep_h) -# OBSOLETE i386m3-nat.o: i386m3-nat.c -# OBSOLETE i386mach-nat.o: i386mach-nat.c i386nbsd-tdep.o: i386nbsd-tdep.c $(defs_h) $(gdbtypes_h) $(gdbcore_h) \ $(regcache_h) $(arch_utils_h) $(i386_tdep_h) $(i387_tdep_h) \ $(nbsd_tdep_h) $(solib_svr4_h) @@ -1815,7 +1778,6 @@ i386v4-nat.o: i386v4-nat.c $(defs_h) $(value_h) $(inferior_h) $(regcache_h) \ i387-tdep.o: i387-tdep.c $(defs_h) $(frame_h) $(inferior_h) $(language_h) \ $(value_h) $(gdbcore_h) $(floatformat_h) $(regcache_h) \ $(gdb_assert_h) $(gdb_string_h) $(doublest_h) $(i386_tdep_h) -# OBSOLETE i960-tdep.o: i960-tdep.c ia64-aix-nat.o: ia64-aix-nat.c $(defs_h) $(inferior_h) $(target_h) \ $(gdbcore_h) $(regcache_h) $(symtab_h) $(bfd_h) $(symfile_h) \ $(objfiles_h) $(gdb_stat_h) @@ -1910,8 +1872,6 @@ m68klinux-tdep.o: m68klinux-tdep.c $(defs_h) $(gdbcore_h) $(frame_h) \ m68knbsd-nat.o: m68knbsd-nat.c $(defs_h) $(inferior_h) $(gdbcore_h) \ $(regcache_h) m68knbsd-tdep.o: m68knbsd-tdep.c $(defs_h) $(gdbtypes_h) $(regcache_h) -# OBSOLETE m88k-nat.o: m88k-nat.c -# OBSOLETE m88k-tdep.o: m88k-tdep.c macrocmd.o: macrocmd.c $(defs_h) $(macrotab_h) $(macroexp_h) $(macroscope_h) \ $(command_h) $(gdbcmd_h) macroexp.o: macroexp.c $(defs_h) $(gdb_obstack_h) $(bcache_h) $(macrotab_h) \ @@ -2002,7 +1962,6 @@ ocd.o: ocd.c $(defs_h) $(gdbcore_h) $(gdb_string_h) $(frame_h) $(inferior_h) \ $(gdb_stabs_h) $(serial_h) $(ocd_h) $(regcache_h) op50-rom.o: op50-rom.c $(defs_h) $(gdbcore_h) $(target_h) $(monitor_h) \ $(serial_h) -# OBSOLETE os9kread.o: os9kread.c osabi.o: osabi.c $(defs_h) $(gdb_string_h) $(osabi_h) $(elf_bfd_h) p-lang.o: p-lang.c $(defs_h) $(gdb_string_h) $(symtab_h) $(gdbtypes_h) \ $(expression_h) $(parser_defs_h) $(language_h) $(p_lang_h) \ @@ -2064,7 +2023,6 @@ reggroups.o: reggroups.c $(defs_h) $(reggroups_h) $(gdbtypes_h) \ remote-array.o: remote-array.c $(defs_h) $(gdbcore_h) $(target_h) \ $(gdb_string_h) $(command_h) $(serial_h) $(monitor_h) \ $(remote_utils_h) $(inferior_h) $(version_h) $(regcache_h) -# OBSOLETE remote-bug.o: remote-bug.c remote-e7000.o: remote-e7000.c $(defs_h) $(gdbcore_h) $(gdbarch_h) \ $(inferior_h) $(target_h) $(value_h) $(command_h) $(gdb_string_h) \ $(gdbcmd_h) $(serial_h) $(remote_utils_h) $(symfile_h) $(regcache_h) @@ -2078,9 +2036,6 @@ remote-hms.o: remote-hms.c $(defs_h) $(gdbcore_h) $(target_h) $(monitor_h) \ remote-mips.o: remote-mips.c $(defs_h) $(inferior_h) $(bfd_h) $(symfile_h) \ $(gdbcmd_h) $(gdbcore_h) $(serial_h) $(target_h) $(remote_utils_h) \ $(gdb_string_h) $(gdb_stat_h) $(regcache_h) -# OBSOLETE remote-nindy.o: remote-nindy.c -# OBSOLETE remote-nrom.o: remote-nrom.c -# OBSOLETE remote-os9k.o: remote-os9k.c remote-rdi.o: remote-rdi.c $(defs_h) $(gdb_string_h) $(frame_h) \ $(inferior_h) $(bfd_h) $(symfile_h) $(target_h) $(gdbcmd_h) \ $(objfiles_h) $(gdb_stabs_h) $(gdbthread_h) $(gdbcore_h) \ @@ -2112,7 +2067,6 @@ remote-vx68.o: remote-vx68.c $(defs_h) $(vx_share_regPacket_h) $(frame_h) \ $(symfile_h) $(regcache_h) $(gdb_string_h) $(vx_share_ptrace_h) \ $(vx_share_xdr_ptrace_h) $(vx_share_xdr_ld_h) $(vx_share_xdr_rdb_h) \ $(vx_share_dbgRpcLib_h) -# OBSOLETE remote-vx960.o: remote-vx960.c remote-vxmips.o: remote-vxmips.c $(defs_h) $(vx_share_regPacket_h) \ $(frame_h) $(inferior_h) $(target_h) $(gdbcore_h) $(command_h) \ $(symtab_h) $(symfile_h) $(regcache_h) $(gdb_string_h) \ diff --git a/gdb/NEWS b/gdb/NEWS index f9feaf0..cb3af22 100644 --- a/gdb/NEWS +++ b/gdb/NEWS @@ -17,9 +17,29 @@ Fix for gdb/672: update changelist is now output in mi list format. Fix for gdb/702: a -var-assign that updates the value now shows up in a subsequent -var-update. +* OBSOLETE configurations and files + +Configurations that have been declared obsolete in this release have +been commented out. Unless there is activity to revive these +configurations, the next release of GDB will have their sources +permanently REMOVED. + * REMOVED configurations and files V850EA ISA +Motorola Delta 88000 running Sys V m88k-motorola-sysv or delta88 +IBM AIX PS/2 i[3456]86-*-aix +i386 running Mach 3.0 i[3456]86-*-mach3* +i386 running Mach i[3456]86-*-mach* +i386 running OSF/1 i[3456]86-*osf1mk* +HP/Apollo 68k Family m68*-apollo*-sysv*, + m68*-apollo*-bsd*, + m68*-hp-bsd*, m68*-hp-hpux* +Argonaut Risc Chip (ARC) arc-*-* +Mitsubishi D30V d30v-*-* +Fujitsu FR30 fr30-*-elf* +OS/9000 i[34]86-*-os9k +I960 with MON960 i960-*-coff * MIPS $fp behavior changed diff --git a/gdb/buildsym.c b/gdb/buildsym.c index 8fdba5e..ffabe00 100644 --- a/gdb/buildsym.c +++ b/gdb/buildsym.c @@ -480,10 +480,6 @@ record_pending_block (struct objfile *objfile, struct block *block, } } -/* OBSOLETE Note that this is only used in this file and in dstread.c, which */ -/* OBSOLETE should be fixed to not need direct access to this function. When */ -/* OBSOLETE that is done, it can be made static again. */ - static struct blockvector * make_blockvector (struct objfile *objfile) { diff --git a/gdb/buildsym.h b/gdb/buildsym.h index 25fe9b1..c230462 100644 --- a/gdb/buildsym.h +++ b/gdb/buildsym.h @@ -276,12 +276,6 @@ extern int hashname (char *name); extern void free_pending_blocks (void); -/* OBSOLETE FIXME: Note that this is used only in buildsym.c and dstread.c, */ -/* OBSOLETE which should be fixed to not need direct access to */ -/* OBSOLETE make_blockvector. */ - -/* OBSOLETE extern struct blockvector *make_blockvector (struct objfile *objfile); */ - /* FIXME: Note that this is used only in buildsym.c and dstread.c, which should be fixed to not need direct access to record_pending_block. */ diff --git a/gdb/configure.host b/gdb/configure.host index 883538d..fc16f17 100644 --- a/gdb/configure.host +++ b/gdb/configure.host @@ -15,7 +15,6 @@ arm*) gdb_host_cpu=arm ;; hppa*) gdb_host_cpu=pa ;; i[3456]86*) gdb_host_cpu=i386 ;; m68*) gdb_host_cpu=m68k ;; -# OBSOLETE m88*) gdb_host_cpu=m88k ;; mips*) gdb_host_cpu=mips ;; powerpc*) gdb_host_cpu=powerpc ;; sparcv9 | sparc64) gdb_host_cpu=sparc ;; @@ -54,7 +53,6 @@ i[3456]86-ncr-*) gdb_host=ncr3000 ;; i[3456]86-sequent-bsd*) gdb_host=symmetry ;; # dynix i[3456]86-sequent-sysv4*) gdb_host=ptx4 ;; i[3456]86-sequent-sysv*) gdb_host=ptx ;; -# OBSOLETE i[3456]86-*-aix*) gdb_host=i386aix ;; i[3456]86-*-bsd*) gdb_host=i386bsd ;; i[3456]86-*-dgux*) gdb_host=i386dgux ;; i[3456]86-*-freebsd*) gdb_host=fbsd ;; @@ -65,11 +63,8 @@ i[3456]86-*-go32*) gdb_host=go32 ;; i[3456]86-*-msdosdjgpp*) gdb_host=go32 ;; i[3456]86-*-linux*) gdb_host=linux ;; i[3456]86-*-lynxos*) gdb_host=i386lynx ;; -# OBSOLETE i[3456]86-*-mach3*) gdb_host=i386m3 ;; -# OBSOLETE i[3456]86-*-mach*) gdb_host=i386mach ;; i[3456]86-*-gnu*) gdb_host=i386gnu ;; i[3456]86-*-openbsd*) gdb_host=obsd ;; -# OBSOLETE i[3456]86-*-osf1mk*) gdb_host=i386mk ;; i[3456]86-*-sco3.2v5*) gdb_host=i386sco5 ;; i[3456]86-*-sco3.2v4*) gdb_host=i386sco4 ;; i[3456]86-*-sco*) gdb_host=i386sco ;; @@ -91,12 +86,8 @@ ia64-*-linux*) gdb_host=linux ;; m680[01]0-sun-sunos3*) gdb_host=sun2os3 ;; m680[01]0-sun-sunos4*) gdb_host=sun2os4 ;; -# OBSOLETE m68*-apollo*-sysv*) gdb_host=apollo68v ;; -# OBSOLETE m68*-apollo*-bsd*) gdb_host=apollo68b ;; m68*-att-*) gdb_host=3b1 ;; m68*-bull*-sysv*) gdb_host=dpx2 ;; -# OBSOLETE m68*-hp-bsd*) gdb_host=hp300bsd ;; -# OBSOLETE m68*-hp-hpux*) gdb_host=hp300hpux ;; m68*-*-linux*) gdb_host=linux ;; m68*-*-lynxos*) gdb_host=m68klynx ;; m68*-*-netbsd*) gdb_host=nbsdaout ;; @@ -106,10 +97,6 @@ m68*-sun-sunos3*) gdb_host=sun3os3 ;; m68*-sun-sunos4*) gdb_host=sun3os4 ;; m68*-sun-*) gdb_host=sun3os4 ;; -# OBSOLETE m88*-motorola-sysv4*) gdb_host=delta88v4 ;; -# OBSOLETE m88*-motorola-sysv*) gdb_host=delta88 ;; -# OBSOLETE m88*-*-*) gdb_host=m88k ;; - mips-dec-mach3*) gdb_host=mipsm3 ;; mips-dec-*) gdb_host=decstation ;; mips-little-*) gdb_host=littlemips ;; diff --git a/gdb/configure.tgt b/gdb/configure.tgt index b74e28c..ed213dc 100644 --- a/gdb/configure.tgt +++ b/gdb/configure.tgt @@ -19,7 +19,6 @@ hppa*) gdb_target_cpu=pa ;; i[3456]86*) gdb_target_cpu=i386 ;; m68hc11*|m6811*) gdb_target_cpu=m68hc11 ;; m68*) gdb_target_cpu=m68k ;; -# OBSOLETE m88*) gdb_target_cpu=m88k ;; mips*) gdb_target_cpu=mips ;; powerpc*) gdb_target_cpu=powerpc ;; sparc*) gdb_target_cpu=sparc ;; @@ -46,8 +45,6 @@ alpha*-*-linux*) gdb_target=alpha-linux ;; alpha*-*-netbsd*) gdb_target=nbsd ;; alpha*-*-*) gdb_target=alpha ;; -# OBSOLETE arc-*-*) gdb_target=arc ;; - arm*-wince-pe) gdb_target=wince ;; arm*-*-linux*) gdb_target=linux build_gdbserver=yes @@ -69,14 +66,11 @@ avr-*-*) gdb_target=avr cris*) gdb_target=cris ;; d10v-*-*) gdb_target=d10v ;; -# OBSOLETE d30v-*-*) gdb_target=d30v ;; h8300-*-*) gdb_target=h8300 ;; h8500-*-*) gdb_target=h8500 ;; -# OBSOLETE fr30-*-elf*) gdb_target=fr30 ;; - frv-*-*) gdb_target=frv ;; hppa*-*-bsd*) gdb_target=hppabsd ;; @@ -91,11 +85,9 @@ i[3456]86-sequent-bsd*) gdb_target=symmetry ;; i[3456]86-sequent-sysv4*) gdb_target=ptx4 ;; i[3456]86-sequent-sysv*) gdb_target=ptx ;; i[3456]86-ncr-*) gdb_target=ncr3000 ;; -# OBSOLETE i[3456]86-*-aix*) gdb_target=i386aix ;; i[3456]86-*-bsd*) gdb_target=i386bsd ;; i[3456]86-*-netbsd*) gdb_target=nbsd ;; i[3456]86-*-openbsd*) gdb_target=obsd ;; -# OBSOLETE i[3456]86-*-os9k) gdb_target=i386os9k ;; i[3456]86-*-go32*) gdb_target=i386aout ;; i[3456]86-*-msdosdjgpp*) gdb_target=go32 ;; i[3456]86-*-lynxos*) gdb_target=i386lynx ;; @@ -111,23 +103,13 @@ i[3456]86-*-linux*) gdb_target=linux build_gdbserver=yes ;; i[3456]86-*-isc*) gdb_target=i386v ;; -# OBSOLETE i[3456]86-*-mach3*) gdb_target=i386m3 ;; i[3456]86-*-gnu*) gdb_target=i386gnu ;; i[3456]86-*-netware*) gdb_target=i386nw configdirs="${configdirs} nlm" ;; -# OBSOLETE i[3456]86-*-osf1mk*) gdb_target=i386mk ;; i[3456]86-*-cygwin*) gdb_target=cygwin ;; i[3456]86-*-vxworks*) gdb_target=vxworks ;; i[3456]86-*-*) gdb_target=embed ;; -# OBSOLETE i960-*-bout*) gdb_target=vxworks960 ;; -# OBSOLETE i960-nindy-coff*) gdb_target=nindy960 ;; -# OBSOLETE i960-*-coff*) gdb_target=mon960 ;; -# OBSOLETE i960-nindy-elf*) gdb_target=nindy960 ;; -# OBSOLETE i960-*-elf*) gdb_target=mon960 ;; -# OBSOLETE i960-*-nindy*) gdb_target=nindy960 ;; -# OBSOLETE i960-*-vxworks*) gdb_target=vxworks960 ;; - ia64-*-aix*) gdb_target=aix ;; ia64-*-linux*) gdb_target=linux build_gdbserver=yes @@ -141,10 +123,7 @@ m68hc11*-*-*|m6811*-*-*) gdb_target=m68hc11 ;; m68000-*-sunos3*) gdb_target=sun2os3 ;; m68000-*-sunos4*) gdb_target=sun2os4 ;; -# OBSOLETE m68*-apollo*-bsd*) gdb_target=apollo68b ;; m68*-bull-sysv*) gdb_target=dpx2 ;; -# OBSOLETE m68*-hp-bsd*) gdb_target=hp300bsd ;; -# OBSOLETE m68*-hp-hpux*) gdb_target=hp300hpux ;; m68*-att-*) gdb_target=3b1 ;; m68*-cisco*-*) gdb_target=cisco ;; m68*-ericsson-*) gdb_target=es1800 ;; @@ -165,10 +144,6 @@ m68*-*-sunos4*) gdb_target=sun3os4 ;; m68*-*-sysv4*) gdb_target=m68kv4 ;; m68*-*-vxworks*) gdb_target=vxworks68 ;; -# OBSOLETE m88*-motorola-sysv4*) gdb_target=delta88v4 ;; -# OBSOLETE m88*-motorola-*) gdb_target=delta88 ;; -# OBSOLETE m88*-*-*) gdb_target=m88k ;; - mcore*-*-*) gdb_target=mcore ;; mips64*-big-*) gdb_target=bigmips64 ;; mips*-big-*) gdb_target=bigmips ;; @@ -278,9 +253,6 @@ xstormy16-*-*) gdb_target=xstormy16 ;; vax-*-*) gdb_target=vax ;; -# OBSOLETE fr30-*-*) gdb_target=fr30 -# OBSOLETE ;; - v850*-*-*) gdb_target=v850 case ${gdb_host} in cygwin*) diff --git a/gdb/defs.h b/gdb/defs.h index 9aa604c..1d980d3 100644 --- a/gdb/defs.h +++ b/gdb/defs.h @@ -207,7 +207,6 @@ enum language language_cplus, /* C++ */ language_objc, /* Objective-C */ language_java, /* Java */ - /* OBSOLETE language_chill, */ /* Chill */ language_fortran, /* Fortran */ language_m2, /* Modula-2 */ language_asm, /* Assembly language */ @@ -298,10 +297,6 @@ extern int inside_entry_file (CORE_ADDR addr); extern int inside_main_func (CORE_ADDR pc); -/* OBSOLETE From ch-lang.c, for the moment. (FIXME) */ - -/* OBSOLETE extern char *chill_demangle (const char *); */ - /* From utils.c */ extern void initialize_utils (void); diff --git a/gdb/dwarfread.c b/gdb/dwarfread.c index f797fc5..f0c9be8 100644 --- a/gdb/dwarfread.c +++ b/gdb/dwarfread.c @@ -108,10 +108,6 @@ typedef unsigned int DIE_REF; /* Reference to a DIE */ #define LCC_PRODUCER "NCR C/C++" #endif -/* OBSOLETE #ifndef CHILL_PRODUCER */ -/* OBSOLETE #define CHILL_PRODUCER "GNU Chill " */ -/* OBSOLETE #endif */ - /* Flags to target_to_host() that tell whether or not the data object is expected to be signed. Used, for example, when fetching a signed integer in the target environment which is used as a signed integer @@ -543,9 +539,6 @@ set_cu_language (struct dieinfo *dip) case LANG_C_PLUS_PLUS: cu_language = language_cplus; break; - /* OBSOLETE case LANG_CHILL: */ - /* OBSOLETE cu_language = language_chill; */ - /* OBSOLETE break; */ case LANG_MODULA2: cu_language = language_m2; break; @@ -1760,7 +1753,6 @@ handle_producer (char *producer) { processing_gcc_compilation = STREQN (producer, GPLUS_PRODUCER, strlen (GPLUS_PRODUCER)); - /* OBSOLETE || STREQN (producer, CHILL_PRODUCER, strlen (CHILL_PRODUCER)); */ } /* Select a demangling style if we can identify the producer and if diff --git a/gdb/elfread.c b/gdb/elfread.c index ba8fc49..9ddf3d4 100644 --- a/gdb/elfread.c +++ b/gdb/elfread.c @@ -346,10 +346,10 @@ elf_symtab_read (struct objfile *objfile, int dynamic) /* Looks like a compiler-generated label. Skip it. The assembler should be skipping these (to keep executables small), but apparently with - gcc on the (OBSOLETE) delta m88k SVR4, it - loses. So to have us check too should be - harmless (but I encourage people to fix this in - the assembler instead of adding checks here). */ + gcc on the (deleted) delta m88k SVR4, it loses. + So to have us check too should be harmless (but + I encourage people to fix this in the assembler + instead of adding checks here). */ continue; else { diff --git a/gdb/eval.c b/gdb/eval.c index 6563175..18b29bd 100644 --- a/gdb/eval.c +++ b/gdb/eval.c @@ -186,7 +186,7 @@ get_label (register struct expression *exp, int *pos) return NULL; } -/* This function evaluates tuples (in (OBSOLETE) Chill) or +/* This function evaluates tuples (in (the deleted) Chill) or brace-initializers (in C/C++) for structure types. */ static struct value * @@ -326,10 +326,11 @@ evaluate_struct_tuple (struct value *struct_val, } /* Recursive helper function for setting elements of array tuples for - (OBSOLETE) Chill. The target is ARRAY (which has bounds LOW_BOUND - to HIGH_BOUND); the element value is ELEMENT; EXP, POS and NOSIDE - are as usual. Evaluates index expresions and sets the specified - element(s) of ARRAY to ELEMENT. Returns last index value. */ + (the deleted) Chill. The target is ARRAY (which has bounds + LOW_BOUND to HIGH_BOUND); the element value is ELEMENT; EXP, POS + and NOSIDE are as usual. Evaluates index expresions and sets the + specified element(s) of ARRAY to ELEMENT. Returns last index + value. */ static LONGEST init_array_element (struct value *array, struct value *element, diff --git a/gdb/expprint.c b/gdb/expprint.c index ed9d50d..b4fec74 100644 --- a/gdb/expprint.c +++ b/gdb/expprint.c @@ -267,8 +267,6 @@ print_subexp (register struct expression *exp, register int *pos, } else { - /* OBSOLETE int is_chill = exp->language_defn->la_language == language_chill; */ - /* OBSOLETE fputs_filtered (is_chill ? " [" : " {", stream); */ fputs_filtered (" {", stream); for (tem = 0; tem < nargs; tem++) { @@ -278,7 +276,6 @@ print_subexp (register struct expression *exp, register int *pos, } print_subexp (exp, pos, stream, PREC_ABOVE_COMMA); } - /* OBSOLETE fputs_filtered (is_chill ? "]" : "}", stream); */ fputs_filtered ("}", stream); } return; @@ -286,29 +283,15 @@ print_subexp (register struct expression *exp, register int *pos, case OP_LABELED: tem = longest_to_int (exp->elts[pc + 1].longconst); (*pos) += 3 + BYTES_TO_EXP_ELEM (tem + 1); - -#if 0 - if (0 /* OBSOLETE exp->language_defn->la_language == language_chill */) - { /* OBSOLETE */ - fputs_filtered (".", stream); /* OBSOLETE */ - fputs_filtered (&exp->elts[pc + 2].string, stream); /* OBSOLETE */ - fputs_filtered (exp->elts[*pos].opcode == OP_LABELED ? ", " /* OBSOLETE */ - : ": ", /* OBSOLETE */ - stream); /* OBSOLETE */ - } /* OBSOLETE */ - else /* OBSOLETE */ -#endif - { - /* Gcc support both these syntaxes. Unsure which is preferred. */ + /* Gcc support both these syntaxes. Unsure which is preferred. */ #if 1 - fputs_filtered (&exp->elts[pc + 2].string, stream); - fputs_filtered (": ", stream); + fputs_filtered (&exp->elts[pc + 2].string, stream); + fputs_filtered (": ", stream); #else - fputs_filtered (".", stream); - fputs_filtered (&exp->elts[pc + 2].string, stream); - fputs_filtered ("=", stream); + fputs_filtered (".", stream); + fputs_filtered (&exp->elts[pc + 2].string, stream); + fputs_filtered ("=", stream); #endif - } print_subexp (exp, pos, stream, PREC_SUFFIX); return; diff --git a/gdb/expression.h b/gdb/expression.h index 66cc119..7268979 100644 --- a/gdb/expression.h +++ b/gdb/expression.h @@ -109,11 +109,11 @@ enum exp_opcode the second operand with itself that many times. */ BINOP_CONCAT, - /* For (OBSOLETE) Chill (OBSOLETE) and Pascal. */ + /* For (the deleted) Chill and Pascal. */ BINOP_IN, /* Returns 1 iff ARG1 IN ARG2. */ - /* This is the "colon operator" used various places in (OBSOLETE) - Chill (OBSOLETE). */ + /* This is the "colon operator" used various places in (the + deleted) Chill. */ BINOP_RANGE, /* This must be the highest BINOP_ value, for expprint.c. */ @@ -122,13 +122,13 @@ enum exp_opcode /* Operates on three values computed by following subexpressions. */ TERNOP_COND, /* ?: */ - /* A sub-string/sub-array. (OBSOLETE) Chill (OBSOLETE) syntax: + /* A sub-string/sub-array. (the deleted) Chill syntax: OP1(OP2:OP3). Return elements OP2 through OP3 of OP1. */ TERNOP_SLICE, - /* A sub-string/sub-array. (OBSOLETE) Chill (OBSOLETE) syntax: - OP1(OP2 UP OP3). Return OP3 elements of OP1, starting with - element OP2. */ + /* A sub-string/sub-array. (The deleted) Chill syntax: OP1(OP2 UP + OP3). Return OP3 elements of OP1, starting with element + OP2. */ TERNOP_SLICE_COUNT, /* Multidimensional subscript operator, such as Modula-2 x[a,b,...]. @@ -259,7 +259,7 @@ enum exp_opcode UNOP_ODD, UNOP_TRUNC, - /* (OBSOLETE) Chill (OBSOLETE) builtin functions. */ + /* (The deleted) Chill builtin functions. */ UNOP_LOWER, UNOP_UPPER, UNOP_LENGTH, UNOP_CARD, UNOP_CHMAX, UNOP_CHMIN, OP_BOOL, /* Modula-2 builtin BOOLEAN type */ @@ -296,14 +296,14 @@ enum exp_opcode OP_SCOPE, /* Used to represent named structure field values in brace - initializers (or tuples as they are called in (OBSOLETE) Chill - (OBSOLETE)). + initializers (or tuples as they are called in (the deleted) + Chill). - The gcc C syntax is NAME:VALUE or .NAME=VALUE, the (OBSOLETE) - Chill (OBSOLETE) syntax is .NAME:VALUE. Multiple labels (as in - the (OBSOLETE) Chill (OBSOLETE) syntax .NAME1,.NAME2:VALUE) is + The gcc C syntax is NAME:VALUE or .NAME=VALUE, the (the + deleted) Chill syntax is .NAME:VALUE. Multiple labels (as in + the (the deleted) Chill syntax .NAME1,.NAME2:VALUE) is represented as if it were .NAME1:(.NAME2:VALUE) (though that is - not valid (OBSOLETE) Chill (OBSOLETE) syntax). + not valid (the deleted) Chill syntax). The NAME is represented as for STRUCTOP_STRUCT; VALUE follows. */ OP_LABELED, diff --git a/gdb/gdbtypes.c b/gdb/gdbtypes.c index 6d3e3a7..2a8817d 100644 --- a/gdb/gdbtypes.c +++ b/gdb/gdbtypes.c @@ -2003,24 +2003,6 @@ is_integral_type (struct type *t) || (TYPE_CODE (t) == TYPE_CODE_BOOL))); } -/* (OBSOLETE) Chill (OBSOLETE) varying string and arrays are - represented as follows: - - struct { int __var_length; ELEMENT_TYPE[MAX_SIZE] __var_data}; - - Return true if TYPE is such a (OBSOLETE) Chill (OBSOLETE) varying - type. */ - -/* OBSOLETE int */ -/* OBSOLETE chill_varying_type (struct type *type) */ -/* OBSOLETE { */ -/* OBSOLETE if (TYPE_CODE (type) != TYPE_CODE_STRUCT */ -/* OBSOLETE || TYPE_NFIELDS (type) != 2 */ -/* OBSOLETE || strcmp (TYPE_FIELD_NAME (type, 0), "__var_length") != 0) */ -/* OBSOLETE return 0; */ -/* OBSOLETE return 1; */ -/* OBSOLETE } */ - /* Check whether BASE is an ancestor or base class or DCLASS Return 1 if so, and 0 if not. Note: callers may want to check for identity of the types before diff --git a/gdb/gdbtypes.h b/gdb/gdbtypes.h index 69f8cdb..4c754d6 100644 --- a/gdb/gdbtypes.h +++ b/gdb/gdbtypes.h @@ -101,14 +101,14 @@ enum type_code TYPE_CODE_RANGE, /* Range (integers within spec'd bounds) */ /* A string type which is like an array of character but prints - differently (at least for (OBSOLETE) CHILL (OBSOLETE)). It - does not contain a length field as Pascal strings (for many - Pascals, anyway) do; if we want to deal with such strings, we - should use a new type code. */ + differently (at least for (the deleted) CHILL). It does not + contain a length field as Pascal strings (for many Pascals, + anyway) do; if we want to deal with such strings, we should use + a new type code. */ TYPE_CODE_STRING, /* String of bits; like TYPE_CODE_SET but prints differently (at - least for (OBSOLETE) CHILL (OBSOLETE)). */ + least for (the deleted) CHILL). */ TYPE_CODE_BITSTRING, /* Unknown type. The length field is valid if we were able to @@ -1020,14 +1020,6 @@ extern struct type *builtin_type_m2_card; extern struct type *builtin_type_m2_real; extern struct type *builtin_type_m2_bool; -/* OBSOLETE Chill types */ - -/* OBSOLETE extern struct type *builtin_type_chill_bool; */ -/* OBSOLETE extern struct type *builtin_type_chill_char; */ -/* OBSOLETE extern struct type *builtin_type_chill_long; */ -/* OBSOLETE extern struct type *builtin_type_chill_ulong; */ -/* OBSOLETE extern struct type *builtin_type_chill_real; */ - /* Fortran (F77) types */ extern struct type *builtin_type_f_character; @@ -1135,8 +1127,6 @@ extern struct type *create_string_type (struct type *, struct type *); extern struct type *create_set_type (struct type *, struct type *); -/* OBSOLETE extern int chill_varying_type (struct type *); */ - extern struct type *lookup_unsigned_typename (char *); extern struct type *lookup_signed_typename (char *); diff --git a/gdb/language.c b/gdb/language.c index 8eee8f6..a343290 100644 --- a/gdb/language.c +++ b/gdb/language.c @@ -568,8 +568,6 @@ binop_result_type (struct value *v1, struct value *v2) not needed. */ return l1 > l2 ? VALUE_TYPE (v1) : VALUE_TYPE (v2); break; - /* OBSOLETE case language_chill: */ - /* OBSOLETE error ("Missing Chill support in function binop_result_check."); */ /*FIXME */ } internal_error (__FILE__, __LINE__, "failed internal consistency check"); return (struct type *) 0; /* For lint */ @@ -793,8 +791,6 @@ integral_type (struct type *type) case language_m2: case language_pascal: return TYPE_CODE (type) != TYPE_CODE_INT ? 0 : 1; - /* OBSOLETE case language_chill: */ - /* OBSOLETE error ("Missing Chill support in function integral_type."); *//*FIXME */ default: error ("Language not supported."); } @@ -823,7 +819,6 @@ character_type (struct type *type) CHECK_TYPEDEF (type); switch (current_language->la_language) { - /* OBSOLETE case language_chill: */ case language_m2: case language_pascal: return TYPE_CODE (type) != TYPE_CODE_CHAR ? 0 : 1; @@ -846,7 +841,6 @@ string_type (struct type *type) CHECK_TYPEDEF (type); switch (current_language->la_language) { - /* OBSOLETE case language_chill: */ case language_m2: case language_pascal: return TYPE_CODE (type) != TYPE_CODE_STRING ? 0 : 1; @@ -874,7 +868,7 @@ boolean_type (struct type *type) case language_cplus: case language_objc: /* Might be more cleanly handled by having a - TYPE_CODE_INT_NOT_BOOL for (OBSOLETE) CHILL and such + TYPE_CODE_INT_NOT_BOOL for (the deleted) CHILL and such languages, or a TYPE_CODE_INT_OR_BOOL for C. */ if (TYPE_CODE (type) == TYPE_CODE_INT) return 1; @@ -922,8 +916,6 @@ structured_type (struct type *type) return (TYPE_CODE (type) == TYPE_CODE_STRUCT) || (TYPE_CODE (type) == TYPE_CODE_SET) || (TYPE_CODE (type) == TYPE_CODE_ARRAY); - /* OBSOLETE case language_chill: */ - /* OBSOLETE error ("Missing Chill support in function structured_type."); *//*FIXME */ default: return (0); } @@ -937,10 +929,6 @@ lang_bool_type (void) struct type *type; switch (current_language->la_language) { -#if 0 - /* OBSOLETE case language_chill: */ - /* OBSOLETE return builtin_type_chill_bool; */ -#endif case language_fortran: sym = lookup_symbol ("logical", NULL, VAR_NAMESPACE, NULL, NULL); if (sym) @@ -1171,11 +1159,6 @@ binop_type_check (struct value *arg1, struct value *arg2, int op) } #endif -#ifdef _LANG_chill /* OBSOLETE */ - /* OBSOLETE case language_chill: */ - /* OBSOLETE error ("Missing Chill support in function binop_type_check."); *//*FIXME */ -#endif - } } } diff --git a/gdb/language.h b/gdb/language.h index b15544f..a04bc74 100644 --- a/gdb/language.h +++ b/gdb/language.h @@ -35,7 +35,6 @@ struct expression; /* #include "lang_def.h" */ #define _LANG_c #define _LANG_m2 -/* OBSOLETE #define _LANG_chill */ #define _LANG_fortran #define _LANG_pascal diff --git a/gdb/stabsread.c b/gdb/stabsread.c index 68a67d5..0e0947d 100644 --- a/gdb/stabsread.c +++ b/gdb/stabsread.c @@ -242,36 +242,6 @@ static struct symbol *current_symbol = NULL; *(pp) = next_symbol_text (objfile); \ } while (0) -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE /* FIXME: These probably should be our own types (like rs6000_builtin_type -// OBSOLETE has its own types) rather than builtin_type_*. */ -// OBSOLETE static struct type **os9k_type_vector[] = -// OBSOLETE { -// OBSOLETE 0, -// OBSOLETE &builtin_type_int, -// OBSOLETE &builtin_type_char, -// OBSOLETE &builtin_type_long, -// OBSOLETE &builtin_type_short, -// OBSOLETE &builtin_type_unsigned_char, -// OBSOLETE &builtin_type_unsigned_short, -// OBSOLETE &builtin_type_unsigned_long, -// OBSOLETE &builtin_type_unsigned_int, -// OBSOLETE &builtin_type_float, -// OBSOLETE &builtin_type_double, -// OBSOLETE &builtin_type_void, -// OBSOLETE &builtin_type_long_double -// OBSOLETE }; -// OBSOLETE -// OBSOLETE static void os9k_init_type_vector (struct type **); -// OBSOLETE -// OBSOLETE static void -// OBSOLETE os9k_init_type_vector (struct type **tv) -// OBSOLETE { -// OBSOLETE unsigned int i; -// OBSOLETE for (i = 0; i < sizeof (os9k_type_vector) / sizeof (struct type **); i++) -// OBSOLETE tv[i] = (os9k_type_vector[i] == 0 ? 0 : *(os9k_type_vector[i])); -// OBSOLETE } -#endif /* OBSOLETE OS9K */ /* Look up a dbx type-number pair. Return the address of the slot where the type for that number-pair is stored. @@ -336,12 +306,6 @@ dbx_lookup_type (int typenums[2]) (type_vector_length * sizeof (struct type *))); memset (&type_vector[old_len], 0, (type_vector_length - old_len) * sizeof (struct type *)); - -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs) -// OBSOLETE /* Deal with OS9000 fundamental types. */ -// OBSOLETE os9k_init_type_vector (type_vector); -#endif /* OBSOLETE OS9K */ } return (&type_vector[index]); } @@ -2037,11 +2001,6 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type, } #endif SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs) -// OBSOLETE add_symbol_to_list (sym, &global_symbols); -// OBSOLETE else -#endif /* OBSOLETE OS9K */ add_symbol_to_list (sym, &local_symbols); break; @@ -2575,24 +2534,6 @@ again: break; case 'f': /* Function returning another type */ -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs && **pp == '(') -// OBSOLETE { -// OBSOLETE /* Function prototype; parse it. -// OBSOLETE We must conditionalize this on os9k_stabs because otherwise -// OBSOLETE it could be confused with a Sun-style (1,3) typenumber -// OBSOLETE (I think). */ -// OBSOLETE struct type *t; -// OBSOLETE ++*pp; -// OBSOLETE while (**pp != ')') -// OBSOLETE { -// OBSOLETE t = read_type (pp, objfile); -// OBSOLETE if (**pp == ',') -// OBSOLETE ++ * pp; -// OBSOLETE } -// OBSOLETE } -#endif /* OBSOLETE OS9K */ - type1 = read_type (pp, objfile); type = make_function_type (type1, dbx_lookup_type (typenums)); break; @@ -2671,36 +2612,12 @@ again: } case 'k': /* Const qualifier on some type (Sun) */ -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE /* ezannoni 2002-07-16: This can be safely deleted, because 'c' -// OBSOLETE means complex type in AIX stabs, while it means const qualifier -// OBSOLETE in os9k stabs. Obviously we were supporting only the os9k meaning. -// OBSOLETE We were erroring out if we were reading AIX stabs. Right now the -// OBSOLETE erroring out will happen in the default clause of the switch. */ -// OBSOLETE case 'c': /* Const qualifier on some type (OS9000) */ -// OBSOLETE /* Because 'c' means other things to AIX and 'k' is perfectly good, -// OBSOLETE only accept 'c' in the os9k_stabs case. */ -// OBSOLETE if (type_descriptor == 'c' && !os9k_stabs) -// OBSOLETE return error_type (pp, objfile); -#endif /* OBSOLETE OS9K */ type = read_type (pp, objfile); type = make_cv_type (1, TYPE_VOLATILE (type), type, dbx_lookup_type (typenums)); break; case 'B': /* Volatile qual on some type (Sun) */ -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE /* ezannoni 2002-07-16: This can be safely deleted, because 'i' -// OBSOLETE means imported type in AIX stabs, while it means volatile qualifier -// OBSOLETE in os9k stabs. Obviously we were supporting only the os9k meaning. -// OBSOLETE We were erroring out if we were reading AIX stabs. Right now the -// OBSOLETE erroring out will happen in the default clause of the switch. */ -// OBSOLETE case 'i': /* Volatile qual on some type (OS9000) */ -// OBSOLETE /* Because 'i' means other things to AIX and 'B' is perfectly good, -// OBSOLETE only accept 'i' in the os9k_stabs case. */ -// OBSOLETE if (type_descriptor == 'i' && !os9k_stabs) -// OBSOLETE return error_type (pp, objfile); -#endif /* OBSOLETE OS9K */ type = read_type (pp, objfile); type = make_cv_type (TYPE_CONST (type), 1, type, dbx_lookup_type (typenums)); @@ -2807,12 +2724,6 @@ again: break; case 'b': -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs) -// OBSOLETE /* Const and volatile qualified type. */ -// OBSOLETE type = read_type (pp, objfile); -// OBSOLETE else -#endif /* OBSOLETE OS9K */ { /* Sun ACC builtin int type */ type = read_sun_builtin_type (pp, typenums, objfile); @@ -3853,10 +3764,6 @@ read_struct_fields (struct field_info *fip, char **pp, struct type *type, while (**pp != ';' && **pp != '\0') { -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs && **pp == ',') -// OBSOLETE break; -#endif /* OBSOLETE OS9K */ STABS_CONTINUE (pp, objfile); /* Get space to record the next field's data. */ new = (struct nextfield *) xmalloc (sizeof (struct nextfield)); @@ -3901,9 +3808,9 @@ read_struct_fields (struct field_info *fip, char **pp, struct type *type, } if (p[0] == ':' && p[1] == ':') { - /* (OBSOLETE) chill (OBSOLETE) the list of fields: the last - entry (at the head) is a partially constructed entry which we - now scrub. */ + /* (the deleted) chill the list of fields: the last entry (at + the head) is a partially constructed entry which we now + scrub. */ fip->list = fip->list->next; } return 1; @@ -4510,11 +4417,6 @@ read_array_type (register char **pp, register struct type *type, Fortran adjustable arrays use Adigits or Tdigits for lower or upper; for these, produce a type like float[][]. */ -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs) -// OBSOLETE index_type = builtin_type_int; -// OBSOLETE else -#endif /* OBSOLETE OS9K */ { index_type = read_type (pp, objfile); if (**pp != ';') @@ -4528,11 +4430,7 @@ read_array_type (register char **pp, register struct type *type, (*pp)++; adjustable = 1; } -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE lower = read_huge_number (pp, os9k_stabs ? ',' : ';', &nbits); -#else /* OBSOLETE OS9K */ lower = read_huge_number (pp, ';', &nbits); -#endif /* OBSOLETE OS9K */ if (nbits != 0) return error_type (pp, objfile); @@ -4593,18 +4491,6 @@ read_enum_type (register char **pp, register struct type *type, osyms = *symlist; o_nsyms = osyms ? osyms->nsyms : 0; -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs) -// OBSOLETE { -// OBSOLETE /* Size. Perhaps this does not have to be conditionalized on -// OBSOLETE os9k_stabs (assuming the name of an enum constant can't start -// OBSOLETE with a digit). */ -// OBSOLETE read_huge_number (pp, 0, &nbits); -// OBSOLETE if (nbits != 0) -// OBSOLETE return error_type (pp, objfile); -// OBSOLETE } -#endif /* OBSOLETE OS9K */ - /* The aix4 compiler emits an extra field before the enum members; my guess is it's a type of some sort. Just ignore it. */ if (**pp == '-') @@ -4842,12 +4728,7 @@ read_huge_number (char **pp, int end, int *bits) p++; } -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE if (os9k_stabs) -// OBSOLETE upper_limit = ULONG_MAX / radix; -// OBSOLETE else -#endif /* OBSOLETE OS9K */ - upper_limit = LONG_MAX / radix; + upper_limit = LONG_MAX / radix; while ((c = *p++) >= '0' && c < ('0' + radix)) { @@ -5043,12 +4924,6 @@ read_range_type (char **pp, int typenums[2], struct objfile *objfile) else if (self_subrange && n2 == 0 && n3 == 127) return init_type (TYPE_CODE_INT, 1, 0, NULL, objfile); -#if 0 - /* OBSOLETE else if (current_symbol && SYMBOL_LANGUAGE (current_symbol) == language_chill */ - /* OBSOLETE && !self_subrange) */ - /* OBSOLETE goto handle_true_range; */ -#endif - /* We used to do this only for subrange of self or subrange of int. */ else if (n2 == 0) { @@ -5553,10 +5428,6 @@ start_stabs (void) /* FIXME: If common_block_name is not already NULL, we should complain(). */ common_block_name = NULL; - -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE os9k_stabs = 0; -#endif /* OBSOLETE OS9K */ } /* Call after end_symtab() */ diff --git a/gdb/stabsread.h b/gdb/stabsread.h index 017074b..e959e7a 100644 --- a/gdb/stabsread.h +++ b/gdb/stabsread.h @@ -151,10 +151,6 @@ extern void end_stabs (void); extern void finish_global_stabs (struct objfile *objfile); -#if 0 /* OBSOLETE OS9K */ -// OBSOLETE EXTERN int os9k_stabs; -#endif /* OBSOLETE OS9K */ - /* COFF files can have multiple .stab sections, if they are linked using --split-by-reloc. This linked list is used to pass the information into the functions in dbxread.c. */ diff --git a/gdb/symfile.c b/gdb/symfile.c index f27391a..d2e8dd3 100644 --- a/gdb/symfile.c +++ b/gdb/symfile.c @@ -1966,9 +1966,6 @@ init_filename_language_table (void) add_filename_language (".c++", language_cplus); add_filename_language (".java", language_java); add_filename_language (".class", language_java); - /* OBSOLETE add_filename_language (".ch", language_chill); */ - /* OBSOLETE add_filename_language (".c186", language_chill); */ - /* OBSOLETE add_filename_language (".c286", language_chill); */ add_filename_language (".m", language_objc); add_filename_language (".f", language_fortran); add_filename_language (".F", language_fortran); @@ -2447,10 +2444,6 @@ add_psymbol_with_dem_name_to_list (char *name, int namelength, char *dem_name, SYMBOL_CPLUS_DEMANGLED_NAME (&psymbol) = bcache (buf, dem_namelength + 1, objfile->psymbol_cache); break; - /* OBSOLETE case language_chill: */ - /* OBSOLETE SYMBOL_CHILL_DEMANGLED_NAME (&psymbol) = */ - /* OBSOLETE bcache (buf, dem_namelength + 1, objfile->psymbol_cache); */ - /* FIXME What should be done for the default case? Ignoring for now. */ } diff --git a/gdb/symtab.c b/gdb/symtab.c index ee10461..7eab19f 100644 --- a/gdb/symtab.c +++ b/gdb/symtab.c @@ -418,10 +418,6 @@ symbol_init_language_specific (struct general_symbol_info *gsymbol, { gsymbol->language_specific.objc_specific.demangled_name = NULL; } - /* OBSOLETE else if (SYMBOL_LANGUAGE (symbol) == language_chill) */ - /* OBSOLETE { */ - /* OBSOLETE SYMBOL_CHILL_DEMANGLED_NAME (symbol) = NULL; */ - /* OBSOLETE } */ else { memset (&gsymbol->language_specific, 0, @@ -483,26 +479,6 @@ symbol_init_demangled_name (struct general_symbol_info *gsymbol, gsymbol->language_specific.cplus_specific.demangled_name = NULL; } } -#if 0 - /* OBSOLETE if (demangled == NULL */ - /* OBSOLETE && (gsymbol->language == language_chill */ - /* OBSOLETE || gsymbol->language == language_auto)) */ - /* OBSOLETE { */ - /* OBSOLETE demangled = */ - /* OBSOLETE chill_demangle (gsymbol->name); */ - /* OBSOLETE if (demangled != NULL) */ - /* OBSOLETE { */ - /* OBSOLETE gsymbol->language = language_chill; */ - /* OBSOLETE gsymbol->language_specific.chill_specific.demangled_name = */ - /* OBSOLETE obsavestring (demangled, strlen (demangled), obstack); */ - /* OBSOLETE xfree (demangled); */ - /* OBSOLETE } */ - /* OBSOLETE else */ - /* OBSOLETE { */ - /* OBSOLETE gsymbol->language_specific.chill_specific.demangled_name = NULL; */ - /* OBSOLETE } */ - /* OBSOLETE } */ -#endif } /* Return the demangled name for a symbol based on the language for @@ -519,9 +495,6 @@ symbol_demangled_name (struct general_symbol_info *gsymbol) else return NULL; - - /* OBSOLETE (SYMBOL_LANGUAGE (symbol) == language_chill */ - /* OBSOLETE ? SYMBOL_CHILL_DEMANGLED_NAME (symbol) */ } /* Initialize the structure fields to zero values. */ diff --git a/gdb/symtab.h b/gdb/symtab.h index a9411e8..1d44ace 100644 --- a/gdb/symtab.h +++ b/gdb/symtab.h @@ -94,13 +94,6 @@ struct general_symbol_info char *demangled_name; } objc_specific; -#if 0 -/* OBSOLETE struct chill_specific *//* For Chill */ - /* OBSOLETE { */ - /* OBSOLETE char *demangled_name; */ - /* OBSOLETE } */ - /* OBSOLETE chill_specific; */ -#endif } language_specific; @@ -165,9 +158,6 @@ extern void symbol_init_demangled_name (struct general_symbol_info *symbol, (symbol_demangled_name (&(symbol)->ginfo)) extern char *symbol_demangled_name (struct general_symbol_info *symbol); -/* OBSOLETE #define SYMBOL_CHILL_DEMANGLED_NAME(symbol) */ -/* OBSOLETE (symbol)->ginfo.language_specific.chill_specific.demangled_name */ - #define SYMBOL_OBJC_DEMANGLED_NAME(symbol) \ (symbol)->ginfo.language_specific.objc_specific.demangled_name diff --git a/gdb/typeprint.c b/gdb/typeprint.c index c4262d9..43f20ea 100644 --- a/gdb/typeprint.c +++ b/gdb/typeprint.c @@ -88,17 +88,6 @@ typedef_print (struct type *type, struct symbol *new, struct ui_file *stream) type_print (type, "", stream, 0); break; #endif -#ifdef _LANG_chill /* OBSOLETE */ - /* OBSOLETE case language_chill: */ - /* OBSOLETE fprintf_filtered (stream, "SYNMODE "); */ - /* OBSOLETE if (!TYPE_NAME (SYMBOL_TYPE (new)) || */ - /* OBSOLETE !STREQ (TYPE_NAME (SYMBOL_TYPE (new)), SYMBOL_NAME (new))) */ - /* OBSOLETE fprintf_filtered (stream, "%s = ", SYMBOL_SOURCE_NAME (new)); */ - /* OBSOLETE else */ - /* OBSOLETE fprintf_filtered (stream, " = "); */ - /* OBSOLETE type_print (type, "", stream, 0); */ - /* OBSOLETE break; */ -#endif default: error ("Language not supported."); } diff --git a/gdb/utils.c b/gdb/utils.c index 58af78a..bb695d5 100644 --- a/gdb/utils.c +++ b/gdb/utils.c @@ -2313,11 +2313,6 @@ fprintf_symbol_filtered (struct ui_file *stream, char *name, enum language lang, /* Commented out until ObjC handling is enabled. */ /*demangled = objc_demangle (name);*/ /*break;*/ -#if 0 - /* OBSOLETE case language_chill: */ - /* OBSOLETE demangled = chill_demangle (name); */ - /* OBSOLETE break; */ -#endif default: demangled = NULL; break; diff --git a/gdb/valarith.c b/gdb/valarith.c index 279528a..62ebc68 100644 --- a/gdb/valarith.c +++ b/gdb/valarith.c @@ -859,7 +859,7 @@ value_binop (struct value *arg1, struct value *arg2, enum exp_opcode op) /* Integral operations here. */ /* FIXME: Also mixed integral/booleans, with result an integer. */ /* FIXME: This implements ANSI C rules (also correct for C++). - What about FORTRAN and (OBSOLETE) chill ? */ + What about FORTRAN and (the deleted) chill ? */ { unsigned int promoted_len1 = TYPE_LENGTH (type1); unsigned int promoted_len2 = TYPE_LENGTH (type2); @@ -946,12 +946,6 @@ value_binop (struct value *arg1, struct value *arg2, enum exp_opcode op) case BINOP_MOD: /* Knuth 1.2.4, integer only. Note that unlike the C '%' op, v1 mod 0 has a defined value, v1. */ - /* OBSOLETE Chill specifies that v2 must be > 0, so check for that. */ - /* OBSOLETE if (current_language->la_language == language_chill */ - /* OBSOLETE && value_as_long (arg2) <= 0) */ - /* OBSOLETE { */ - /* OBSOLETE error ("Second operand of MOD must be greater than zero."); */ - /* OBSOLETE } */ if (v2 == 0) { v = v1; @@ -1070,12 +1064,6 @@ value_binop (struct value *arg1, struct value *arg2, enum exp_opcode op) case BINOP_MOD: /* Knuth 1.2.4, integer only. Note that unlike the C '%' op, X mod 0 has a defined value, X. */ - /* OBSOLETE Chill specifies that v2 must be > 0, so check for that. */ - /* OBSOLETE if (current_language->la_language == language_chill */ - /* OBSOLETE && v2 <= 0) */ - /* OBSOLETE { */ - /* OBSOLETE error ("Second operand of MOD must be greater than zero."); */ - /* OBSOLETE } */ if (v2 == 0) { v = v1; @@ -1339,7 +1327,7 @@ value_neg (struct value *arg1) else if (TYPE_CODE (type) == TYPE_CODE_INT || TYPE_CODE (type) == TYPE_CODE_BOOL) { /* Perform integral promotion for ANSI C/C++. FIXME: What about - FORTRAN and (OBSOLETE) chill ? */ + FORTRAN and (the deleted) chill ? */ if (TYPE_LENGTH (type) < TYPE_LENGTH (builtin_type_int)) result_type = builtin_type_int; diff --git a/gdb/valops.c b/gdb/valops.c index b7d50e5..db778af 100644 --- a/gdb/valops.c +++ b/gdb/valops.c @@ -376,49 +376,6 @@ value_cast (struct type *type, struct value *arg2) VALUE_POINTED_TO_OFFSET (arg2) = 0; /* pai: chk_val */ return arg2; } - /* OBSOLETE else if (chill_varying_type (type)) */ - /* OBSOLETE { */ - /* OBSOLETE struct type *range1, *range2, *eltype1, *eltype2; */ - /* OBSOLETE struct value *val; */ - /* OBSOLETE int count1, count2; */ - /* OBSOLETE LONGEST low_bound, high_bound; */ - /* OBSOLETE char *valaddr, *valaddr_data; */ - /* OBSOLETE *//* For lint warning about eltype2 possibly uninitialized: */ - /* OBSOLETE eltype2 = NULL; */ - /* OBSOLETE if (code2 == TYPE_CODE_BITSTRING) */ - /* OBSOLETE error ("not implemented: converting bitstring to varying type"); */ - /* OBSOLETE if ((code2 != TYPE_CODE_ARRAY && code2 != TYPE_CODE_STRING) */ - /* OBSOLETE || (eltype1 = check_typedef (TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (type, 1))), */ - /* OBSOLETE eltype2 = check_typedef (TYPE_TARGET_TYPE (type2)), */ - /* OBSOLETE (TYPE_LENGTH (eltype1) != TYPE_LENGTH (eltype2) */ - /* OBSOLETE *//*|| TYPE_CODE (eltype1) != TYPE_CODE (eltype2) *//* ))) */ - /* OBSOLETE error ("Invalid conversion to varying type"); */ - /* OBSOLETE range1 = TYPE_FIELD_TYPE (TYPE_FIELD_TYPE (type, 1), 0); */ - /* OBSOLETE range2 = TYPE_FIELD_TYPE (type2, 0); */ - /* OBSOLETE if (get_discrete_bounds (range1, &low_bound, &high_bound) < 0) */ - /* OBSOLETE count1 = -1; */ - /* OBSOLETE else */ - /* OBSOLETE count1 = high_bound - low_bound + 1; */ - /* OBSOLETE if (get_discrete_bounds (range2, &low_bound, &high_bound) < 0) */ - /* OBSOLETE count1 = -1, count2 = 0; *//* To force error before */ - /* OBSOLETE else */ - /* OBSOLETE count2 = high_bound - low_bound + 1; */ - /* OBSOLETE if (count2 > count1) */ - /* OBSOLETE error ("target varying type is too small"); */ - /* OBSOLETE val = allocate_value (type); */ - /* OBSOLETE valaddr = VALUE_CONTENTS_RAW (val); */ - /* OBSOLETE valaddr_data = valaddr + TYPE_FIELD_BITPOS (type, 1) / 8; */ - /* OBSOLETE *//* Set val's __var_length field to count2. */ - /* OBSOLETE store_signed_integer (valaddr, TYPE_LENGTH (TYPE_FIELD_TYPE (type, 0)), */ - /* OBSOLETE count2); */ - /* OBSOLETE *//* Set the __var_data field to count2 elements copied from arg2. */ - /* OBSOLETE memcpy (valaddr_data, VALUE_CONTENTS (arg2), */ - /* OBSOLETE count2 * TYPE_LENGTH (eltype2)); */ - /* OBSOLETE *//* Zero the rest of the __var_data field of val. */ - /* OBSOLETE memset (valaddr_data + count2 * TYPE_LENGTH (eltype2), '\0', */ - /* OBSOLETE (count1 - count2) * TYPE_LENGTH (eltype2)); */ - /* OBSOLETE return val; */ - /* OBSOLETE } */ else if (VALUE_LVAL (arg2) == lval_memory) { return value_at_lazy (type, VALUE_ADDRESS (arg2) + VALUE_OFFSET (arg2), @@ -2163,22 +2120,23 @@ search_struct_field (char *name, struct value *arg1, int offset, /* Look for a match through the fields of an anonymous union, or anonymous struct. C++ provides anonymous unions. - In the GNU Chill (OBSOLETE) implementation of - variant record types, each has - an (anonymous) union type, each member of the union - represents a . Each is represented as a struct, with a - member for each . */ + In the GNU Chill (now deleted from GDB) + implementation of variant record types, each + has an (anonymous) union type, + each member of the union represents a . Each is + represented as a struct, with a member for each + . */ struct value *v; int new_offset = offset; /* This is pretty gross. In G++, the offset in an anonymous union is relative to the beginning of the - enclosing struct. In the GNU Chill (OBSOLETE) - implementation of variant records, the bitpos is - zero in an anonymous union field, so we have to add - the offset of the union here. */ + enclosing struct. In the GNU Chill (now deleted + from GDB) implementation of variant records, the + bitpos is zero in an anonymous union field, so we + have to add the offset of the union here. */ if (TYPE_CODE (field_type) == TYPE_CODE_STRUCT || (TYPE_NFIELDS (field_type) > 0 && TYPE_FIELD_BITPOS (field_type, 0) == 0)) @@ -3406,9 +3364,6 @@ value_slice (struct value *array, int lowbound, int length) error ("slice from bad array or bitstring"); if (lowbound < lowerbound || length < 0 || lowbound + length - 1 > upperbound) - /* OBSOLETE Chill allows zero-length strings but not arrays. */ - /* OBSOLETE || (current_language->la_language == language_chill */ - /* OBSOLETE && length == 0 && TYPE_CODE (array_type) == TYPE_CODE_ARRAY)) */ error ("slice out of range"); /* FIXME-type-allocation: need a way to free this type when we are done with it. */ @@ -3464,19 +3419,6 @@ value_slice (struct value *array, int lowbound, int length) return slice; } -/* Assuming OBSOLETE chill_varying_type (VARRAY) is true, return an - equivalent value as a fixed-length array. */ - -struct value * -varying_to_slice (struct value *varray) -{ - struct type *vtype = check_typedef (VALUE_TYPE (varray)); - LONGEST length = unpack_long (TYPE_FIELD_TYPE (vtype, 0), - VALUE_CONTENTS (varray) - + TYPE_FIELD_BITPOS (vtype, 0) / 8); - return value_slice (value_primitive_field (varray, 0, 1, vtype), 0, length); -} - /* Create a value for a FORTRAN complex number. Currently most of the time values are coerced to COMPLEX*16 (i.e. a complex number composed of 2 doubles. This really should be a smarter routine diff --git a/gdb/value.h b/gdb/value.h index a38b576..f09c247 100644 --- a/gdb/value.h +++ b/gdb/value.h @@ -241,9 +241,9 @@ do { COERCE_REF(arg); \ #define COERCE_NUMBER(arg) \ do { COERCE_ARRAY(arg); COERCE_ENUM(arg); } while (0) -#define COERCE_VARYING_ARRAY(arg, real_arg_type) \ -/* OBSOLETE { if (chill_varying_type (real_arg_type)) */ \ -/* OBSOLETE arg = varying_to_slice (arg), real_arg_type = VALUE_TYPE (arg); } */ +/* NOTE: cagney/2002-12-17: This macro was handling a chill language + problem but that language has gone away. */ +#define COERCE_VARYING_ARRAY(arg, real_arg_type) /* If ARG is an enum, convert it to an integer. */ -- cgit v1.1