]>
Commit | Line | Data |
---|---|---|
f646eef4 FF |
1 | if $tracelevel then { |
2 | strace $tracelevel | |
3 | } | |
4 | ||
5 | set prms_id 0 | |
6 | set bug_id 0 | |
7 | ||
8 | set testfile mips_pro | |
9 | set srcfile ${srcdir}/$subdir/${testfile}.c | |
10 | set binfile ${objdir}/${subdir}/${testfile} | |
11 | ||
12 | # Create and source the file that provides information about the compiler | |
13 | # used to compile the test case. | |
14 | execute_anywhere "rm -f ${binfile}.ci" | |
15 | if { [compile "-E ${srcdir}/${subdir}/compiler.c >> ${binfile}.ci"] != "" } { | |
16 | perror "Couldn't make ${binfile}.ci" | |
17 | return -1 | |
18 | } | |
19 | source ${binfile}.ci | |
20 | ||
21 | gdb_exit | |
22 | gdb_start | |
23 | gdb_reinitialize_dir $srcdir/$subdir | |
24 | gdb_load ${binfile} | |
25 | ||
26 | # This test must be compiled with -O2 if using gcc. | |
27 | ||
28 | if {$gcc_compiled} then { | |
29 | if { [compile "${srcfile} -O2 -g -o ${binfile}"] != "" } { | |
30 | perror "Couldn't compile ${srcfile} with -O2" | |
31 | return -1 | |
32 | } | |
33 | } else { | |
34 | if { [compile "${srcfile} -g -o ${binfile}"] != "" } { | |
35 | perror "Couldn't compile ${srcfile}" | |
36 | return -1 | |
37 | } | |
38 | } | |
39 | ||
40 | gdb_reinitialize_dir $srcdir/$subdir | |
41 | gdb_load $binfile | |
42 | ||
43 | if [runto middle] then { | |
44 | # PR 3016 | |
45 | if {$gcc_compiled} then { setup_xfail "hppa*-*-*" } | |
46 | gdb_test "backtrace" "#0.*middle.*#1.*top.*#2.*main.*" | |
47 | } | |
48 | return 0 |