diff options
author | Fred Fish <fnf@specifix.com> | 1996-03-16 19:51:15 +0000 |
---|---|---|
committer | Fred Fish <fnf@specifix.com> | 1996-03-16 19:51:15 +0000 |
commit | 1b5b958124f4cfe37672eacebc284194f0e21acf (patch) | |
tree | 94f8e6bc157c6ecb7d710071e984709821416c40 /gdb/testsuite/gdb.base/langs.exp | |
parent | a1cdb7172c9716ec76655e258c32259122fd2edc (diff) | |
download | fsf-binutils-gdb-1b5b958124f4cfe37672eacebc284194f0e21acf.zip fsf-binutils-gdb-1b5b958124f4cfe37672eacebc284194f0e21acf.tar.gz fsf-binutils-gdb-1b5b958124f4cfe37672eacebc284194f0e21acf.tar.bz2 |
* gdb.base/break.exp: Fix pattern for matching "Delete all
breakpoints (y or n) ". Add "mips-dec-ultrix*" to
setup_xfail for deleting all breakpoints test. Fix various
timeout messages to include "(timeout)".
* gdb.base/callfuncs.exp: Add "i*86-*-sysv4*" to setup_xfail
for "p t_float_values2(3.14159,float_val2)".
* gdb.base/funcargs.exp: Remove "mips-sgi-irix4*" setup_xfail
for "continue to call2g" when gcc compiled.
* gdb.base/langs.exp: Remove "i*86-*-sysv4*" setup_xfail for
"up to foo in langs.exp", "show language at foo in langs.exp",
"show language at cppsub_ in langs.exp", "up to fsub in langs.exp",
and "show language at fsub in langs.exp".
* gdb.base/list.exp: Remove "*-*-sysv4*" setup_xfail for
"list line 1 in include file", "list message for lines past EOF",
"list function in include file", "list list0.h:foo", and
"list filename:function; nonexistant function".
* gdb.base/ptype.exp: Change "i*86-*-sysv4*" setup_xfail for
"whatis unnamed typedef'd enum (compiler bug in IBM's xlc)"
and "ptype t_char_array" to be for native cc only.
Diffstat (limited to 'gdb/testsuite/gdb.base/langs.exp')
-rw-r--r-- | gdb/testsuite/gdb.base/langs.exp | 41 |
1 files changed, 30 insertions, 11 deletions
diff --git a/gdb/testsuite/gdb.base/langs.exp b/gdb/testsuite/gdb.base/langs.exp index 7ac954b..8671e38 100644 --- a/gdb/testsuite/gdb.base/langs.exp +++ b/gdb/testsuite/gdb.base/langs.exp @@ -5,11 +5,29 @@ if $tracelevel then { set prms_id 0 set bug_id 0 -set binfile $objdir/$subdir/langs +set testfile langs +set binfile ${objdir}/${subdir}/${testfile} +if { [compile "${srcdir}/${subdir}/langs0.c -g -c -o ${binfile}0.o "] != "" } { + perror "Couldn't compile langs0.c to object" + return -1 +} +if { [compile "${srcdir}/${subdir}/langs1.c -g -c -o ${binfile}1.o "] != "" } { + perror "Couldn't compile langs1.c to object" + return -1 +} +if { [compile "${srcdir}/${subdir}/langs2.c -g -c -o ${binfile}2.o "] != "" } { + perror "Couldn't compile langs2.c to object" + return -1 +} +if { [compile "${binfile}0.o ${binfile}1.o ${binfile}2.o -o ${binfile}"] != "" } { + perror "Couldn't link langs." + return -1 +} -if ![file exists $binfile] then { - perror "$binfile does not exist." - return 0 +execute_anywhere "rm -f ${binfile}.ci" +if { [compile "-E ${srcdir}/${subdir}/compiler.c > ${binfile}.ci"] != "" } { + perror "Couldn't make ${testfile}.ci file" + return -1 } gdb_exit @@ -17,12 +35,14 @@ gdb_start gdb_reinitialize_dir $srcdir/$subdir gdb_load $binfile -source gdb.base/langs0.ci +source ${binfile}.ci gdb_test "b langs0" {Function "langs0" not defined\.} \ "break on nonexistent function in langs.exp" if [runto csub] then { + global noresults + gdb_test "show language" "currently c\".*" \ "show language at csub in langs.exp" # On some machines, foo doesn't get demangled because the N_SOL for @@ -30,32 +50,29 @@ if [runto csub] then { # the following regexps are kludged to accept foo__Fi as well as foo, # even though only the latter is correct. I haven't tried to xfail it # because it depends on details of the compiler. + + if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" } gdb_test "bt" "#0.*csub.*#1.*(foo|foo__Fi) \\(.*#2.*cppsub_ .*#3.*fsub.*#4.*langs0__2do \\(.*#5 \[0-9a-fx\]* in main.*" "backtrace in langs.exp" if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" } - setup_xfail "i*86-*-sysv4*" gdb_test "up" ".* in (foo|foo__Fi) .* at langs2\\.cxx.*return csub \\(.*" \ "up to foo in langs.exp" - setup_xfail "i*86-*-sysv4*" gdb_test "show language" "currently c\\+\\+.*" \ "show language at foo in langs.exp" - setup_xfail "i*86-*-sysv4*" if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" } gdb_test "up" ".* in cppsub_ .* at langs2\\.cxx.*return foo \\(.*" \ "up to cppsub_ in langs.exp" - setup_xfail "i*86-*-sysv4*" gdb_test "show language" "currently c\\+\\+.*" \ "show language at cppsub_ in langs.exp" - setup_xfail "i*86-*-sysv4*" if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" } gdb_test "up" ".* in fsub.* at langs1\\.f.*return \\(cppsub .*" \ "up to fsub in langs.exp" - setup_xfail "i*86-*-sysv4*" gdb_test "show language" "currently fortran.*" \ "show language at fsub in langs.exp" + if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" } gdb_test "up" ".* in langs0__2do .* at .*langs0\\.c.*return fsub.*" \ "up to langs0__2do in langs.exp" gdb_test "show language" "currently c\".*" \ @@ -66,6 +83,8 @@ if [runto csub] then { gdb_test "show language" "currently c\".*" \ "show language at main in langs.exp" + if $noresults==1 then { return } + gdb_test "cont" "Program exited normally\\." \ "continue to exit in langs.exp" } |