OLD | NEW |
1 # Copyright 1999-2005, 2007-2012 Free Software Foundation, Inc. | 1 # Copyright 1999-2005, 2007-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 15 matching lines...) Expand all Loading... |
26 # | 26 # |
27 | 27 |
28 load_lib mi-support.exp | 28 load_lib mi-support.exp |
29 set MIFLAGS "-i=mi2" | 29 set MIFLAGS "-i=mi2" |
30 | 30 |
31 gdb_exit | 31 gdb_exit |
32 if [mi_gdb_start] { | 32 if [mi_gdb_start] { |
33 continue | 33 continue |
34 } | 34 } |
35 | 35 |
36 set testfile "basics" | 36 standard_testfile basics.c |
37 set srcfile ${testfile}.c | 37 |
38 set binfile ${objdir}/${subdir}/mi2-basics | |
39 set escapedobjdir [string_to_regexp ${objdir}] | 38 set escapedobjdir [string_to_regexp ${objdir}] |
40 set envirodir [string_to_regexp ${objdir}/${subdir}] | 39 set envirodir [string_to_regexp ${objdir}/${subdir}] |
41 | 40 |
42 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
ug additional_flags=-DFAKEARGV}] != "" } { | 41 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
ug}] != "" } { |
43 untested mi2-basics.exp | 42 untested mi2-basics.exp |
44 return -1 | 43 return -1 |
45 } | 44 } |
46 | 45 |
47 # In this file we want to test if the operations needed by the following | 46 # In this file we want to test if the operations needed by the following |
48 # procedures work, so it makes no sense using them here. | 47 # procedures work, so it makes no sense using them here. |
49 | 48 |
50 # mi_delete_breakpoints | 49 # mi_delete_breakpoints |
51 # mi_gdb_reinitialize_dir $srcdir/$subdir | 50 # mi_gdb_reinitialize_dir $srcdir/$subdir |
52 # mi_gdb_load ${binfile} | 51 # mi_gdb_load ${binfile} |
(...skipping 168 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
221 if { [test_mi_interpreter_selection] | 220 if { [test_mi_interpreter_selection] |
222 && [test_exec_and_symbol_mi_operatons] } { | 221 && [test_exec_and_symbol_mi_operatons] } { |
223 test_breakpoints_deletion | 222 test_breakpoints_deletion |
224 test_dir_specification | 223 test_dir_specification |
225 test_cwd_specification | 224 test_cwd_specification |
226 test_path_specification | 225 test_path_specification |
227 } | 226 } |
228 | 227 |
229 mi_gdb_exit | 228 mi_gdb_exit |
230 return 0 | 229 return 0 |
OLD | NEW |