GDB 7.6.50

gdb/testsuite/gdb.threads/pthreads.exp

-# Copyright (C) 1996-1997, 1999-2004, 2007-2012 Free Software
-# Foundation, Inc.
+# Copyright (C) 1996-2013 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 3 of the License, or
 # (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
@@ skipping 60 matching lines @@
 
     set return_me 1
 
     gdb_test_multiple "continue" "continue until common routine run 15 times" {
         -re "Continuing.*common_routine.*at.*$srcfile.*$gdb_prompt $" {
             set return_me 0
         }
     }
 
     if { $return_me == 1 } then {
-        return 0;
+        return 0
     }
 
     # Check that we stopped when we actually expected to stop, by
     # verifying that there have been 15 previous hits.
 
     # NOTE: Because of synchronization behavior, it is possible for
     # more than one thread to increment "hits" between one breakpoint
     # trap and the next.  So stopping after 16 or 17 hits should be
     # considered acceptable.
 
@@ skipping 39 matching lines @@
         -re ".*Thread.*main.*$gdb_prompt $" {
             pass "info threads"
             set return_me 0
         }
         -re "\r\n$gdb_prompt $" {
             unsupported "gdb does not support pthreads for this machine"
         }
     }
 
     if { $return_me == 1 } then {
-        return 0;
+        return 0
     }
 
     # Extract the thread id number of main thread from "info threads" output.
     gdb_test_multiple "info threads" "get main thread id" {
         -re "(\[0-9\]+)(${horiz}Thread${horiz}main.*)($gdb_prompt $)" {
         }
     }
 
     set main_id $expect_out(1,string)
 
@@ skipping 49 matching lines @@
     set description "Stopped with a ^C"
     gdb_expect {
         -re "Program received signal SIGINT.*$gdb_prompt $" {
             pass $description
         }
         -re "Quit.*$gdb_prompt $" {
             pass $description
         }
         timeout {
             fail "$description (timeout)"
-            return 1;
+            return 1
         }
     }
     gdb_test "bt" ".*"
 
     # Verify that all threads can be run again after a ^C stop.
     if [all_threads_running] then {
         pass "All threads running after continuing from ^C stop"
     }
-    return 0;
+    return 0
 }
 
 proc check_backtraces {} {
     global gdb_prompt main_id thread1_id thread2_id
 
     # Check that the "thread apply N backtrace" command works
 
     gdb_test "thread apply $main_id backtrace" \
             ".* in main \\(argc=.*, argv=.*\\).*" \
             "check backtrace from main thread"
@@ skipping 33 matching lines @@
         }
     }
 }
 
 setup_xfail "alpha-*-osf*"
 if [runto_main] then {
     clear_xfail "alpha-*-osf*"
     if [test_startup] then {
         if [check_control_c] then {
             warning "Could not stop child with ^C; skipping rest of tests.\n"
-            return;
+            return
         }
         check_backtraces
     }
 }
 clear_xfail "alpha-*-osf*"