X-Git-Url: http://git.efficios.com/?a=blobdiff_plain;f=gdb%2Ftestsuite%2Fgdb.base%2Flist.exp;h=11aafd95e2e39da56fdc28de323770baf81193b2;hb=4ec7020176a1aaae1adeeb1e1695975ebdc172ea;hp=96ca198efa0c429865c8f80e162d1ac07fef570c;hpb=c5da8c7d174e38282889094b86153721fe3f5aca;p=deliverable%2Fbinutils-gdb.git diff --git a/gdb/testsuite/gdb.base/list.exp b/gdb/testsuite/gdb.base/list.exp index 96ca198efa..11aafd95e2 100644 --- a/gdb/testsuite/gdb.base/list.exp +++ b/gdb/testsuite/gdb.base/list.exp @@ -57,18 +57,18 @@ set last_line_re "${last_line}\[ \t\]+} /\\* last line \\*/" # Return 1 if success, 0 if fail. # -set set_listsize_count 0; +set set_listsize_count 0 proc set_listsize { arg } { global gdb_prompt - global set_listsize_count; + global set_listsize_count - incr set_listsize_count; + incr set_listsize_count if [gdb_test_no_output "set listsize $arg" "setting listsize to $arg #$set_listsize_count"] { return 0 } if { $arg == 0 } { - set arg "unlimited"; + set arg "unlimited" } if [gdb_test "show listsize" "Number of source lines.* is ${arg}.*" "show listsize $arg #$set_listsize_count"] { @@ -198,7 +198,7 @@ proc test_list_filename_and_number {} { timeout { fail "list list1.c:12 (timeout)" ; gdb_suppress_tests } } pass "list filename:number ($testcnt tests)" - gdb_stop_suppressing_tests; + gdb_stop_suppressing_tests } # @@ -258,7 +258,7 @@ proc test_list_forward {} { } pass "successive list commands to page forward ($testcnt tests)" - gdb_stop_suppressing_tests; + gdb_stop_suppressing_tests } # Test that repeating the list linenum command doesn't print the same @@ -301,7 +301,7 @@ proc test_repeat_list_command {} { } pass "repeat list commands to page forward using 'return' ($testcnt tests)" - gdb_stop_suppressing_tests; + gdb_stop_suppressing_tests } proc test_list_backwards {} { @@ -338,7 +338,7 @@ proc test_list_backwards {} { } pass "$testcnt successive \"list -\" commands to page backwards" - gdb_stop_suppressing_tests; + gdb_stop_suppressing_tests } #