diff options
author | Jim Blandy <jimb@codesourcery.com> | 2003-05-13 00:08:58 +0000 |
---|---|---|
committer | Jim Blandy <jimb@codesourcery.com> | 2003-05-13 00:08:58 +0000 |
commit | ad20141640f390ddb988537bf7d93316e5388e4b (patch) | |
tree | c1645477648a946f3973c701fb89b76e295e5bcc /gdb/gdbtk/library/helpviewer.tcl | |
parent | ea1c83e1893b74392032336333d19c00a414611d (diff) | |
download | gdb-jimb-ppc64-linux-20030509-branch.tar.gz |
Patch from Will Schmidt <willschm@us.ibm.com>:jimb-ppc64-linux-20030509-branchcvs/jimb-ppc64-linux-20030509-branch
These changes enable support of PPC64 architecture.
* config/powerpc/ppc64linux.mh: New file.
* config/powerpc/ppc64linux.mt: New file.
* config/powerpc/tm-ppc64linux.h: New file.
* ppc64-linux-tdep.c: New file.
* configure.host: Add clause for powerpc64-*-linux*
* configure.tgt: Add clause for powerpc64-*-linux*
* elfread.c (record_minimal_symbol_and_info): If
DROP_TEXT_NAME_PREFIX_CHAR is #defined, then drop a leading
instance of that char from the names of text symbols.
(elf_symtab_read): If SKIP_DATA_IN_OPD is #defined, ignore data
symbols in the .opd section.
* ppc-linux-nat.c (PTRACE_XFER_TYPE): Change the default for this
to 'long'.
(PPC_PTRACE_POKEUSR_3264, PPC_PTRACE_PEEKUSR_3264,
PPC_PTRACE_POKEDATA_3264, PPC_PTRACE_PEEKDATA_3264): Provide
default definitions for these.
(ARCH64): New macro.
(ppc_wordsize_pid): New function.
(kernel_u_size): Handle 64-bit case.
(ppc_register_u_addr): Same.
(fetch_register): Use the *_3264 requests when
debugging a 64-bit process from a 32-bit GDB.
(store_register): Same.
(GDB_MAX_ALLOCA, child_xfer_memory, udot_info): Copied from
infptrace.c.
(_initialize_ppc_linux_nat): New function, to register our copy of
the udot_info command.
* ppc-linux-tdep.c (TDEP): New macro.
(ppc64_linux_svr4_fetch_link_map_offsets): New function.
(read_memory_addr): Copied from rs6000-tdep.c.
(ppc64_linux_convert_from_func_ptr_addr): New function.
* rs6000-tdep.c (skip_prologue): Recognize more instructions for
saving the 'lr' and 'cr' registers; don't just pre-emptively mask
in the 'st' opcode as soon as we see an 'mflr' or 'mfcr' opcode.
Recognize more instructions for updating the stack pointer, and
loading the TOC pointer.
(registers_powerpc64, registers_a35): New register tables.
(rs6000_gdbarch_init): Register the 64-bit solib functions.
* solib-svr4.c (solib_break_names): If SOLIB_BREAK_NAME is
#defined, include an entry for it.
(enable_break): Call CONVERT_FROM_FUNC_PTR_ADDR when trying to
guess the linker's base address.
* config/powerpc/tm-linux.h
(ppc64_linux_svr4_fetch_link_map_offsets,
ppc64_linux_convert_from_func_ptr_addr): New declarations.
Diffstat (limited to 'gdb/gdbtk/library/helpviewer.tcl')
-rw-r--r-- | gdb/gdbtk/library/helpviewer.tcl | 98 |
1 files changed, 0 insertions, 98 deletions
diff --git a/gdb/gdbtk/library/helpviewer.tcl b/gdb/gdbtk/library/helpviewer.tcl deleted file mode 100644 index c7237255200..00000000000 --- a/gdb/gdbtk/library/helpviewer.tcl +++ /dev/null @@ -1,98 +0,0 @@ -# Open a viewer for HTML help info -# Copyright 2002, Red Hat, Inc. -# -# This program is free software; you can redistribute it and/or modify it -# under the terms of the GNU General Public License (GPL) as published by -# the Free Software Foundation; either version 2 of the License, or (at -# your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. - -# ------------------------------------------------------------------------------ -# NAME: public proc open_help -# SYNOPSIS: open_help file -# DESC: Opens html help file using an appropriate -# browser. -# ------------------------------------------------------------------------------ - -proc open_help {hfile} { - debug $hfile - # create full pathname link - set link file://[file join $::GDBTK_LIBRARY help $hfile] - - # windows is easy - if {$::tcl_platform(platform) == "windows"} { - ide_shell_execute open $link - return - } - - # - # for Unix, we never know what is installed - # - - # set list of viewer apps to try - switch [pref get gdb/compat] { - "KDE" { - set apps {htmlview khelpcenter mozilla} - } - "GNOME" { - set apps {htmlview mozilla gnome-help khelpcenter} - } - default { - set apps {htmlview mozilla gnome-help khelpcenter netscape} - } - } - - # If the user has previously entered a browser name, append it - # to the list. Should it go first or last? - set bname [pref get gdb/help/browsername] - if {$bname != ""} { - lappend apps $bname - } - - # now loop through list checking each application - foreach app $apps { - debug "app=$app" - if {[catch "exec $app $link &" result]} { - debug "$app failed: $result" - } else { - return - } - } - - # if we reached here, nothing worked, so prompt for a name - set text "No help browser was found on your system.\n\ -Please enter the name of an HTML viewer application." - while {[set app [prompt_helpname $text]] != "0"} { - if {$app != ""} { - if {[catch "exec $app $link &" result]} { - dbug W "$app failed: $result" - set text "Could not run application $app.\n\ -Please enter the name of an HTML viewer application." - } else { - pref set gdb/help/browsername $app - return - } - } - } -} - -# displays an entry dialog and asks for the name of an application -# returns 0 on cancel -# name on success -proc prompt_helpname {text} { - iwidgets::promptdialog .pd -title "Browser Query" -modality application \ - -labeltext $text - if {[.pd activate]} { - set app [string trim [.pd get]] - destroy .pd - return $app - } - destroy .pd - debug "cancelled" - return 0 -} - |