aboutsummaryrefslogtreecommitdiff
path: root/gdb
diff options
context:
space:
mode:
authorUlrich Weigand <uweigand@de.ibm.com>2009-07-31 15:39:24 +0000
committerUlrich Weigand <uweigand@de.ibm.com>2009-07-31 15:39:24 +0000
commit79d0a52d5db573cf4c24606f97008d8fd359a494 (patch)
tree3862a3a6e683dbd0969dffc313b85ee216f90988 /gdb
parent1ea342040ca8c774d97173848e69cf910d1c2e48 (diff)
downloadgdb-79d0a52d5db573cf4c24606f97008d8fd359a494.zip
gdb-79d0a52d5db573cf4c24606f97008d8fd359a494.tar.gz
gdb-79d0a52d5db573cf4c24606f97008d8fd359a494.tar.bz2
Fix previous check-in.
Diffstat (limited to 'gdb')
-rw-r--r--gdb/testsuite/lib/cell.exp182
1 files changed, 182 insertions, 0 deletions
diff --git a/gdb/testsuite/lib/cell.exp b/gdb/testsuite/lib/cell.exp
new file mode 100644
index 0000000..18291c7
--- /dev/null
+++ b/gdb/testsuite/lib/cell.exp
@@ -0,0 +1,182 @@
+# Copyright 2009 Free Software Foundation, Inc.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 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.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+#
+# Contributed by Markus Deuling <deuling@de.ibm.com>.
+#
+# Support library for testing the combined debugger for Linux
+# on the Cell Broadband Engine.
+
+# Compile SPU objects.
+proc gdb_compile_cell_spu {source dest type options} {
+ global board
+
+ # Save and unset multilib flags; these are not appropriate
+ # for the SPU compiler.
+ set board [target_info name]
+ set save_multilib_flag [board_info $board multilib_flags]
+ unset_board_info "multilib_flags"
+
+ set options_spu [concat $options [list compiler=spu-gcc]]
+ set ccout [gdb_compile $source $dest $type $options_spu]
+
+ set_board_info multilib_flags $save_multilib_flag
+ return $ccout
+}
+
+# Compile PPU objects. This is just like gdb_compile_pthreads, except that we
+# always add the libspe2 library for compiling Cell/B.E. programs.
+proc gdb_compile_cell_ppu {source dest type options} {
+ # We do not need to try multiple names for the pthread library
+ # -lpthread works on all Cell/B.E. systems
+ set lib "-lspe2 -lpthread"
+ set options_ppu [concat $options [list libs=$lib]]
+ return [gdb_compile $source $dest $type $options_ppu]
+}
+
+# Embed SPU executable into a PPU object.
+proc gdb_cell_embedspu {source dest options} {
+ global CC_FOR_TARGET
+
+ if [info exists CC_FOR_TARGET] {
+ set compiler $CC_FOR_TARGET
+ } else {
+ set compiler [board_info [target_info name] compiler]
+ }
+
+ # We assume the PPU compiler is called gcc or ppu-gcc,
+ # and find the appropriate embedspu based on that.
+ regsub gcc "$compiler" embedspu embedspu
+
+ # Determine default embedded symbol name from source filename.
+ set path [split "$source" /]
+ set filename [lindex $path [expr [llength $path] - 1]]
+ regsub -all -- "\[-\.\]" "$filename" "_" symbol
+
+ set options_embed [concat $options [list compiler=$embedspu]]
+ return [gdb_compile "$symbol $source $dest" "" none $options_embed]
+}
+
+# Run a test on the target to see if it supports Cell/B.E. hardware.
+# Return 0 if so, 1 if it does not.
+proc skip_cell_tests {} {
+ global skip_cell_tests_saved
+ global srcdir subdir gdb_prompt
+
+ # Use the cached value, if it exists.
+ set me "skip_cell_tests"
+ if [info exists skip_cell_tests_saved] {
+ verbose "$me: returning saved $skip_cell_tests_saved" 2
+ return $skip_cell_tests_saved
+ }
+
+ # Set up, compile, and execute a combined Cell/B.E. test program.
+ # Include the current process ID in the file names to prevent conflicts
+ # with invocations for multiple testsuites.
+ set src cell[pid].c
+ set exe cell[pid].x
+ set src_spu cell[pid]-spu.c
+ set exe_spu cell[pid]-spu.x
+
+ set f [open $src "w"]
+ puts $f "#include <libspe2.h>"
+ puts $f "extern spe_program_handle_t cell[pid]_spu_x;"
+ puts $f "int main (void) {"
+ puts $f "unsigned int entry = SPE_DEFAULT_ENTRY;"
+ puts $f "spe_context_ptr_t ctx = spe_context_create (0, NULL);"
+ puts $f "spe_program_load (ctx, &cell[pid]_spu_x);"
+ puts $f "return spe_context_run (ctx, &entry, 0, NULL, NULL, NULL); }"
+ close $f
+
+ set f [open $src_spu "w"]
+ puts $f "int main (void) { return 0; }"
+ close $f
+
+ verbose "$me: compiling testfile $src" 2
+ set compile_flags {debug nowarnings quiet}
+
+ if { [gdb_compile_cell_spu $src_spu $exe_spu executable $compile_flags] != "" } {
+ verbose "$me: compiling spu binary failed, returning 1" 2
+ return [set skip_cell_tests_saved 1]
+ }
+ if { [gdb_cell_embedspu $exe_spu $exe_spu-embed.o $compile_flags] != "" } {
+ verbose "$me: embedding spu binary failed, returning 1" 2
+ return [set skip_cell_tests_saved 1]
+ }
+ if { [gdb_compile_cell_ppu [list $src $exe_spu-embed.o] $exe executable $compile_flags] != "" } {
+ verbose "$me: compiling ppu binary failed, returning 1" 2
+ return [set skip_cell_tests_saved 1]
+ }
+ file delete $src
+ file delete $src_spu
+ file delete $exe_spu
+ file delete $exe_spu-embed.o
+
+ # Compilation succeeded so now run it via gdb.
+
+ gdb_exit
+ gdb_start
+ gdb_reinitialize_dir $srcdir/$subdir
+ gdb_load "$exe"
+ gdb_run_cmd
+ gdb_expect {
+ -re ".*Program exited normally.*${gdb_prompt} $" {
+ verbose -log "\n$me: Cell/B.E. hardware detected"
+ set skip_cell_tests_saved 0
+ }
+ -re ".*Program exited with code.*${gdb_prompt} $" {
+ verbose -log "\n$me: Cell/B.E. hardware not detected"
+ set skip_cell_tests_saved 1
+ }
+ default {
+ verbose -log "\n$me Cell/B.E. hardware not detected (default case)"
+ set skip_cell_tests_saved 1
+ }
+ }
+ gdb_exit
+ remote_file build delete $exe
+
+ verbose "$me: returning $skip_cell_tests_saved" 2
+ return $skip_cell_tests_saved
+}
+
+# Delete all breakpoints and stop on the next new SPU thread
+proc cont_spu_main { } {
+ delete_breakpoints
+ gdb_test "set spu stop-on-load on"
+ gdb_test "continue" \
+ "Continuing.*Temporary breakpoint .*main .*" \
+ "continue to SPU main"
+}
+
+# Continue to MARKER
+proc c_to { marker srcfile } {
+ set line [gdb_get_line_number $marker $srcfile]
+ gdb_test "break $line" \
+ "Breakpoint.*at.*file.*$srcfile.*line $line.*" \
+ "break $line"
+ gdb_test "continue" \
+ "Continuing.*Breakpoint.*at.*$srcfile.*$line.*" \
+ "continue to $line"
+}
+
+# Check if the current thread has SPU architecture
+proc check_spu_arch { msg } {
+ if { $msg == "" } {
+ set msg "spu architecture is spu256K"
+ }
+ gdb_test "show architecture" \
+ "The target architecture is set automatically.*currently spu:256K.*" \
+ $msg
+}