2002-03-26 Fred Fish <fnf@redhat.com>

	* gdb.base/list.exp: Revert the change made yesterday and add note
	about why we don't list the default lines for remote targets.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 3c1b3287f628112be6c0db73a939dbfe67af577b..a137347e6772c0eb0a058f983d03fc222edfb011 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-26  Fred Fish  <fnf@redhat.com>
+
+       * gdb.base/list.exp: Revert the change made yesterday and add note
+       about why we don't list the default lines for remote targets.
+
 2002-03-25  Michael Snyder  <msnyder@redhat.com>
 
        * gdb.base/help.exp: Clean up unnecessary wild cards in regexps.

diff --git a/gdb/testsuite/gdb.base/list.exp b/gdb/testsuite/gdb.base/list.exp
index 315bf0a998fdb046311d65b6e80b3d536295aa9f..9a4169c29790d39912b1c9544d1068afc3f7674f 100644 (file)
--- a/gdb/testsuite/gdb.base/list.exp
+++ b/gdb/testsuite/gdb.base/list.exp
@@ -93,9 +93,16 @@ proc test_listsize {} {
     gdb_test "show listsize" "Number of source lines gdb will list by default is 10.*" "show default list size"
     
     # Show the default lines
+    # Note that remote targets that have debugging info for _start available will
+    # list the lines there instead of main, so we skip this test for remote targets.
     # The second case is for optimized code, it is still correct.
     
-    gdb_test "list" "(1\[ \t\]+#include \"list0.h\".*10\[ \t\]+x = 0;|2.*11\[ \t\]+foo .x\[+)\]+;)" "list default lines around main"
+    if [is_remote target] {
+       runto_main;
+       unsupported "list default lines around main";
+    } else {
+       gdb_test "list" "(1\[ \t\]+#include \"list0.h\".*10\[ \t\]+x = 0;|2.*11\[ \t\]+foo .x\[+)\]+;)" "list default lines around main"
+    }
 
     # Ensure we can limit printouts to one line