OLD | NEW |
1 # Copyright 2009, 2011-2012 Free Software Foundation, Inc. | 1 # Copyright 2009, 2011-2012 Free Software Foundation, Inc. |
2 # | 2 # |
3 # This program is free software; you can redistribute it and/or modify | 3 # This program is free software; you can redistribute it and/or modify |
4 # it under the terms of the GNU General Public License as published by | 4 # it under the terms of the GNU General Public License as published by |
5 # the Free Software Foundation; either version 3 of the License, or | 5 # the Free Software Foundation; either version 3 of the License, or |
6 # (at your option) any later version. | 6 # (at your option) any later version. |
7 # | 7 # |
8 # This program is distributed in the hope that it will be useful, | 8 # This program is distributed in the hope that it will be useful, |
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
(...skipping 28 matching lines...) Expand all Loading... |
39 # Compile PPU binary. | 39 # Compile PPU binary. |
40 if { [gdb_cell_embedspu $spu_bin $spu_bin-embed.o {debug}] != "" } { | 40 if { [gdb_cell_embedspu $spu_bin $spu_bin-embed.o {debug}] != "" } { |
41 unsupported "Embedding spu binary failed." | 41 unsupported "Embedding spu binary failed." |
42 return -1 | 42 return -1 |
43 } | 43 } |
44 if { [gdb_compile_cell_ppu [list $ppu_src $spu_bin-embed.o] $ppu_bin executable
{debug}] != "" } { | 44 if { [gdb_compile_cell_ppu [list $ppu_src $spu_bin-embed.o] $ppu_bin executable
{debug}] != "" } { |
45 unsupported "Compiling ppu binary failed." | 45 unsupported "Compiling ppu binary failed." |
46 return -1 | 46 return -1 |
47 } | 47 } |
48 | 48 |
49 if [get_compiler_info ${ppu_bin}] { | 49 if [get_compiler_info] { |
50 return -1 | 50 return -1 |
51 } | 51 } |
52 | 52 |
53 proc check_vector_regs {} { | 53 proc check_vector_regs {} { |
54 for {set check_reg 0} {$check_reg < 128} {incr check_reg} { | 54 for {set check_reg 0} {$check_reg < 128} {incr check_reg} { |
55 | 55 |
56 gdb_test "p \$r$check_reg" \ | 56 gdb_test "p \$r$check_reg" \ |
57 "r$check_reg.*=.*\(.*\).*" \ | 57 "r$check_reg.*=.*\(.*\).*" \ |
58 "p \$r$check_reg" | 58 "p \$r$check_reg" |
59 | 59 |
(...skipping 20 matching lines...) Expand all Loading... |
80 | 80 |
81 cont_spu_main | 81 cont_spu_main |
82 gdb_test "set language fortran" \ | 82 gdb_test "set language fortran" \ |
83 "Warning: the current language does not match this frame.*" \ | 83 "Warning: the current language does not match this frame.*" \ |
84 "set language fortran" | 84 "set language fortran" |
85 check_vector_regs | 85 check_vector_regs |
86 | 86 |
87 gdb_exit | 87 gdb_exit |
88 | 88 |
89 return 0 | 89 return 0 |
OLD | NEW |