diff --git a/gdb/testsuite/gdb.reverse/time-reverse.exp b/gdb/testsuite/gdb.reverse/time-reverse.exp index 07d55b348e8..befda65d836 100644 --- a/gdb/testsuite/gdb.reverse/time-reverse.exp +++ b/gdb/testsuite/gdb.reverse/time-reverse.exp @@ -23,6 +23,8 @@ require supports_reverse standard_testfile +require {expr [have_syscall time]} + if { [prepare_for_testing "failed to prepare" $testfile $srcfile] } { return -1 } diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index e48228ed4f6..12839a54710 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -9397,5 +9397,16 @@ gdb_caching_proc linux_kernel_version { return [list $v1 $v2 $v3] } +# Return 1 if syscall NAME is supported. + +proc have_syscall { name } { + set src \ + [list \ + "#include " \ + "int var = SYS_$name;"] + set src [join $src "\n"] + return [gdb_can_simple_compile have_syscall_$name $src object] +} + # Always load compatibility stuff. load_lib future.exp