From: Jim Blandy <jimb@codesourcery.com>
Date: Fri, 22 Nov 2002 19:32:02 +0000 (+0000)
Subject: Revert change committed due to a misunderstanding.
X-Git-Tag: gdb_5_3-2002-12-12-release~43
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2538ee9f619dbd076e348e6f2f2482addcc9b6e0;p=thirdparty%2Fbinutils-gdb.git

Revert change committed due to a misunderstanding.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 03b1c0b61ce..0a752ff9522 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -2,17 +2,6 @@
 
 	* gdb.base/maint.exp (help maint dump-me): Update with typo fix.
 
-2002-11-13  Jim Blandy  <jimb@redhat.com>
-
-	* gdb.base/step-line.exp: Check that GDB can handle filenames that
-	appear in the line number info, but not in the preprocessor macro
-	info.
-
-	* lib/gdb.exp (gdb_internal_error_regexp): New variable.
-	(gdb_internal_error_resync): New procedure.
-        (gdb_test): If the command results in an internal error,
-        answer GDB's questions until we get back to a prompt.
-
 2002-09-04  Andrew Cagney  <ac131313@redhat.com>
 
 	* gdb.base/pc-fp.exp, gdb.base/pc-fp.c: New test.
diff --git a/gdb/testsuite/gdb.base/step-line.exp b/gdb/testsuite/gdb.base/step-line.exp
index 637f2af48a7..cac3128fcec 100644
--- a/gdb/testsuite/gdb.base/step-line.exp
+++ b/gdb/testsuite/gdb.base/step-line.exp
@@ -53,15 +53,6 @@ gdb_test "continue" \
 gdb_test "next" \
          ".*i = f2 \\(i\\);.*" \
 	 "next over dummy 1"
-
-# As of Oct 2002, GCC does record the effect of #line directives in
-# the source line info, but not in macro info.  This means that GDB's
-# symtabs (built from the former, among other things) may mention
-# filenames that GDB's macro tables (built from the latter) don't have
-# any record of.  Make sure GDB can handle this by trying to evaluate
-# an expression, which will do a macro expansion.
-gdb_test "print i" ".* = 4.*" 
-
 gdb_test "next" \
          ".*dummy \\(2, i\\);.*" \
 	 "next to dummy 2"
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 356875689a0..ea73401479f 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -370,57 +370,6 @@ proc gdb_continue_to_breakpoint {name} {
 }
 
 
-# A regular expression matching the output GDB produces when it
-# reports an internal error.
-set gdb_internal_error_regexp ".*An internal GDB error was detected"
-
-
-# gdb_internal_error_resync TESTNAME
-#
-# Answer the questions GDB asks after it reports an internal error
-# until we get back to a GDB prompt, as part of the test named
-# TESTNAME.  Decline to quit the debugging session, and decline to
-# create a core file.
-#
-# This procedure just answers whatever questions come up until it sees
-# a GDB prompt; it doesn't require you to have matched the input up to
-# any specific point.  However, it only answers questions it sees in
-# the output itself, so if you've matched a question, you had better
-# answer it yourself before calling this.
-#
-# The variable `gdb_internal_error_regexp' is set up to match the
-# internal error message, but none of the questions that follow it, so
-# you can write code like this:
-# 
-# gdb_expect {
-#     ...
-#     -re $gdb_internal_error_regexp {
-#         gdb_internal_error_resync "$message (internal error)"
-#     }
-#     ...
-# }
-proc gdb_internal_error_resync {testname} {
-    global gdb_prompt
-
-    gdb_expect {
-        -re "Quit this debugging session\\? \\(y or n\\) $" {
-            send_gdb "n\n"
-            exp_continue
-        }
-        -re "Create a core file containing the current state of GDB\\? \\(y or n\\) $" {
-            send_gdb "n\n"
-            exp_continue
-        }
-        -re "$gdb_prompt $" {
-            # We're resynchronized.
-        }
-        timeout {
-            fail "$testname (internal error resync timeout)"
-        }
-    }
-}
-  
-
 # gdb_test COMMAND PATTERN MESSAGE QUESTION RESPONSE
 # Send a command to gdb; test the result.
 #
@@ -445,7 +394,6 @@ proc gdb_test { args } {
     global verbose
     global gdb_prompt
     global GDB
-    global gdb_internal_error_regexp
     upvar timeout timeout
 
     if [llength $args]>2 then {
@@ -528,10 +476,6 @@ proc gdb_test { args } {
 	}
     }
     gdb_expect $tmt {
-         -re $gdb_internal_error_regexp {
-             fail "$message"
-             gdb_internal_error_resync "$message (internal error)"
-         }
 	 -re "\\*\\*\\* DOSEXIT code.*" {
 	     if { $message != "" } {
 		 fail "$message";