OLD | NEW |
1 # Copyright 1998-1999, 2002-2004, 2007-2012 Free Software Foundation, | 1 # Copyright 1998-1999, 2002-2004, 2007-2012 Free Software Foundation, |
2 # Inc. | 2 # Inc. |
3 | 3 |
4 # This program is free software; you can redistribute it and/or modify | 4 # This program is free software; you can redistribute it and/or modify |
5 # it under the terms of the GNU General Public License as published by | 5 # it under the terms of the GNU General Public License as published by |
6 # the Free Software Foundation; either version 3 of the License, or | 6 # the Free Software Foundation; either version 3 of the License, or |
7 # (at your option) any later version. | 7 # (at your option) any later version. |
8 # | 8 # |
9 # This program is distributed in the hope that it will be useful, | 9 # This program is distributed in the hope that it will be useful, |
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 10 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
(...skipping 28 matching lines...) Expand all Loading... |
39 # "p \"break1." unambiguous (should complete to "break1.c" but does not, | 39 # "p \"break1." unambiguous (should complete to "break1.c" but does not, |
40 # due to readline limitations) | 40 # due to readline limitations) |
41 # "p 'arg" ambiguous (all symbols starting with arg) | 41 # "p 'arg" ambiguous (all symbols starting with arg) |
42 # "p b-arg" ambiguous (all symbols starting with arg) | 42 # "p b-arg" ambiguous (all symbols starting with arg) |
43 # "p b-" ambiguous (all symbols) | 43 # "p b-" ambiguous (all symbols) |
44 # "file Make" "file" (word break hard to screw up here) | 44 # "file Make" "file" (word break hard to screw up here) |
45 # "file ../gdb.stabs/we" "ird" (needs to not break word at slash) | 45 # "file ../gdb.stabs/we" "ird" (needs to not break word at slash) |
46 # | 46 # |
47 | 47 |
48 | 48 |
49 if $tracelevel then { | |
50 strace $tracelevel | |
51 } | |
52 | |
53 | |
54 global usestubs | |
55 | 49 |
56 # | 50 # |
57 # test running programs | 51 # test running programs |
58 # | 52 # |
59 | 53 |
60 set testfile "break" | 54 set testfile "break" |
61 set srcfile ${testfile}.c | 55 set srcfile ${testfile}.c |
62 set srcfile1 ${testfile}1.c | 56 set srcfile1 ${testfile}1.c |
63 set binfile ${objdir}/${subdir}/${testfile} | 57 set binfile ${objdir}/${subdir}/${testfile} |
64 | 58 |
65 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object {debu
g nowarnings}] != "" } { | 59 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object {debu
g nowarnings}] != "" } { |
66 untested completion.exp | 60 untested completion.exp |
67 return -1 | 61 return -1 |
68 } | 62 } |
69 | 63 |
70 if { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {deb
ug nowarnings}] != "" } { | 64 if { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {deb
ug nowarnings}] != "" } { |
71 untested completion.exp | 65 untested completion.exp |
72 return -1 | 66 return -1 |
73 } | 67 } |
74 | 68 |
75 if { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug
nowarnings}] != "" } { | 69 if { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug
nowarnings}] != "" } { |
76 untested completion.exp | 70 untested completion.exp |
77 return -1 | 71 return -1 |
78 } | 72 } |
79 | 73 |
80 if [get_compiler_info ${binfile}] { | 74 if [get_compiler_info] { |
81 return -1; | 75 return -1; |
82 } | 76 } |
83 | 77 |
84 gdb_exit | 78 gdb_exit |
85 | 79 |
86 gdb_start | 80 gdb_start |
87 gdb_reinitialize_dir $srcdir/$subdir | 81 gdb_reinitialize_dir $srcdir/$subdir |
88 gdb_load ${binfile} | 82 gdb_load ${binfile} |
89 | 83 |
90 if ![runto_main] then { | 84 if ![runto_main] then { |
(...skipping 565 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
656 # If there is a non-deprecated completion, it should be returned. | 650 # If there is a non-deprecated completion, it should be returned. |
657 gdb_test "complete sav" "save" "test non-deprecated completion" | 651 gdb_test "complete sav" "save" "test non-deprecated completion" |
658 # If there is only a deprecated completion, then it should be returned. | 652 # If there is only a deprecated completion, then it should be returned. |
659 gdb_test "complete save-t" "save-tracepoints" "test deprecated completion" | 653 gdb_test "complete save-t" "save-tracepoints" "test deprecated completion" |
660 | 654 |
661 | 655 |
662 # Restore globals modified in this test... | 656 # Restore globals modified in this test... |
663 set timeout $oldtimeout1 | 657 set timeout $oldtimeout1 |
664 | 658 |
665 return 0 | 659 return 0 |
OLD | NEW |