diff options
Diffstat (limited to 'gdb/gdbtk/plugins/intel-pentium')
-rw-r--r-- | gdb/gdbtk/plugins/intel-pentium/ChangeLog | 37 | ||||
-rw-r--r-- | gdb/gdbtk/plugins/intel-pentium/Makefile.in | 6 | ||||
-rw-r--r-- | gdb/gdbtk/plugins/intel-pentium/cpuinfo.tcl | 33 | ||||
-rw-r--r-- | gdb/gdbtk/plugins/intel-pentium/intel-pentium.tcl.in | 4 | ||||
-rw-r--r-- | gdb/gdbtk/plugins/intel-pentium/msrselection.itb | 192 | ||||
-rw-r--r-- | gdb/gdbtk/plugins/intel-pentium/msrselection.ith | 38 | ||||
-rw-r--r-- | gdb/gdbtk/plugins/intel-pentium/pkgIndex.tcl | 1 | ||||
-rw-r--r-- | gdb/gdbtk/plugins/intel-pentium/tclIndex | 17 |
8 files changed, 0 insertions, 328 deletions
diff --git a/gdb/gdbtk/plugins/intel-pentium/ChangeLog b/gdb/gdbtk/plugins/intel-pentium/ChangeLog deleted file mode 100644 index 439d8856026..00000000000 --- a/gdb/gdbtk/plugins/intel-pentium/ChangeLog +++ /dev/null @@ -1,37 +0,0 @@ -2002-08-14 Keith Seitz <keiths@redhat.com> - - Merged from Red Hat internal branch: - - 2001-11-30 Keith Seitz <keith@redhat.com> - * Makefile.in: New file. - * intel-pentium.tcl: Renamed to intel-pentium.tcl.in. - * plugins.tcl: This plugin is only available on non-native targets. - Append to ../plugins.tcl and remove. - - 2001-11-28 Ian Roxborough <irox@redhat.com> - * cpuinfo.tcl (display_cpu_info): exec the gdb command - "info cpu" to get the extra cpuinformation (CPU ID). - * library/plugins/intel-pentium/msrselection.itb - (MsrSelDlg::build_win): Switch the OK and Cancel buttons - around to improve ease of use. - * plugins.tcl: Use "$::GDBStartup" rather than "$GDBStartup". - Create a sub menu in the plugins menu called "Intel Pentium" - and place the menu items in it. - - 2001-11-21 Ian Roxborough <irox@redhat.com> - * msrselection.itb (MsrSelDlg::list_msrs): Use - "set msr-pointer" instead of "set msr". - (MsrSelDlg::doit): Set the msr-pointer before calling - unpost. Display an error message is we can't set the - msr-pointer. - - 2001-11-16 Ian Roxborough <irox@redhat.com> - * cpuinfo.tcl: New file. - * intel-pentium.tcl: Ditto. - * cpuinfo.tcl: Ditto. - * msrselection.itb: Ditto. - * msrselection.ith: Ditto. - * pkgIndex.tcl: Ditto. - * plugins.tcl: Ditto. - * tclIndex: Ditto. - diff --git a/gdb/gdbtk/plugins/intel-pentium/Makefile.in b/gdb/gdbtk/plugins/intel-pentium/Makefile.in deleted file mode 100644 index 79613d9f1da..00000000000 --- a/gdb/gdbtk/plugins/intel-pentium/Makefile.in +++ /dev/null @@ -1,6 +0,0 @@ -# Plugin definitions -PLUGIN = intel-pentium -PLUGIN_INSTALL_SRCDIR = cpuinfo.tcl \ - msrselection.ith \ - msrselection.itb - diff --git a/gdb/gdbtk/plugins/intel-pentium/cpuinfo.tcl b/gdb/gdbtk/plugins/intel-pentium/cpuinfo.tcl deleted file mode 100644 index 8f78ae15ea8..00000000000 --- a/gdb/gdbtk/plugins/intel-pentium/cpuinfo.tcl +++ /dev/null @@ -1,33 +0,0 @@ -# Display CPU information. -# Copyright 1999, 2000, 2001 Red Hat, Inc. -# -# Written by Fernando Nasser <fnasser@redhat.com> -# -# 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: proc display_cpu_info -# DESCRIPTION: display what we know about the target CPU -# if the information is available. -# -# ARGUMENTS: None -# RETURNS: Nothing -# -# NOTES: -# ------------------------------------------------------------------ -proc display_cpu_info {} { - global gdb_cpuid_info - if {[catch {gdb_cmd "info cpu"} result]} { - tk_messageBox -message "CPU information not available" - } else { - tk_messageBox -message "$result" - } -} diff --git a/gdb/gdbtk/plugins/intel-pentium/intel-pentium.tcl.in b/gdb/gdbtk/plugins/intel-pentium/intel-pentium.tcl.in deleted file mode 100644 index 77b737647af..00000000000 --- a/gdb/gdbtk/plugins/intel-pentium/intel-pentium.tcl.in +++ /dev/null @@ -1,4 +0,0 @@ -package provide INTELPENTIUM 1.0 -set dirname [file dirname [info script]] -lappend auto_path $dirname -#catch {load [file join $dirname intel-pentium@TCL_SHLIB_SUFFIX@]} diff --git a/gdb/gdbtk/plugins/intel-pentium/msrselection.itb b/gdb/gdbtk/plugins/intel-pentium/msrselection.itb deleted file mode 100644 index 365a3ef02e7..00000000000 --- a/gdb/gdbtk/plugins/intel-pentium/msrselection.itb +++ /dev/null @@ -1,192 +0,0 @@ -# Implements MSR selection dialog class for Insight. -# Copyright 1999, 2000, 2001 Red Hat, Inc. -# -# Written by Fernando Nasser <fnasser@redhat.com> -# -# 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: MsrSelDlg::constructor -# DESCRIPTION: Create a new MSR Selection dialog window. -# -# ARGUMENTS: None -# RETURNS: Nothing -# ------------------------------------------------------------------ -body MsrSelDlg::constructor {args} { - - window_name "MSR Selection" - build_win - eval itk_initialize $args - -} - -# ------------------------------------------------------------------ -# NAME: protected method MsrSelDlg::build_win -# DESCRIPTION: Builds the MSR dialog window from widgets. -# -# ARGUMENTS: None -# RETURNS: Nothing -# -# NOTES: This method should only be called once for -# each MsrSelDlg. -# ------------------------------------------------------------------ -body MsrSelDlg::build_win {} { - - # CHOOSE_MSR: the list box with list of MSRs. Also an entry - # for typing in the MSR by hand. - - itk_component add choose_msr { - iwidgets::scrolledlistbox $itk_interior.cmsr -visibleitems 30x15 \ - -labeltext "Choose MSR" -labelpos nw \ - -labelrelief groove -labelborderwidth 2 \ - -ipadx 8 -ipady 6 -childsitepos s -hscrollmode none \ - -textbackground white -exportselection 0 \ - -selectioncommand [code $this select_msr] \ - -dblclickcommand [code $this doit] - } - - # MSR_ENTRY: this is the MSR entry box. You can enter the MSR register name - # by hand here, or click on the listbox to have it entered for you. - - itk_component add msr_entry { - iwidgets::entryfield [$itk_component(choose_msr) childsite].lab \ - -labeltext MSR: -textbackground white \ - -focuscommand [code $this clear_msr_selection] \ - -command [code $this doit] - } - pack $itk_component(msr_entry) -fill x -side bottom -pady 4 - - itk_component add button_box { - frame $itk_interior.b - } - - itk_component add ok { - button $itk_component(button_box).ok -text OK -command [code $this doit] - } - $itk_component(ok) configure -state disabled - - itk_component add cancel { - button $itk_component(button_box).cancel -text Cancel \ - -command [code $this cancel] - } - - ::standard_button_box $itk_component(button_box) - - pack $itk_component(button_box) -side bottom -fill x \ - -pady 4 -padx 4 - pack $itk_component(choose_msr) -fill both -expand 1 -pady 4 -padx 4 - - after idle [list update idletasks; $this list_msrs] - -} - -# ------------------------------------------------------------------ -# NAME: protected method MsrSelDlg::doit -# DESCRIPTION: Selects the MSR to view and unposts window. -# -# ARGUMENTS: None -# RETURNS: Nothing -# -# NOTES: -# ------------------------------------------------------------------ -body MsrSelDlg::doit {} { - set MsrSelDlg::last_button 1 - set msr [$itk_component(msr_entry) get] - set MsrSelDlg::last_msr $msr - - if {[catch {gdb_cmd "set msr-pointer $msr"} result]} { - ManagedWin::open WarningDlg -transient \ - -message [list "Could not select this $msr:\n$result"] - } - - debug "About to unpost" - unpost -} - -# ------------------------------------------------------------------ -# NAME: protected method MsrSelDlg::cancel -# DESCRIPTION: Unposts the window without selecting -# the MSR to view. -# -# ARGUMENTS: None -# RETURNS: Nothing -# -# NOTES: -# ------------------------------------------------------------------ -body MsrSelDlg::cancel {} { - set MsrSelDlg::last_button 0 - set MsrSelDlg::last_msr {} - unpost -} - -# ------------------------------------------------------------------ -# NAME: protected method MsrSelDlg::list_msrs -# DESCRIPTION: List the known MSR names. -# -# ARGUMENTS: None -# RETURNS: Nothing -# -# NOTES: -# ------------------------------------------------------------------ -body MsrSelDlg::list_msrs {{expr {}}} { - set err [catch {gdb_cmd "set msr-pointer" 1} msg ] - set msg [string trimright $msg "."] - set msrnames [split $msg ,] - set msrnames [lrange $msrnames 1 end] - - $itk_component(choose_msr) clear - set msr_list {} - - foreach name $msrnames { - lappend msr_list [list $name {set msr $name}] - $itk_component(choose_msr) insert end $name - } - - $itk_component(choose_msr) selection set 0 - select_msr -} - -# ------------------------------------------------------------------ -# NAME: protected method MsrSelDlg::select_msrs -# DESCRIPTION: Grab the selected element from the MSR listbox -# and insert the associated MSR into the entry form. -# -# ARGUMENTS: None -# RETURNS: Nothing -# -# NOTES: -# ------------------------------------------------------------------ -body MsrSelDlg::select_msr {} { - set hit [$itk_component(choose_msr) curselection] - if {$hit != ""} { - $itk_component(msr_entry) clear - $itk_component(msr_entry) insert 0 [lindex [lindex $msr_list $hit] 0] - $itk_component(ok) configure -state normal - } -} - -# ------------------------------------------------------------------ -# METHOD: clear_msr_selection - Clear the current MSR selection. -# ------------------------------------------------------------------ -# ------------------------------------------------------------------ -# NAME: protected method MsrSelDlg::clear_msrs_selection -# DESCRIPTION: Clear the current MSR selection. -# -# ARGUMENTS: None -# RETURNS: Nothing -# -# NOTES: -# ------------------------------------------------------------------ -body MsrSelDlg::clear_msr_selection {} { - $itk_component(choose_msr) selection clear 0 end - $itk_component(msr_entry) selection range 0 end -} - diff --git a/gdb/gdbtk/plugins/intel-pentium/msrselection.ith b/gdb/gdbtk/plugins/intel-pentium/msrselection.ith deleted file mode 100644 index 777472be7e6..00000000000 --- a/gdb/gdbtk/plugins/intel-pentium/msrselection.ith +++ /dev/null @@ -1,38 +0,0 @@ -# Implements MSR selection dialog class for Insight. -# Copyright 1999, 2000, 2001 Red Hat, Inc. -# -# Written by Fernando Nasser <fnasser@redhat.com> -# -# 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. - -class MsrSelDlg { - inherit ModalDialog PluginWindow - - public { - method constructor {args} - proc last_button {} {return $last_button} - proc msr {} {return $last_msr} - } - - protected { - method build_win {args} - method cancel {} - method doit {} - method list_msrs {{expr {}}} - method select_msr {} - method clear_msr_selection {} - - variable msr_list - - common last_button 0 - common last_msr {} - } -} diff --git a/gdb/gdbtk/plugins/intel-pentium/pkgIndex.tcl b/gdb/gdbtk/plugins/intel-pentium/pkgIndex.tcl deleted file mode 100644 index 58182a9676c..00000000000 --- a/gdb/gdbtk/plugins/intel-pentium/pkgIndex.tcl +++ /dev/null @@ -1 +0,0 @@ -package ifneeded INTELPENTIUM 1.0 [list source [file join $dir intel-pentium.tcl]] diff --git a/gdb/gdbtk/plugins/intel-pentium/tclIndex b/gdb/gdbtk/plugins/intel-pentium/tclIndex deleted file mode 100644 index 8b7e117e667..00000000000 --- a/gdb/gdbtk/plugins/intel-pentium/tclIndex +++ /dev/null @@ -1,17 +0,0 @@ -# Tcl autoload index file, version 2.0 -# This file is generated by the "auto_mkindex" command -# and sourced to set up indexing information for one or -# more commands. Typically each line is a command that -# sets an element in the auto_index array, where the -# element name is the name of a command and the value is -# a script that loads the command. - -set auto_index(MsrSelDlg) [list source [file join $dir msrselection.ith]] -set auto_index(::MsrSelDlg::constructor) [list source [file join $dir msrselection.itb]] -set auto_index(::MsrSelDlg::build_win) [list source [file join $dir msrselection.itb]] -set auto_index(::MsrSelDlg::doit) [list source [file join $dir msrselection.itb]] -set auto_index(::MsrSelDlg::cancel) [list source [file join $dir msrselection.itb]] -set auto_index(::MsrSelDlg::list_msrs) [list source [file join $dir msrselection.itb]] -set auto_index(::MsrSelDlg::select_msr) [list source [file join $dir msrselection.itb]] -set auto_index(::MsrSelDlg::clear_msr_selection) [list source [file join $dir msrselection.itb]] -set auto_index(display_cpu_info) [list source [file join $dir cpuinfo.tcl]] |