gdb/testsuite/gdb.arch/arm-pthread_cond_timedwait-bt.exp

   1 # Copyright 2023-2024 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 3 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15
  16 # GDB expected PC should point right after the SVC instruction when the
  17 # syscall is active. But some active syscalls keep PC pointing to the SVC
  18 # instruction itself.
  19
  20 # Require an architecture with the SVC instruction.
  21 require {is_any_target "aarch64*-*-*" "arm*-*-*"}
  22
  23 # See if we have target board readnow.exp or similar.  We're using
  24 # --readnever, which is not allowed in combination with --readnow.
  25 require !readnow
  26
  27 standard_testfile
  28
  29 if { [build_executable "failed to prepare" ${testfile} ${srcfile} \
  30           {debug pthreads}] } {
  31     return
  32 }
  33
  34 save_vars { GDBFLAGS } {
  35     append GDBFLAGS " --readnever"
  36     if { [clean_restart ${binfile}] == -1 } {
  37         return -1
  38     }
  39 }
  40
  41 if { ![runto_main] } {
  42     return
  43 }
  44
  45 gdb_test "advance breakhere" " in breakhere .*"
  46
  47 gdb_test "thread 2" "Switching to thread 2 .*" "thread 2 for svc check"
  48
  49 # GDB expected PC should point right after the SVC instruction when the syscall is active.
  50 # But some active syscalls keep PC pointing to the SVC instruction itself.
  51 set test "pc points to svc"
  52 gdb_test_multiple {x/i $pc} $test {
  53     -re ":\tsvc\t(0x00000000|0)\r\n$gdb_prompt $" {
  54         pass $test
  55     }
  56     -re "\r\n$gdb_prompt $" {
  57         untested $test
  58         return
  59     }
  60 }
  61
  62 gdb_test "thread 1" "Switching to thread 1 .*"
  63 gdb_test_no_output "set debug frame 1"
  64
  65 # PASS:
  66 #  [frame] frame_unwind_try_unwinder: trying unwinder "arm exidx"
  67 #  [frame] frame_unwind_register_value: enter
  68 #...
  69 #  [frame] frame_unwind_register_value: exit
  70 #  [frame] frame_unwind_try_unwinder: yes
  71 #...
  72 #  [frame] get_prev_frame_always_1:   -> {level=0,type=NORMAL_FRAME,unwinder="arm exidx",pc=0xb6f8681c,id=<not computed>,func=<unknown>} // cached
  73
  74 # FAIL:
  75 #  [frame] frame_unwind_try_unwinder: trying unwinder "arm exidx"
  76 #  [frame] frame_unwind_register_value: enter
  77 #...
  78 #  [frame] frame_unwind_register_value: exit
  79 #  [frame] frame_unwind_try_unwinder: no
  80 #  [frame] frame_unwind_try_unwinder: trying unwinder "arm epilogue"
  81 #  [frame] frame_unwind_register_value: enter
  82 #...
  83 #  [frame] frame_unwind_register_value: exit
  84 #  [frame] frame_unwind_try_unwinder: no
  85 #  [frame] frame_unwind_try_unwinder: trying unwinder "arm prologue"
  86 #  [frame] frame_unwind_try_unwinder: yes
  87 #...
  88 #  [frame] get_prev_frame_always_1:   -> {level=0,type=NORMAL_FRAME,unwinder="arm prologue",pc=0xb6f8681c,id=<not computed>,func=<unknown>} // cached
  89
  90 set test "unwinder is arm exidx"
  91 # Switch the threads to reset frame cache.
  92 gdb_test_multiple {thread 2} $test {
  93     -re "\{level=0,type=NORMAL_FRAME,unwinder=\"arm exidx\",pc=.*\r\n$gdb_prompt $" {
  94         pass $test
  95     }
  96     -re "\{level=0,type=NORMAL_FRAME,unwinder=\"arm prologue\",pc=.*\r\n$gdb_prompt $" {
  97         fail $test
  98     }
  99     -re "\r\n$gdb_prompt $" {
 100         untested $test
 101         return
 102     }
 103 }
 104
 105 gdb_test "thread 2" "Switching to thread 2 .*" "thread 2 for debug frame check"
 106
 107 gdb_test_no_output "set debug frame 0"
 108
 109 # PASS:
 110 # #0  0xb6f8681c in pthread_cond_timedwait@@GLIBC_2.4 () from /lib/arm-linux-gnueabihf/libpthread.so.0
 111 # #1  0x00010648 in fun (arg=0x0) at .../gdb/testsuite/gdb.arch/arm-pthread_cond_timedwait-bt.c:38
 112 # ...
 113
 114 # FAIL:
 115 # #0  0xb6f8681c in pthread_cond_timedwait@@GLIBC_2.4 () from /lib/arm-linux-gnueabihf/libpthread.so.0
 116 # #1  0xb6e21f80 in ?? ()
 117 # Backtrace stopped: previous frame identical to this frame (corrupt stack?)
 118
 119 gdb_test "bt" { in fun \(\).*} "unwind of pthread_cond_timedwait"