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 29 matching lines...) Expand all Loading... |
40 # Compile PPU binary. | 40 # Compile PPU binary. |
41 if { [gdb_cell_embedspu $spu_bin $spu_bin-embed.o {debug}] != "" } { | 41 if { [gdb_cell_embedspu $spu_bin $spu_bin-embed.o {debug}] != "" } { |
42 unsupported "Embedding spu binary failed." | 42 unsupported "Embedding spu binary failed." |
43 return -1 | 43 return -1 |
44 } | 44 } |
45 if { [gdb_compile_cell_ppu [list $ppu_src $spu_bin-embed.o] $ppu_bin executable
{debug}] != "" } { | 45 if { [gdb_compile_cell_ppu [list $ppu_src $spu_bin-embed.o] $ppu_bin executable
{debug}] != "" } { |
46 unsupported "Compiling ppu binary failed." | 46 unsupported "Compiling ppu binary failed." |
47 return -1 | 47 return -1 |
48 } | 48 } |
49 | 49 |
50 if [get_compiler_info ${ppu_bin}] { | 50 if [get_compiler_info] { |
51 return -1 | 51 return -1 |
52 } | 52 } |
53 | 53 |
54 # Get the adress to symbol name. If $reg | 54 # Get the adress to symbol name. If $reg |
55 # is set to 1, get address from a register. | 55 # is set to 1, get address from a register. |
56 proc get_adress_from_name { name reg } { | 56 proc get_adress_from_name { name reg } { |
57 global gdb_prompt | 57 global gdb_prompt |
58 set adr "" | 58 set adr "" |
59 | 59 |
60 if { $reg == 1 } { | 60 if { $reg == 1 } { |
(...skipping 100 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
161 | 161 |
162 # Check in SPU thread. | 162 # Check in SPU thread. |
163 check_var "test_var" 5 7 | 163 check_var "test_var" 5 7 |
164 # Check $sp register. | 164 # Check $sp register. |
165 set adr [get_adress_from_name "\$sp" 1] | 165 set adr [get_adress_from_name "\$sp" 1] |
166 set_adr_content $adr 8 | 166 set_adr_content $adr 8 |
167 test_adr_content $adr 8 | 167 test_adr_content $adr 8 |
168 | 168 |
169 gdb_exit | 169 gdb_exit |
170 return 0 | 170 return 0 |
OLD | NEW |