* config/sh/tm-sh.h (BELIEVE_PCC_PROMOTION): Define, so that

[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.chill / tests1.exp

diff --git a/gdb/testsuite/gdb.chill/tests1.exp b/gdb/testsuite/gdb.chill/tests1.exp
index a26937712383cdc50ee726ff6fbfb058e23e98d9..3ede1eb08bdb5b1185242048bc34abe31e30b081 100644 (file)
--- a/gdb/testsuite/gdb.chill/tests1.exp
+++ b/gdb/testsuite/gdb.chill/tests1.exp
@@ -1,4 +1,4 @@
-# Copyright (C) 1995 Free Software Foundation, Inc.
+# Copyright (C) 1995, 1997 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -12,7 +12,7 @@
 # 
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  
 
 # Please email any bugs, comments, and/or additions to this file to:
 # bug-gdb@prep.ai.mit.edu
@@ -37,26 +37,26 @@ if  { [compile "${srcfile} -g -w -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != ""
 # fails, then we skip the other tests.
 
 proc set_lang_chill {} {
-    global prompt
+    global gdb_prompt
     global binfile objdir subdir
 
     verbose "loading file '$binfile'"
     gdb_load $binfile
-    send "set language chill\n"
-    expect {
-       -re ".*$prompt $" {}
+    send_gdb "set language chill\n"
+    gdb_expect {
+       -re ".*$gdb_prompt $" {}
        timeout { fail "set language chill (timeout)" ; return 0 }
     }
 
-    send "show language\n"
-    expect {
-       -re ".* source language is \"chill\".*$prompt $" {
+    send_gdb "show language\n"
+    gdb_expect {
+       -re ".* source language is \"chill\".*$gdb_prompt $" {
            pass "set language to \"chill\""
-           send "break dummyfunc\n"
-           expect {
-               -re ".*$prompt $" {
-                   send "run\n" 
-                   expect -re ".*$prompt $" {}
+           send_gdb "break dummyfunc\n"
+           gdb_expect {
+               -re ".*$gdb_prompt $" {
+                   send_gdb "run\n" 
+                   gdb_expect -re ".*$gdb_prompt $" {}
                    return 1
                }
                timeout {
@@ -65,7 +65,7 @@ proc set_lang_chill {} {
                }
            }
        }
-       -re ".*$prompt $" {
+       -re ".*$gdb_prompt $" {
            fail "setting language to \"chill\""
            return 0
        }
@@ -85,12 +85,12 @@ proc set_lang_chill {} {
 #
 # Args are:
 #
-#      First one is string to send to gdb
+#      First one is string to send_gdb to gdb
 #      Second one is string to match gdb result to
 #      Third one is an optional message to be printed
 
 proc test_print_accept { args } {
-    global prompt
+    global gdb_prompt
     global passcount
     global verbose
 
@@ -152,11 +152,8 @@ proc test_modes {} {
     test_print_accept "ptype r16" "long \\(-2147483648:2147483647\\)" \
        "print long range mode"
 
-    # Not sure what this should be.
-    setup_xfail "*-*-*"
     test_print_accept "ptype r2" "set1 \\(bbb:ccc\\)" \
        "print unnumbered set range mode"
-    setup_xfail "*-*-*"
     test_print_accept "ptype r3" "nset1 \\(na:na\\)" \
        "print numbered set range mode"
     # really this order ?
@@ -814,7 +811,7 @@ gdb_exit
 gdb_start
 gdb_reinitialize_dir $srcdir/$subdir
 
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings" ".*"
 
 if [set_lang_chill] then {
     test_modes