testsuite: Fix false FAILs on too long base directory
authorJan Kratochvil <jan.kratochvil@redhat.com>
Mon, 11 Jan 2016 21:12:16 +0000 (22:12 +0100)
committerJan Kratochvil <jan.kratochvil@redhat.com>
Mon, 11 Jan 2016 21:12:16 +0000 (22:12 +0100)
I was getting

gu (print arg0)^M
= 0x7fffffffdafb
"/unsafebuild-x86_64-redhat-linux-gnu/gdb/testsuite.unix.-m64/outputs/gdb.guile/scm-value/scm-"...^M
(gdb) FAIL: gdb.guile/scm-value.exp: verify dereferenced value
python print (arg0)^M
0x7fffffffdafd
"/unsafebuild-x86_64-redhat-linux-gnu/gdb/testsuite.unix.-m64/outputs/gdb.python/py-value/py-v"...^M
(gdb) FAIL: gdb.python/py-value.exp: verify dereferenced value

and also:

(gdb) p argv[0]^M
$2 = 0x7fffffffd832 "/home/jkratoch/redhat/gdb-test-", 'x' <repeats 169
times>...^M
(gdb) FAIL: gdb.guile/scm-value.exp: argv[0] should be available on this
target

gdb/testsuite/ChangeLog
2016-01-11  Jan Kratochvil  <jan.kratochvil@redhat.com>

* gdb.guile/scm-value.exp (test_value_in_inferior): Set print elements
and repeats to unlimited.
* gdb.python/py-value.exp: Likewise.
* lib/gdb.exp (gdb_has_argv0): Save and temporarily set print elements
and repeats to unlimited.

31 files changed:
gdb/doc/gdb.texinfo
gdb/inferior.c
gdb/progspace.c
gdb/testsuite/ChangeLog
gdb/testsuite/gdb.base/foll-exec-mode.exp
gdb/testsuite/gdb.base/foll-fork.exp
gdb/testsuite/gdb.base/foll-vfork.exp
gdb/testsuite/gdb.base/multi-forks.exp
gdb/testsuite/gdb.guile/scm-value.exp
gdb/testsuite/gdb.mi/mi-nonstop.exp
gdb/testsuite/gdb.mi/mi-nsintrall.exp
gdb/testsuite/gdb.multi/base.exp
gdb/testsuite/gdb.multi/multi-arch.exp
gdb/testsuite/gdb.python/py-inferior.exp
gdb/testsuite/gdb.python/py-value.exp
gdb/testsuite/gdb.threads/break-while-running.exp
gdb/testsuite/gdb.threads/execl.exp
gdb/testsuite/gdb.threads/gcore-thread.exp
gdb/testsuite/gdb.threads/info-threads-cur-sal.exp
gdb/testsuite/gdb.threads/kill.exp
gdb/testsuite/gdb.threads/linux-dp.exp
gdb/testsuite/gdb.threads/multiple-step-overs.exp
gdb/testsuite/gdb.threads/next-bp-other-thread.exp
gdb/testsuite/gdb.threads/step-bg-decr-pc-switch-thread.exp
gdb/testsuite/gdb.threads/step-over-lands-on-breakpoint.exp
gdb/testsuite/gdb.threads/step-over-trips-on-watchpoint.exp
gdb/testsuite/gdb.threads/thread-find.exp
gdb/testsuite/gdb.threads/tls.exp
gdb/testsuite/lib/gdb.exp
gdb/testsuite/lib/mi-support.exp
gdb/thread.c

index 0778383280a72eb026e898759c7dfd9bfca8b0f7..fe9481dce79da51b78e6f9924e887cc07e139aa4 100644 (file)
@@ -2791,9 +2791,9 @@ example, the list of inferiors bound to the program space.
 @smallexample
 (@value{GDBP}) maint info program-spaces
   Id   Executable
-* 1    hello
   2    goodbye
         Bound inferiors: ID 1 (process 21561)
+* 1    hello
 @end smallexample
 
 Here we can see that no inferior is running the program @code{hello},
@@ -2924,9 +2924,9 @@ For example,
 @smallexample
 (@value{GDBP}) info threads
   Id   Target Id         Frame
-* 1    process 35 thread 13  main (argc=1, argv=0x7ffffff8)
-  2    process 35 thread 23  0x34e5 in sigpause ()
   3    process 35 thread 27  0x34e5 in sigpause ()
+  2    process 35 thread 23  0x34e5 in sigpause ()
+* 1    process 35 thread 13  main (argc=1, argv=0x7ffffff8)
     at threadtest.c:68
 @end smallexample
 
@@ -3241,8 +3241,8 @@ process 12020 is executing new program: prog2
 Program exited normally.
 (@value{GDBP}) info inferiors
   Id   Description   Executable
-  1    <null>        prog1
 * 2    <null>        prog2
+  1    <null>        prog1
 @end smallexample
 
 @item same
index e71104d6e90c5e9efe472d7e0905203a2e55fa19..515268f2e2add5507507dfdde6d61f030b94eaf6 100644 (file)
@@ -135,17 +135,8 @@ add_inferior_silent (int pid)
   inf->control.stop_soon = NO_STOP_QUIETLY;
 
   inf->num = ++highest_inferior_num;
-
-  if (inferior_list == NULL)
-    inferior_list = inf;
-  else
-    {
-      struct inferior *last;
-
-      for (last = inferior_list; last->next != NULL; last = last->next)
-       ;
-      last->next = inf;
-    }
+  inf->next = inferior_list;
+  inferior_list = inf;
 
   inf->environment = make_environ ();
   init_environ (inf->environment);
index 59a784658cdc4e2e112ed074b8447b16e74267d7..9a622edccc34e4225ffa1c1ae4e855b70d65836d 100644 (file)
@@ -133,16 +133,8 @@ add_program_space (struct address_space *aspace)
 
   program_space_alloc_data (pspace);
 
-  if (program_spaces == NULL)
-    program_spaces = pspace;
-  else
-    {
-      struct program_space *last;
-
-      for (last = program_spaces; last->next != NULL; last = last->next)
-       ;
-      last->next = pspace;
-    }
+  pspace->next = program_spaces;
+  program_spaces = pspace;
 
   return pspace;
 }
index ac726851ace483d4e240fdc5a4adddec5c885b84..a0eba33693491ef420950e425ead75474e909948 100644 (file)
@@ -1,3 +1,11 @@
+2016-01-11  Jan Kratochvil  <jan.kratochvil@redhat.com>
+
+       * gdb.guile/scm-value.exp (test_value_in_inferior): Set print elements
+       and repeats to unlimited.
+       * gdb.python/py-value.exp: Likewise.
+       * lib/gdb.exp (gdb_has_argv0): Save and temporarily set print elements
+       and repeats to unlimited.
+
 2016-01-08  Jan Kratochvil  <jan.kratochvil@redhat.com>
 
        * gdb.multi/goodbye.c: Fix compilation warnings by adding return types
index 41d788b2c0ee96b917cf9fe9294082c4826a490a..ad23cb5c08a27902e1b463296754db10d20932cb 100644 (file)
@@ -150,7 +150,7 @@ proc do_follow_exec_mode_tests { mode cmd infswitch } {
        if {$mode == "same"} {
            set expected_re "\\* 1.*process.*"
        } else {
-           set expected_re "  1.*null.*$testfile.*\r\n\\* 2.*process.*$testfile2 .*"
+           set expected_re "\\* 2.*process.*$testfile2 \r\n  1.*null.*$testfile.*"
        }
 
        # Check that the inferior list is correct:
index 61aefc1767d5edf9e0620685c6590aca04df0f6a..bd1df14bd950289998dc7045732222ef3419c6e8 100644 (file)
@@ -139,7 +139,7 @@ proc test_follow_fork { who detach cmd } {
 
            # Follow parent / keep child: two inferiors under debug, the
            # parent is the current inferior.
-           gdb_test "info inferiors" "\\* 1 .*process.* 2 .*process.*" \
+           gdb_test "info inferiors" " 2 .*process.*\\* 1 .*process.*" \
                     "info inferiors"
 
            gdb_test "inferior 2" "Switching to inferior 2 .*"
@@ -150,14 +150,14 @@ proc test_follow_fork { who detach cmd } {
            # Follow child / detach parent: the child is under debug and is
            # the current inferior.  The parent is listed but is not under
            # debug.
-           gdb_test "info inferiors" " 1 .*<null>.*\\* 2 .*process.*" \
+           gdb_test "info inferiors" "\\* 2 .*process.* 1 .*<null>.*" \
                     "info inferiors"
 
        } elseif {$who == "child" && $detach == "off"} {
 
            # Follow child / keep parent: two inferiors under debug, the
            # child is the current inferior.
-           gdb_test "info inferiors" " 1 .*process.*\\* 2 .*process.*" \
+           gdb_test "info inferiors" "\\* 2 .*process.* 1 .*process.*" \
                     "info inferiors"
 
            gdb_test "inferior 1" "Switching to inferior 1 .*"
index efa1b39d055f4c221e6745de806218963b4a8ab0..ed25487015b93a8bc236dca142aba39788c48ed3 100644 (file)
@@ -330,7 +330,7 @@ proc vfork_relations_in_info_inferiors { variant } {
    }
 
    gdb_test "info inferiors" \
-       ".*is vfork parent of inferior 2.*is vfork child of inferior 1" \
+       ".*is vfork child of inferior 1.*is vfork parent of inferior 2" \
        "info inferiors shows vfork parent/child relation"
 
    if { $variant == "exec" } {
index 1eaaa71db15d4449813459cdac2366c98847b1cf..2f3dd86f0da6f86e9470f363b48c6fd2905f442b 100644 (file)
@@ -150,13 +150,13 @@ gdb_test_no_output "set detach off" "set detach off"
 
 for {set i 1} {$i <= 15} {incr i} {
   gdb_test "continue" "Breakpoint .* main .*exit.*" "Run to exit $i"
-  gdb_test "info inferior" " 2 .* 3 .* 4 .* 5 .*" "info inferior $i"
+  gdb_test "info inferior" " 5 .* 4 .* 3 .* 2 .*" "info inferior $i"
   gdb_test "inferior $i + 1" "(_dl_sysinfo_int80|fork|__kernel_(v|)syscall).*" \
       "inferior $i"
 }
 
 gdb_test "continue" "Breakpoint .* main .*exit.*" "Run to exit 16"
-gdb_test "info inferior" " 2 .* 3 .* 4 .* 5 .*" "info inferior 16"
+gdb_test "info inferiors" " 5 .* 4 .* 3 .* 2 .*" "info inferior 16"
 gdb_test "inferior 2" " main .*" "restart final"
 
 #
@@ -177,9 +177,27 @@ gdb_test "detach inferior 5" "Detaching .*" "Detach 5"
 # Test kill inferior
 #
 
-for {set i 6} { $i <= 16} {incr i} {
-    gdb_test_no_output "kill inferior $i" "Kill $i"
-    gdb_test "info inferior $i" "<null>.*" "Did kill $i"
-}
+gdb_test_no_output "kill inferior 6" "Kill 6"
+gdb_test "info inferior 6" "<null>.*" "Did kill 6"
+gdb_test_no_output "kill inferior 7" "Kill 7"
+gdb_test "info inferior 7" "<null>.*" "Did kill 7"
+gdb_test_no_output "kill inferior 8" "Kill 8"
+gdb_test "info inferior 8" "<null>.*" "Did kill 8"
+gdb_test_no_output "kill inferior 9" "Kill 9"
+gdb_test "info inferior 9" "<null>.*" "Did kill 9"
+gdb_test_no_output "kill inferior 10" "Kill 10"
+gdb_test "info inferior 10" "<null>.*" "Did kill 10"
+gdb_test_no_output "kill inferior 11" "Kill 11"
+gdb_test "info inferior 11" "<null>.*" "Did kill 11"
+gdb_test_no_output "kill inferior 12" "Kill 12"
+gdb_test "info inferior 12" "<null>.*" "Did kill 12"
+gdb_test_no_output "kill inferior 13" "Kill 13"
+gdb_test "info inferior 13" "<null>.*" "Did kill 13"
+gdb_test_no_output "kill inferior 14" "Kill 14"
+gdb_test "info inferior 14" "<null>.*" "Did kill 14"
+gdb_test_no_output "kill inferior 15" "Kill 15"
+gdb_test "info inferior 15" "<null>.*" "Did kill 15"
+gdb_test_no_output "kill inferior 16" "Kill 16"
+gdb_test "info inferior 16" "<null>.*" "Did kill 16"
 
 return 0
index 8c858d5e492c918f30dcdad939ea637b949bc304..1d07c9fe05e5ad42b5669126d01412f773959883 100644 (file)
@@ -91,6 +91,8 @@ proc test_value_in_inferior {} {
     global has_argv0
     set test "verify dereferenced value"
     if { $has_argv0 } {
+       gdb_test_no_output "set print elements unlimited" ""
+       gdb_test_no_output "set print repeats unlimited" ""
        gdb_test "gu (print arg0)" "0x.*$testfile\"" $test
     } else {
        unsupported $test
index 5e11f8d64d70a5cc384d9d37d3483e5d17181227..cad99013610cb6ff5a6eb00377c324f7e7e94398 100644 (file)
@@ -97,7 +97,7 @@ mi_expect_interrupt "got interrupt"
 sleep 1
 mi_check_thread_states {"stopped" "stopped" "stopped"} "thread state, stop 4"
 
-mi_gdb_test "-exec-continue --all" ".*\\*running,thread-id=\"1\"\r\n\\*running,thread-id=\"2\"\r\n\\*running,thread-id=\"3\"" \
+mi_gdb_test "-exec-continue --all" ".*\\*running,thread-id=\"3\"\r\n\\*running,thread-id=\"2\"\r\n\\*running,thread-id=\"1\"" \
     "resume all"
 
 mi_expect_stop "breakpoint-hit" "break_at_me" "\[^\n\]*" "non-stop.c" "\[0-9\]*" {"" "disp=\"keep\""} "w0,i2 stop"
index 378c729270abccd44fcd05f77e178926be33951f..061a6f31f98302df9a1cb19c3d5542c46a64d2db 100644 (file)
@@ -67,10 +67,10 @@ mi_delete_breakpoints
 # Here we create a response string.  Note we don't want \r\n at the end,
 # since mi_gdb_test will append this itself.
 set running_re ""
-for {set i 1} {$i < 6} {incr i} {
+for {set i 6} {$i > 1} {incr i -1} {
     set running_re "$running_re\\*running,thread-id=\"$i\"\r\n"
 }
-set running_re "$running_re\\*running,thread-id=\"6\""
+set running_re "$running_re\\*running,thread-id=\"1\""
 
 mi_gdb_test "-exec-continue --all" "\[^\n\]*\r\n$running_re" \
     "resume all, no breakpoint"
index 6f0bc63b71c0f20feee6bd8c7c6c244a730cf934..e02f95fd76b1e7c7208852808b4bce8a6bb9c447 100644 (file)
@@ -59,7 +59,7 @@ gdb_test "add-inferior -exec ${binfile3}" \
 # Check that we have multiple inferiors.
 
 gdb_test "info inferiors" \
-    "Executable.*${exec1}.*${exec2}.*${exec3}.*"
+    "Executable.*${exec3}.*${exec2}.*${exec1}.*"
 
 # Test info inferiors with args
 
@@ -68,16 +68,16 @@ set see2 0
 set see3 0
 
 gdb_test_multiple "info inferior 2 3" "info inferior 2 3" {
-    -re ". 1 \[^\r\n\]*${exec1}" {
-       set see1 1
+    -re ". 3 \[^\r\n\]*${exec3}" {
+       set see3 1
        exp_continue
     }
     -re ". 2 \[^\r\n\]*${exec2}" {
        set see2 1
        exp_continue
     }
-    -re ". 3 \[^\r\n\]*${exec3}" {
-       set see3 1
+    -re ". 1 \[^\r\n\]*${exec1}" {
+       set see1 1
        exp_continue
     }
     -re "$gdb_prompt $" {
@@ -94,16 +94,16 @@ set see2 0
 set see3 0
 
 gdb_test_multiple "info inferior 1-2" "info inferior 1-2" {
-    -re ". 1 \[^\r\n\]*${exec1}" {
-       set see1 1
+    -re ". 3 \[^\r\n\]*${exec3}" {
+       set see3 1
        exp_continue
     }
     -re ". 2 \[^\r\n\]*${exec2}" {
        set see2 1
        exp_continue
     }
-    -re ". 3 \[^\r\n\]*${exec3}" {
-       set see3 1
+    -re ". 1 \[^\r\n\]*${exec1}" {
+       set see1 1
        exp_continue
     }
     -re "$gdb_prompt $" {
index b114a2ff74d4185c3c91c2f26a16763b87e3120c..5922d7098f00a0d8b69d5cdb17a745a9438ca25c 100644 (file)
@@ -95,4 +95,4 @@ if ![runto_main] then {
 # Check we do have two inferiors loaded.
 
 gdb_test "info inferiors" \
-    "Executable.*${exec1}.*${exec2}.*"
+    "Executable.*${exec2}.*${exec1}.*"
index 9b90d0bb6de674f9a39db3b1c8ac7e3f71d4fd90..7e6f91d561f4fbd9051096d142257393f6e80978 100644 (file)
@@ -230,10 +230,10 @@ with_test_prefix "is_valid" {
        "check inferior validity 3"
 
     gdb_test_no_output "remove-inferiors 2" "remove-inferiors 3"
-    gdb_test "python print (inf_list\[0\].is_valid())" "True" \
+    gdb_test "python print (inf_list\[0\].is_valid())" "False" \
        "check inferior validity 4"
 
-    gdb_test "python print (inf_list\[1\].is_valid())" "False" \
+    gdb_test "python print (inf_list\[1\].is_valid())" "True" \
        "check inferior validity 5"
 }
 
index e60bd9e1534f41dc0f43e3be6f0f448271bbf93e..a9dbe97784a5fffb50187f88d2daf582005d3d31 100644 (file)
@@ -226,6 +226,8 @@ proc test_value_in_inferior {} {
   global has_argv0
   set test "verify dereferenced value"
   if { $has_argv0 } {
+    gdb_test_no_output "set print elements unlimited" ""
+    gdb_test_no_output "set print repeats unlimited" ""
     gdb_test "python print (arg0)" "0x.*$testfile\"" $test
   } else {
     unsupported $test
index 8a197e49fd56df2fbcc0499162274978e48390e1..05860bc1dc82b1b079d61898d02032795651d2b5 100644 (file)
@@ -78,7 +78,7 @@ proc test { update_thread_list always_inserted non_stop } {
     # without the user explicitly fetching the thread list.
     if {$update_thread_list} {
        gdb_test "info threads" \
-           "main .*\\\(running\\\).*\\\(running\\\).*" \
+           "\\\(running\\\).*\\\(running\\\).* main .*" \
            "only main stopped"
     }
 
@@ -107,7 +107,7 @@ proc test { update_thread_list always_inserted non_stop } {
 
     if {$non_stop == "on"} {
        gdb_test "info threads" \
-           "main .* breakpoint_function .*\\\(running\\\)" \
+           "\\\(running\\\).* breakpoint_function .* main .*" \
            "one thread running"
 
        # Unblock the other thread, which should then trip on the same
@@ -131,7 +131,7 @@ proc test { update_thread_list always_inserted non_stop } {
        }
 
        gdb_test "info threads" \
-           " main .* breakpoint_function .* breakpoint_function .*" \
+           " breakpoint_function .* breakpoint_function .* main .*" \
            "all threads stopped"
     } else {
        # This test is not merged with the non-stop one because in
@@ -142,7 +142,7 @@ proc test { update_thread_list always_inserted non_stop } {
            -re "\\\(running\\\).*$gdb_prompt $" {
                fail $test
            }
-           -re "main .* breakpoint_function .*$gdb_prompt $" {
+           -re "breakpoint_function .* main .*$gdb_prompt $" {
                pass $test
            }
        }
index 8538fd7fcf38631e9c4ec0a820ab6e39634f23a3..14e3e68e448535ec9f6375928aac6152d7f71cbf 100644 (file)
@@ -40,7 +40,7 @@ gdb_test "b [gdb_get_line_number "breakpoint here"]" \
 
 gdb_test "continue" ".*breakpoint here.*" "continue to exec"
 
-gdb_test "info threads" "1 *Thread.*2 *Thread.*3 *Thread.*" "info threads before exec"
+gdb_test "info threads" ".*3 *Thread.*2 *Thread.*1 *Thread.*" "info threads before exec"
 
 # When continuing from this point we'll hit the breakpoint in main()
 # again, this time in the exec'd process.
index f74f147cd3eb8d5f963cdfb05783e4a792a973ca..44fb3474fb5cc0e3e0470bfecc473a61cfbe5d5e 100644 (file)
@@ -127,7 +127,7 @@ foreach name { corefile core0file } { with_test_prefix $name {
     # mapping various OS's may do?  Let's assume that there must
     # be at least two threads:
 
-    gdb_test "info threads" "\\* 1 ${horiz}${nl}  2 ${horiz}.*" \
+    gdb_test "info threads" ".*${nl}  2 ${horiz}${nl}\\* 1 .*" \
            "corefile contains at least two threads"
 
     # One thread in the corefile should be in the "thread2" function.
@@ -137,6 +137,6 @@ foreach name { corefile core0file } { with_test_prefix $name {
 
     # The thread2 thread should be marked as the current thread.
 
-    gdb_test "info threads" "\\* ${horiz} thread2 .*${nl}" \
+    gdb_test "info threads" ".*${nl}\\* ${horiz} thread2 .*" \
            "thread2 is current thread in corefile"
 }}
index 23a3c368aec168d550524d48d9be81f842265793..603d94439c1b7d01dadbd96583e9de386d3421c6 100644 (file)
@@ -41,20 +41,14 @@ gdb_test "list $line" \
 # There used to be a bug where "info threads" would set the current
 # SAL to the location of the last thread displayed.
 gdb_test "info threads" \
-    [multi_line \
-        "\[ \t\]*Id\[ \t\]+Target\[ \t\]+Id\[ \t\]+Frame\[ \t\]*" \
-        "  1 *Thread \[^\r\n\]* .* \[^\r\n\]*" \
-        "\\* 2 *Thread \[^\r\n\]* at \[^\r\n\]*"] \
+    "\r\n\[ \t\]*Id\[ \t\]+Target\[ \t\]+Id\[ \t\]+Frame\[ \t\]*\r\n\\* 2 *Thread \[^\r\n\]* at \[^\r\n\]*\r\n  1 *Thread \[^\r\n\]* .* \[^\r\n\]*" \
     "info threads before break"
 
 # Check that "break" is still operating on the same file by default.
 gdb_test "break $line" ".*${srcfile2}.*" "break on line"
 
 gdb_test "info threads" \
-    [multi_line \
-        "\[ \t\]*Id\[ \t\]+Target\[ \t\]+Id\[ \t\]+Frame\[ \t\]*" \
-        "  1 *Thread \[^\r\n\]* .* \[^\r\n\]*" \
-        "\\* 2 *Thread \[^\r\n\]* at \[^\r\n\]*"] \
+    "\r\n\[ \t\]*Id\[ \t\]+Target\[ \t\]+Id\[ \t\]+Frame\[ \t\]*\r\n\\* 2 *Thread \[^\r\n\]* at \[^\r\n\]*\r\n  1 *Thread \[^\r\n\]* .* \[^\r\n\]*" \
     "info threads before list"
 
 # And that so is "list".
index a6d838219fbd031c2ce36fbf620977252796e028..741ebd50d12b5b7dd0ff68039b63409866982747 100644 (file)
@@ -48,7 +48,7 @@ proc test {threaded} {
        gdb_continue_to_breakpoint "break here" ".*break here.*"
 
        if {$threaded} {
-           gdb_test "info threads" "1.*2.*3.*4.*5.*6.*" "all threads started"
+           gdb_test "info threads" "6.*5.*4.*3.*2.*1.*" "all threads started"
        }
 
        # This kills and ensures no output other than the prompt comes out,
index 6365f7d09859dc093c38d2551a00665354fb6138..7b5c706cf32e1841119ff15398f7702434eeb0e2 100644 (file)
@@ -168,7 +168,7 @@ set nthreads 6
 gdb_breakpoint [gdb_get_line_number "linuxthreads.exp: info threads 2"]
 gdb_continue_to_breakpoint "main thread's sleep"
 set info_threads_ptn ".*"
-for {set i 1} {$i <  $nthreads} {incr i} {
+for {set i $nthreads} {$i > 0} {incr i -1} {
     append info_threads_ptn "$i *Thread .*"
 }
 append info_threads_ptn "\[\r\n\]+$gdb_prompt $"
index cf7728bd2750441b25e5ec862f8f3f0642d335c6..6a38192425bcbad4ef4eaa5649b8ccb83c515df8 100644 (file)
@@ -46,7 +46,7 @@ proc setup {} {
 
        gdb_breakpoint [gdb_get_line_number "set wait-threads breakpoint here"]
        gdb_continue_to_breakpoint "run to breakpoint"
-       gdb_test "info threads" "\\\* 1 .* 2 .* 3 .*" "info threads shows all threads"
+       gdb_test "info threads" "3 .* 2 .*\\\* 1.*" "info threads shows all threads"
 
        gdb_test_no_output "set scheduler-locking on"
 
index 4de3bf930090f147c974c05f44e6646d480765e6..25791be3263d10c46ad6dd3444dcd25f11742539 100644 (file)
@@ -35,7 +35,7 @@ foreach schedlock {"off" "step" "on" } {
 
        gdb_breakpoint [gdb_get_line_number "set wait-thread breakpoint here"]
        gdb_continue_to_breakpoint "run to wait-thread breakpoint"
-       gdb_test "info threads" "\\\* 1 .*  2 .*" "info threads shows all threads"
+       gdb_test "info threads" "2 .*\\\* 1.*" "info threads shows all threads"
 
        delete_breakpoints
 
index 4f5c05c355283af3ad44605bb52a1461db8f5307..1354d0317a0327863e651a40c6162e05767d87c0 100644 (file)
@@ -48,7 +48,7 @@ delete_breakpoints
 
 gdb_breakpoint [gdb_get_line_number "set breakpoint here"]
 gdb_continue_to_breakpoint "run to nop breakpoint"
-gdb_test "info threads" "  1 .*\\\* 2 .*" "info threads shows all threads"
+gdb_test "info threads" "\\\* 2 .* 1.*" "info threads shows all threads"
 
 gdb_test "next" "while.*" "next over nop"
 
index a7273d4094e21f87431d92a0134b419a2608700e..aa91e29749667ed3755625920fa52601de642ed8 100644 (file)
@@ -40,7 +40,7 @@ proc do_test {displaced command} {
 
        gdb_breakpoint [gdb_get_line_number "set wait-thread breakpoint here"]
        gdb_continue_to_breakpoint "run to wait-thread breakpoint"
-       gdb_test "info threads" "\\\* 1 .*  2 .*" "info threads shows all threads"
+       gdb_test "info threads" "2 .*\\\* 1.*" "info threads shows all threads"
 
        gdb_test_no_output "set scheduler-locking on"
 
index 2f0be507f614a908c9f492b8a39983f354265196..b0a7e4a45af6801b53f9c2a62029e73233433feb 100644 (file)
@@ -59,7 +59,7 @@ proc do_test { displaced with_bp } {
 
                gdb_breakpoint [gdb_get_line_number "set wait-thread breakpoint here"]
                gdb_continue_to_breakpoint "run to wait-thread breakpoint"
-               gdb_test "info threads" "\\\* 1 .*  2 .*" "info threads shows all threads"
+               gdb_test "info threads" "2 .*\\\* 1.*" "info threads shows all threads"
 
                gdb_test_no_output "set scheduler-locking on"
 
index bd90c57f479b7feb4acefc28459ab4baf33dd928..57d58a2bb6c117572c86470d7e99c2aff140bdf4 100644 (file)
@@ -55,11 +55,29 @@ gdb_test "thread apply 6 thread name threadname_6" \
     "name thread 6"
 
 # Collect thread ids, if any.
-
 gdb_test_multiple "info threads" "collect thread id" {
-    -re ". (\[0-9\]+) \[^\r\n\]*\[Tt\]hread (\[0-9a-fA-Fx\]+)\[^\r\n\]* \"threadname_\[0-9\]+\" \[^\r\n\]*" {
-       set thr_num $expect_out(1,string)
-       set thread$thr_num $expect_out(2,string)
+    -re ". 6 .*\[Tt\]hread (\[0-9a-fA-Fx\]+).* \"threadname_6\" \[^\r\n\]*" {
+       set thread6 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 5 .*\[Tt\]hread (\[0-9a-fA-Fx\]+).* \"threadname_5\" \[^\r\n\]*" {
+       set thread5 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 4 .*\[Tt\]hread (\[0-9a-fA-Fx\]+).* \"threadname_4\" \[^\r\n\]*" {
+       set thread4 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 3 .*\[Tt\]hread (\[0-9a-fA-Fx\]+).* \"threadname_3\" \[^\r\n\]*" {
+       set thread3 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 2 .*\[Tt\]hread (\[0-9a-fA-Fx\]+).* \"threadname_2\" \[^\r\n\]*" {
+       set thread2 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 1 .*\[Tt\]hread (\[0-9a-fA-Fx\]+).* \"threadname_1\" \[^\r\n\]*" {
+       set thread1 $expect_out(1,string)
        exp_continue
     }
     -re ".*$gdb_prompt $" {
@@ -72,11 +90,29 @@ if { [info exists thread6] } then {
 }
 
 # Collect process ids, if any.
-
 gdb_test_multiple "info threads" "collect thread id" {
-    -re ". (\[0-9\]+) \[^\r\n\]*\[Pp\]rocess (\[0-9a-fA-Fx\]+)\[^\r\n\]* \"threadname_\[0-9\]+\" \[^\r\n\]*" {
-       set thr_num $expect_out(1,string)
-       set process$thr_num $expect_out(2,string)
+    -re ". 6 .*\[Pp\]rocess (\[0-9a-fA-Fx\]+).* \"threadname_6\" \[^\r\n\]*" {
+       set process6 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 5 .*\[Pp\]rocess (\[0-9a-fA-Fx\]+).* \"threadname_5\" \[^\r\n\]*" {
+       set process5 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 4 .*\[Pp\]rocess (\[0-9a-fA-Fx\]+).* \"threadname_4\" \[^\r\n\]*" {
+       set process4 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 3 .*\[Pp\]rocess (\[0-9a-fA-Fx\]+).* \"threadname_3\" \[^\r\n\]*" {
+       set process3 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 2 .*\[Pp\]rocess (\[0-9a-fA-Fx\]+).* \"threadname_2\" \[^\r\n\]*" {
+       set process2 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 1 .*\[Pp\]rocess (\[0-9a-fA-Fx\]+).* \"threadname_1\" \[^\r\n\]*" {
+       set process1 $expect_out(1,string)
        exp_continue
     }
     -re ".*$gdb_prompt $" {
@@ -89,11 +125,29 @@ if { [info exists process6] } then {
 }
 
 # Collect lwp ids, if any.
-
 gdb_test_multiple "info threads" "collect thread id" {
-    -re ". (\[0-9\]+) \[^\r\n\]*LWP (\[0-9a-fA-Fx\]+)\[^\r\n\]* \"threadname_\[0-9\]+\" \[^\r\n\]*" {
-       set thr_num $expect_out(1,string)
-       set lwp$thr_num $expect_out(2,string)
+    -re ". 6 .*LWP (\[0-9a-fA-Fx\]+).* \"threadname_6\" \[^\r\n\]*" {
+       set lwp6 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 5 .*LWP (\[0-9a-fA-Fx\]+).* \"threadname_5\" \[^\r\n\]*" {
+       set lwp5 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 4 .*LWP (\[0-9a-fA-Fx\]+).* \"threadname_4\" \[^\r\n\]*" {
+       set lwp4 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 3 .*LWP (\[0-9a-fA-Fx\]+).* \"threadname_3\" \[^\r\n\]*" {
+       set lwp3 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 2 .*LWP (\[0-9a-fA-Fx\]+).* \"threadname_2\" \[^\r\n\]*" {
+       set lwp2 $expect_out(1,string)
+       exp_continue
+    }
+    -re ". 1 .*LWP (\[0-9a-fA-Fx\]+).* \"threadname_1\" \[^\r\n\]*" {
+       set lwp1 $expect_out(1,string)
        exp_continue
     }
     -re ".*$gdb_prompt $" {
@@ -187,13 +241,36 @@ gdb_test "thread find foobarbaz" "No threads match .*" "no thread"
 # Test regular expression
 #
 
-for {set i 1} {$i <= 6} {incr i} {
-    set see$i 0
-}
+set see1 0
+set see2 0
+set see3 0
+set see4 0
+set see5 0
+set see6 0
+
 gdb_test_multiple "thread find threadname_\[345\]" "test regular exp" {
-    -re "Thread (\[0-9\]+) has name \[^\r\n\]*" {
-       set thr_num $expect_out(1,string)
-       set see$thr_num 1
+    -re "Thread 6 has name \[^\r\n\]*" {
+       set see6 1
+       exp_continue
+    }
+    -re "Thread 5 has name \[^\r\n\]*" {
+       set see5 1
+       exp_continue
+    }
+    -re "Thread 4 has name \[^\r\n\]*" {
+       set see4 1
+       exp_continue
+    }
+    -re "Thread 3 has name \[^\r\n\]*" {
+       set see3 1
+       exp_continue
+    }
+    -re "Thread 2 has name \[^\r\n\]*" {
+       set see2 1
+       exp_continue
+    }
+    -re "Thread 1 has name \[^\r\n\]*" {
+       set see1 1
        exp_continue
     }
     -re ".*$gdb_prompt $" {
@@ -209,13 +286,36 @@ gdb_test_multiple "thread find threadname_\[345\]" "test regular exp" {
 # Test info threads on a subset of threads
 #
 
-for {set i 1} {$i <= 6} {incr i} {
-    set see$i 0
-}
+set see1 0
+set see2 0
+set see3 0
+set see4 0
+set see5 0
+set see6 0
+
 gdb_test_multiple "info threads 2 4 6" "info threads 2 4 6" {
-    -re ". (\[0-9\]+) \[^\r\n\]*\"threadname_\[0-9\]+\" \[^\r\n\]*" {
-       set thr_num $expect_out(1,string)
-       set see$thr_num 1
+    -re ". 6 \[^\r\n\]*\"threadname_6\" \[^\r\n\]*" {
+       set see6 1
+       exp_continue
+    }
+    -re ". 5 \[^\r\n\]*\"threadname_5\" \[^\r\n\]*" {
+       set see5 1
+       exp_continue
+    }
+    -re ". 4 \[^\r\n\]*\"threadname_4\" \[^\r\n\]*" {
+       set see4 1
+       exp_continue
+    }
+    -re ". 3 \[^\r\n\]*\"threadname_3\" \[^\r\n\]*" {
+       set see3 1
+       exp_continue
+    }
+    -re ". 2 \[^\r\n\]*\"threadname_2\" \[^\r\n\]*" {
+       set see2 1
+       exp_continue
+    }
+    -re ". 1 \[^\r\n\]*\"threadname_1\" \[^\r\n\]*" {
+       set see1 1
        exp_continue
     }
     -re "$gdb_prompt $" {
@@ -231,13 +331,36 @@ gdb_test_multiple "info threads 2 4 6" "info threads 2 4 6" {
 # Test info threads on a range
 #
 
-for {set i 1} {$i <= 6} {incr i} {
-    set see$i 0
-}
+set see1 0
+set see2 0
+set see3 0
+set see4 0
+set see5 0
+set see6 0
+
 gdb_test_multiple "info threads 3-5" "info threads 3-5" {
-    -re ". (\[0-9\]+) \[^\r\n\]*\"threadname_\[0-9\]+\" \[^\r\n\]*" {
-       set thr_num $expect_out(1,string)
-       set see$thr_num 1
+    -re ". 6 .*\"threadname_6\" \[^\r\n\]*" {
+       set see6 1
+       exp_continue
+    }
+    -re ". 5 .*\"threadname_5\" \[^\r\n\]*" {
+       set see5 1
+       exp_continue
+    }
+    -re ". 4 .*\"threadname_4\" \[^\r\n\]*" {
+       set see4 1
+       exp_continue
+    }
+    -re ". 3 .*\"threadname_3\" \[^\r\n\]*" {
+       set see3 1
+       exp_continue
+    }
+    -re ". 2 .*\"threadname_2\" \[^\r\n\]*" {
+       set see2 1
+       exp_continue
+    }
+    -re ". 1 .*\"threadname_1\" \[^\r\n\]*" {
+       set see1 1
        exp_continue
     }
     -re "$gdb_prompt $" {
@@ -255,13 +378,36 @@ gdb_test "info threads 5-3" "inverted range" "test inverted range"
 
 # Test degenerate range
 
-for {set i 1} {$i <= 6} {incr i} {
-    set see$i 0
-}
+set see1 0
+set see2 0
+set see3 0
+set see4 0
+set see5 0
+set see6 0
+
 gdb_test_multiple "info threads 3-3" "info threads 3-3" {
-    -re ". (\[0-9\]+) .*\"threadname_\[0-9\]+\" \[^\r\n\]*" {
-       set thr_num $expect_out(1,string)
-       set see$thr_num 1
+    -re ". 6 .*\"threadname_6\" \[^\r\n\]*" {
+       set see6 1
+       exp_continue
+    }
+    -re ". 5 .*\"threadname_5\" \[^\r\n\]*" {
+       set see5 1
+       exp_continue
+    }
+    -re ". 4 .*\"threadname_4\" \[^\r\n\]*" {
+       set see4 1
+       exp_continue
+    }
+    -re ". 3 .*\"threadname_3\" \[^\r\n\]*" {
+       set see3 1
+       exp_continue
+    }
+    -re ". 2 .*\"threadname_2\" \[^\r\n\]*" {
+       set see2 1
+       exp_continue
+    }
+    -re ". 1 .*\"threadname_1\" \[^\r\n\]*" {
+       set see1 1
        exp_continue
     }
     -re ".*$gdb_prompt $" {
index 4d0a2355eb68ec97c8c4f2faf68d2c551d8d44f0..cd7fc0aed93305a101c55faa5953d4c757e56a03 100644 (file)
@@ -205,7 +205,7 @@ gdb_test "continue" ".*Breakpoint 3.*still alive.*" "continue to synch point"
 set no_of_threads 0
 send_gdb "info thread\n"
 gdb_expect {
-    -re "^info thread\[ \t\r\n\]+ *Id .*Frame\[ \t\r\n\]+.*(\[0-9\]+) *Thread\[^\r\n\]+\r\n$gdb_prompt $" {
+    -re "^info thread\[ \t\r\n\]+ *Id .*Frame\[ \t\r\n\]+(\[0-9\]+) *Thread.*$gdb_prompt $" {
           set no_of_threads $expect_out(1,string)
           pass "get number of threads"
         }
index 015e20225dc3b8b80cd76c1bd0230784cf6ad31a..52220d0f08573f4950fb7bfe17024bb4ba2d4496 100644 (file)
@@ -4896,24 +4896,44 @@ gdb_caching_proc gdb_has_argv0 {
            }
        }
 
+       set old_elements "200"
+       set test "show print elements"
+       gdb_test_multiple $test $test {
+           -re "Limit on string chars or array elements to print is (\[^\r\n\]+)\\.\r\n$gdb_prompt $" {
+               set old_elements $expect_out(1,string)
+           }
+       }
+       set old_repeats "200"
+       set test "show print repeats"
+       gdb_test_multiple $test $test {
+           -re "Threshold for repeated print elements is (\[^\r\n\]+)\\.\r\n$gdb_prompt $" {
+               set old_repeats $expect_out(1,string)
+           }
+       }
+       gdb_test_no_output "set print elements unlimited" ""
+       gdb_test_no_output "set print repeats unlimited" ""
+
+       set retval 0
        # Check whether argc is 1.
        gdb_test_multiple "p argc" "p argc" {
            -re " = 1\r\n${gdb_prompt} $" {
 
                gdb_test_multiple "p argv\[0\]" "p argv\[0\]" {
                    -re " = $hex \".*[file tail $exe]\"\r\n${gdb_prompt} $" {
-                       return 1
+                       set retval 1
                    }
                    -re "${gdb_prompt} $" {
-                       return 0
                    }
                }
            }
            -re "${gdb_prompt} $" {
-               return 0
            }
        }
-       return 0
+       
+       gdb_test_no_output "set print elements $old_elements" ""
+       gdb_test_no_output "set print repeats $old_repeats" ""
+
+       return $retval
     }
 
     set result [gdb_has_argv0_1 $exe]
index 7f9a3f557c137b5f7fc09a05dbc3ed913ace8c9e..cb8227d6b4075f5379ae74d59719f44cfe84a32b 100644 (file)
@@ -1968,8 +1968,19 @@ proc mi_load_shlibs { args } {
     mi_gdb_test "set solib-search-path [file dirname [lindex $args 0]]" "\^done" ""
 }
 
-proc mi_check_thread_states { states test } {
+proc mi_reverse_list { list } {
+    if { [llength $list] <= 1 } {
+       return $list
+    }
+    set tail [lrange $list 1 [llength $list]]
+    set rtail [mi_reverse_list $tail]
+    lappend rtail [lindex $list 0]
+    return $rtail
+}
+
+proc mi_check_thread_states { xstates test } {
     global expect_out
+    set states [mi_reverse_list $xstates]
     set pattern ".*\\^done,threads=\\\["
     foreach s $states {
        set pattern "${pattern}(.*)state=\"$s\""
index 4c2259f7928af6c8a81b075aab54aa7091af115f..29fc610e96e7dc097363d14f6a99455fa9a024a1 100644 (file)
@@ -236,17 +236,8 @@ new_thread (ptid_t ptid)
 
   tp->ptid = ptid;
   tp->num = ++highest_thread_num;
-
-  if (thread_list == NULL)
-    thread_list = tp;
-  else
-    {
-      struct thread_info *last;
-
-      for (last = thread_list; last->next != NULL; last = last->next)
-       ;
-      last->next = tp;
-    }
+  tp->next = thread_list;
+  thread_list = tp;
 
   /* Nothing to follow yet.  */
   tp->pending_follow.kind = TARGET_WAITKIND_SPURIOUS;