OLD | NEW |
1 # Copyright 1992, 1994-2000, 2002-2004, 2007-2012 Free Software | 1 # Copyright 1992, 1994-2000, 2002-2004, 2007-2012 Free Software |
2 # Foundation, Inc. | 2 # Foundation, 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 |
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
12 # GNU General Public License for more details. | 12 # GNU General Public License for more details. |
13 # | 13 # |
14 # You should have received a copy of the GNU General Public License | 14 # You should have received a copy of the GNU General Public License |
15 # along with this program. If not, see <http://www.gnu.org/licenses/>. | 15 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
16 | 16 |
17 # This file was written by Fred Fish. (fnf@cygnus.com) | 17 # This file was written by Fred Fish. (fnf@cygnus.com) |
18 | 18 |
19 if $tracelevel then { | |
20 strace $tracelevel | |
21 } | |
22 | |
23 | 19 |
24 set testfile "scope" | 20 set testfile "scope" |
25 set binfile ${objdir}/${subdir}/${testfile} | 21 set binfile ${objdir}/${subdir}/${testfile} |
26 | 22 |
27 | 23 |
28 if { [gdb_compile "${srcdir}/${subdir}/scope0.c" "${binfile}0.o" object {debug}
] != "" } { | 24 if { [gdb_compile "${srcdir}/${subdir}/scope0.c" "${binfile}0.o" object {debug}
] != "" } { |
29 untested scope.exp | 25 untested scope.exp |
30 return -1 | 26 return -1 |
31 } | 27 } |
32 | 28 |
33 if { [gdb_compile "${srcdir}/${subdir}/scope1.c" "${binfile}1.o" object {debug}
] != "" } { | 29 if { [gdb_compile "${srcdir}/${subdir}/scope1.c" "${binfile}1.o" object {debug}
] != "" } { |
34 untested scope.exp | 30 untested scope.exp |
35 return -1 | 31 return -1 |
36 } | 32 } |
37 | 33 |
38 if { [gdb_compile "${binfile}0.o ${binfile}1.o" ${binfile} executable {debug}]
!= "" } { | 34 if { [gdb_compile "${binfile}0.o ${binfile}1.o" ${binfile} executable {debug}]
!= "" } { |
39 untested scope.exp | 35 untested scope.exp |
40 return -1 | 36 return -1 |
41 } | 37 } |
42 | 38 |
43 # Create and source the file that provides information about the compiler | 39 # Create and source the file that provides information about the compiler |
44 # used to compile the test case. | 40 # used to compile the test case. |
45 if [get_compiler_info ${binfile}] { | 41 if [get_compiler_info] { |
46 return -1; | 42 return -1; |
47 } | 43 } |
48 | 44 |
49 # Test locating various things when stopped just inside main, after | 45 # Test locating various things when stopped just inside main, after |
50 # running init0(). To prevent cascading of errors, we report the | 46 # running init0(). To prevent cascading of errors, we report the |
51 # first one and quit. If all pass, then we print the pass results. | 47 # first one and quit. If all pass, then we print the pass results. |
52 | 48 |
53 proc test_at_main {} { | 49 proc test_at_main {} { |
54 global gdb_prompt | 50 global gdb_prompt |
55 global decimal | 51 global decimal |
(...skipping 493 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
549 unsupported "print 'scope0.c'::filelocal_bss before run" | 545 unsupported "print 'scope0.c'::filelocal_bss before run" |
550 } else { | 546 } else { |
551 gdb_test "print 'scope0.c'::filelocal_bss" "= 0" \ | 547 gdb_test "print 'scope0.c'::filelocal_bss" "= 0" \ |
552 "print 'scope0.c'::filelocal_bss before run" | 548 "print 'scope0.c'::filelocal_bss before run" |
553 } | 549 } |
554 | 550 |
555 gdb_test "print 'scope0.c'::filelocal" "= 1" \ | 551 gdb_test "print 'scope0.c'::filelocal" "= 1" \ |
556 "print 'scope0.c'::filelocal before run" | 552 "print 'scope0.c'::filelocal before run" |
557 | 553 |
558 if [runto_main] then { test_at_main } | 554 if [runto_main] then { test_at_main } |
559 if [istarget "mips-idt-*"] then { | |
560 # Restart because IDT/SIM runs out of file descriptors. | |
561 gdb_exit | |
562 gdb_start | |
563 gdb_reinitialize_dir $srcdir/$subdir | |
564 gdb_load ${binfile} | |
565 } | |
566 if [runto foo] then { test_at_foo } | 555 if [runto foo] then { test_at_foo } |
567 if [istarget "mips-idt-*"] then { | |
568 # Restart because IDT/SIM runs out of file descriptors. | |
569 gdb_exit | |
570 gdb_start | |
571 gdb_reinitialize_dir $srcdir/$subdir | |
572 gdb_load ${binfile} | |
573 } | |
574 if [runto bar] then { test_at_bar } | 556 if [runto bar] then { test_at_bar } |
575 if [istarget "mips-idt-*"] then { | |
576 # Restart because IDT/SIM runs out of file descriptors. | |
577 gdb_exit | |
578 gdb_start | |
579 gdb_reinitialize_dir $srcdir/$subdir | |
580 gdb_load ${binfile} | |
581 } | |
582 if [runto localscopes] then { test_at_localscopes } | 557 if [runto localscopes] then { test_at_localscopes } |
583 if [istarget "mips-idt-*"] then { | |
584 # Restart because IDT/SIM runs out of file descriptors. | |
585 gdb_exit | |
586 gdb_start | |
587 gdb_reinitialize_dir $srcdir/$subdir | |
588 gdb_load ${binfile} | |
589 } | |
590 if [runto autovars] then { test_at_autovars } | 558 if [runto autovars] then { test_at_autovars } |
591 | 559 |
592 if [istarget "*-*-vxworks*"] { | 560 if [istarget "*-*-vxworks*"] { |
593 set timeout 120 | 561 set timeout 120 |
594 verbose "Timeout is now $timeout seconds" 2 | 562 verbose "Timeout is now $timeout seconds" 2 |
595 } | 563 } |
OLD | NEW |