1# Copyright 1999-2016 Free Software Foundation, Inc. 2 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 5# the Free Software Foundation; either version 3 of the License, or 6# (at your option) any later version. 7# 8# This program is distributed in the hope that it will be useful, 9# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# GNU General Public License for more details. 12# 13# You should have received a copy of the GNU General Public License 14# along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16 17 18# test only on a remote target board 19if {! [is_remote target]} { 20 return 21} 22 23standard_testfile .c 24 25gdb_start 26 27set result [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] 28if {$result != "" } then { 29 untested remote.exp 30 return -1 31} 32 33 34# 35# Part ONE: Check the down load commands 36# 37 38gdb_test "show remote memory-write-packet-size" \ 39 "The memory-write-packet-size is 0. Packets are limited to \[0-9\]+ bytes." \ 40 "write-packet default" 41 42gdb_test "set remote memory-write-packet-size" \ 43 "Argument required .integer, `fixed' or `limited'.\." \ 44 "set write-packet - NULL" 45 46gdb_test_no_output "set remote memory-write-packet-size 20" 47gdb_test "show remote memory-write-packet-size" \ 48 "The memory-write-packet-size is 20. Packets are limited to 20 bytes." \ 49 "set write-packet - small" 50 51gdb_test_no_output "set remote memory-write-packet-size 1" 52gdb_test "show remote memory-write-packet-size" \ 53 "The memory-write-packet-size is 1. Packets are limited to 20 bytes." \ 54 "set write-packet - very-small" 55 56# 57# Part TWO: Check the download behavour 58# 59 60proc gdb_load_timed {executable class writesize} { 61 global test gdb_prompt 62 set test "timed download `[file tail $executable]' - $class, $writesize" 63 64 if {$writesize != ""} then { 65 gdb_test_no_output "set remote memory-write-packet-size $writesize" \ 66 "$test - set packet size" 67 68 send_gdb "set remote memory-write-packet-size $class\n" 69 gdb_expect 5 { 70 -re ".*Change the packet size.*$" { 71 send_gdb "y\n" 72 gdb_expect 5 { 73 -re ".*$gdb_prompt $" { 74 pass "$test - set write size class" 75 } 76 timeout { 77 fail "$test - set write size class" 78 return 79 } 80 } 81 } 82 -re ".*$gdb_prompt $" { } 83 timeout { 84 fail "$test - set write size class" 85 return 86 } 87 } 88 } 89 90 # Do not try to load using fixed sizes; we may overflow the remote target. 91 if { $class == "fixed" } { 92 return 93 } 94 95 set load_begin_time [clock clicks] 96 set result [gdb_load $executable] 97 set load_end_time [clock clicks] 98 if { $result != 0 } then { 99 fail "$test - loading executable" 100 return 101 } 102 verbose "$test - time [expr ($load_end_time - $load_begin_time) / 1000] ms" 103 pass $test 104} 105 106# Typically about 400-1 bytes can be downloaded 107gdb_load_timed $binfile "limit" 398 108gdb_load_timed $binfile "limit" 400 109 110# Absolute max is 16384 111gdb_load_timed $binfile "fixed" 0 112gdb_load_timed $binfile "fixed" 16385 113 114# fall back to the default 115gdb_load_timed $binfile "limit" 0 116 117# Get size of data uploaded 118 119# 120# Query GDB for the size of various types 121# 122 123# Get the size of random_data table (defaults to 48K). 124set sizeof_random_data [get_sizeof "random_data" 48*1024] 125 126# 127# Part THREE: Check the upload behavour 128# 129if ![runto_main] then { 130 fail "Cannot run to main" 131} 132 133# Carefully check memory around each of the most common packet edge 134# conditions 135 136gdb_test "x/8ub random_data" \ 137 "<random_data>:\[ \t\]+60\[ \t\]+74\[ \t\]+216\[ \t\]+38\[ \t\]+149\[ \t\]+49\[ \t\]+207\[ \t\]+44" 138 139gdb_test "x/8ub random_data + 400 - 4" \ 140 "<random_data\\+396>:\[ \t\]+185\[ \t\]+255\[ \t\]+50\[ \t\]+140\[ \t\]+237\[ \t\]+172\[ \t\]+143\[ \t\]+93" 141 142if {$sizeof_random_data > 16380 } then { 143 gdb_test "x/8ub random_data + 16384 - 4" \ 144 "<random_data\\+16380>:\[ \t\]+178\[ \t\]+180\[ \t\]+135\[ \t\]+93\[ \t\]+70\[ \t\]+62\[ \t\]+205\[ \t\]+76" 145} 146 147# Read a chunk just larger than the packet size (reduce the packet 148# size to make life easier) 149gdb_test_no_output "set remote memory-read-packet-size 16" 150 151gdb_test "show remote memory-read-packet-size" \ 152 "The memory-read-packet-size is 16. Packets are limited to 20 bytes." 153gdb_test "x/17ub random_data" \ 154 "<random_data>:\[ \t\]+60\[ \t\]+74\[ \t\]+216\[ \t\]+38\[ \t\]+149\[ \t\]+49\[ \t\]+207\[ \t\]+44.*<random_data\\+8>:\[ \t\]+124\[ \t\]+38\[ \t\]+93\[ \t\]+125\[ \t\]+232\[ \t\]+67\[ \t\]+228\[ \t\]+56.*<random_data\\+16>:\[ \t\]+161" 155 156# Regression test for gdb/15289. Make sure -1 is accepted and handled 157# as "unlimited". 158gdb_test_no_output "set remote hardware-watchpoint-limit -1" 159gdb_test_no_output "set remote hardware-breakpoint-limit -1" 160 161# This is just being thorough. Assume (at least) a 32-bit host int, 162# and make sure 32-bit INT_MAX is accepted by a zinteger command. 163gdb_test_no_output "set remote hardware-watchpoint-limit 2147483647" 164gdb_test_no_output "set remote hardware-breakpoint-limit 2147483647" 165 166gdb_exit 167