clang-tests/gdb-1472-testsuite/src/gdb/gdb.apple/ld-r/ld-r.exp - llvm-archive - Git at Google

 # Copyright 2005 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 2 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.
 #
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

 if $tracelevel then {
         strace $tracelevel
         }

 #
 # This tests if for gdb's handling of files produced with
 # ld -r.  There are two things being tested here.  In the
 # -gfull -Wl,-Sp case, it's whether we properly get the BINCL/EINCL
 # dependencies when we are reading out of a .o.  And for -gused
 # it is whether the debug info survives the coalescing process.
 #

 set prms_id 0
 set bug_id 0

 proc do_tests {use_ld} {
     global srcdir objdir subdir gdb_prompt
     global debug_default_format_is_dwarf gdb_test_apple_dsym

     set ld_flags {}

     set test_name "ld-r testing"
     if {!$use_ld} {
 	append test_name " - ar"
     }
     if {$debug_default_format_is_dwarf && $gdb_test_apple_dsym == 0} {
 	append test_name " - debug info in .o files"
     }
     set testfile "test-ld-r"
     set ld_r_file "ld-r.o"

     set main "main"

     set fooName "foo"
     set barName "bar"

     # These two we build oddly...
     set bazName "baz"
     set multName "multiplier"


     set binfile  "${objdir}/${subdir}/${testfile}"
     set additional_flags additional_flags=""

     # This is a bit complicated seeming.  What I want to make sure is that I have
     #  1) two "ld -r" .o files.
     #  2) nested BINCL/EINCL's
     #  3) two BINCL/EINCL's with the same filename but different hashes.

     foreach {src} {main foo foo-2 bar bar-2} {
 	if  { [gdb_compile "$srcdir/$subdir/$src.cc" "$objdir/$subdir/$src.o" object [list debug $additional_flags c++]] != "" } {
 	    gdb_suppress_entire_file "Testcase compile failed for $test_name, so all tests in this file will automatically fail."
 	}
     }

     if  { [gdb_compile "$srcdir/$subdir/multiplier.cc" "$objdir/$subdir/multiplier.o" object [list debug $additional_flags c++]] != "" } {
 	gdb_suppress_entire_file "Testcase compile failed for $test_name, so all tests in this file will automatically fail."
     }

     set additional_flags "additional_flags= -DUSE_LONG"

     if  { [gdb_compile "$srcdir/$subdir/multiplier.cc" "$objdir/$subdir/multiplier-long.o" object [list debug $additional_flags c++]] != "" } {
 	gdb_suppress_entire_file "Testcase compile failed for $test_name, so all tests in this file will automatically fail."
     }

     foreach {src} {baz baz-2} {
 	if  { [gdb_compile "$srcdir/$subdir/$src.cc" "$objdir/$subdir/$src.o" object [list debug $additional_flags c++]] != "" } {
 	    gdb_suppress_entire_file "Testcase compile failed for $test_name, so all tests in this file will automatically fail."
 	}
     }

     if {$use_ld} {
 	set intermediate_obj $objdir/$subdir/ld-r.o
 	set command "ld -r \"$objdir/$subdir/foo.o\" \"$objdir/$subdir/bar.o\" \"$objdir/$subdir/baz.o\" -o \"$intermediate_obj\""
     } else {
 	set intermediate_obj $objdir/$subdir/ld-r.a
 	file delete $intermediate_obj
 	set command "ar -c -q \"$intermediate_obj\" \"$objdir/$subdir/foo.o\" \"$objdir/$subdir/bar.o\" \"$objdir/$subdir/baz.o\""
     }
     set status [remote_exec  host $command]
     if {[lindex $status 0] != 0} {
 	puts [lindex $status 1]
 	gdb_suppress_entire_file "Testcase ld -r failed for $test_name, so all tests in this file will automatically fail."
     }

     if {!$use_ld} {
 	set command "ranlib \"$intermediate_obj\""

 	set status [remote_exec  host $command]
 	if {[lindex $status 0] != 0} {
 	    puts [lindex $status 1]
 	    gdb_suppress_entire_file "Testcase ld -r failed for $test_name, so all tests in this file will automatically fail."
 	}
     }


     set command "ld -r \"$objdir/$subdir/foo-2.o\" \"$objdir/$subdir/bar-2.o\" \"$objdir/$subdir/baz-2.o\" -o \"$objdir/$subdir/ld-r-2.o\""
     set status [remote_exec  host $command]
     if {[lindex $status 0] != 0} {
 	puts [lindex $status 1]
 	gdb_suppress_entire_file "Testcase ld -r failed for $test_name, so all tests in this file will automatically fail."
     }

     set command "ld -r \"$objdir/$subdir/multiplier-long.o\" \"$objdir/$subdir/multiplier.o\" -o \"$objdir/$subdir/ld-r-3.o\""
     set status [remote_exec  host $command]
     if {[lindex $status 0] != 0} {
 	puts [lindex $status 1]
 	gdb_suppress_entire_file "Testcase ld -r failed for $test_name, so all tests in this file will automatically fail."
     }


     set additional_flags additional_flags=""
     if  { [gdb_compile "$objdir/$subdir/ld-r-2.o $objdir/$subdir/ld-r-3.o $objdir/$subdir/main.o $intermediate_obj" "${binfile}" executable [list debug $additional_flags c++]] != "" } {
 	gdb_suppress_entire_file "Testcase compile failed for $test_name, so all tests in this file will automatically fail."
     }

     if [get_compiler_info ${binfile} "c++"] {
 	return -1
     }


     # Start with a fresh gdb
     gdb_exit
     gdb_start
     gdb_reinitialize_dir $srcdir/$subdir
     gdb_file_cmd "${binfile}"

     send_gdb "set width 0\n"
     gdb_expect -re "$gdb_prompt $"

     # The order is a little tricky here for the -gfull -Wl,-Sp case.
     # foo.cc in the ld-r file actually has the BINCL/EINCL,
     # and the other files the EXCL.  We want to make sure we hit the one with the EXCL first,
     # so we test that the debugger actually builds the dependency list correctly.

     gdb_test "break barFunc" "Breakpoint 1.*bar.cc.*" "First break at bar: $test_name"

     # Note, runto_main does delete_breakpoint, that's why we have to reset it below.
     if {![runto_main]} {
 	fail "Running to main suppressing testcase"
 	return -1
     }

     gdb_test "break fooFunc" "Breakpoint 3.*foo.cc.*" "Break at foo: $test_name"
     gdb_test "break barFunc" "Breakpoint 4.*bar.cc.*" "Break at bar: $test_name"
     gdb_test "break bazFunc" "Breakpoint 5.*baz.cc.*" "Break at baz: $test_name"

     foreach {break func value} {3 foo 4000 4 bar 25 5 baz 4000} {
         gdb_test "continue" "Continuing\\..*Breakpoint $break, ${func}Func.*$func.cc.*" "Hit breakpoint at ${func}Func: $test_name"
 	gdb_test "ptype mine" "type = class MyBlubby \{\r\n.*private:\r\n.*use_me value;(\r\n.*)*" "ptype mine in ${func}Func: $test_name"
         gdb_test "finish" "Run till exit from \#0.*${func}Func.* at .*$func.cc.*\\r\\n.*in main.*main.cc.*\\r\\n.*\\r\\nValue returned is \\\$\[0-9\] = $value" "Finish from ${func}Func: $test_name"
     }

     gdb_test "break fooFunc2" "Breakpoint 6.*foo-2.cc.*" "Break at foo-2: $test_name"
     gdb_test "break bazFunc2" "Breakpoint 7.*baz-2.cc.*" "Break at baz-2: $test_name"

     gdb_test "continue" "Continuing\\..*Breakpoint 6, fooFunc2.*foo-2.cc.*" "Hit breakpoint at fooFunc2: $test_name"
     gdb_test "ptype multiplier" "type = long long int" "ptype in fooFunc2: $test_name"

     gdb_test "continue" "Continuing\\..*Breakpoint 7, bazFunc2.*baz-2.cc.*" "Hit breakpoint at bazFunc2: $test_name"
     gdb_test "ptype multiplier" "type = long int" "ptype in bazFunc2: $test_name"

     gdb_exit

     # If the debug info was left in the .o files, let's make sure our time
     # check is working correctly.

     if {$debug_default_format_is_dwarf == 1&& $gdb_test_apple_dsym == 0} {
 	# Start with a fresh gdb
 	gdb_exit
 	gdb_start
 	gdb_reinitialize_dir $srcdir/$subdir
 	gdb_file_cmd "${binfile}"


 	send_gdb "set width 0\n"
 	gdb_expect -re "$gdb_prompt $"

 	if {$use_ld == 0} {
 	    # If this is the "ar" case, we have to rebuild the .a file as well,
 	    # since we are using the time of the .o file in the archive, not the
 	    # archive time.

 	    # First make sure we aren't fooled by the archive time changing:
 	    set intermediate_obj $objdir/$subdir/ld-r.a

 	    file mtime $intermediate_obj [clock seconds]
 	    send_gdb "break barFunc\n"
 	    gdb_expect {
 		-re ".*warning: .o.*\[\r\n\].*$gdb_prompt" {
 		    fail "No warning for just changing .a file timestamp: $test_name"
 		}
 		-re ".*Breakpoint 1.*bar.cc.*\[\r\n\].*$gdb_prompt" {
 		    pass "No warning for just changing .a file timestamp: $test_name"
 		}
 		-re "$gdb_prompt $" {
 		    fail "No warning for just changing .a file timestamp: $test_name"
 		}
 		timeout {
 		    fail "No warning for just changing .a file timestamp: $test_name"
 		}
 	    }

 	    # Now really alter the .o file in the archive and test again.
 	    file mtime $objdir/$subdir/foo.o [clock seconds]
 	    file delete $intermediate_obj
 	    set command "ar -c -q \"$intermediate_obj\" \"$objdir/$subdir/foo.o\" \"$objdir/$subdir/bar.o\" \"$objdir/$subdir/baz.o\""
 	    set status [remote_exec  host $command]
 	    if {[lindex $status 0] != 0} {
 		puts [lindex $status 1]
 		fail "Could not rebuild .a file: $test_name"
 	    }
 	    gdb_test "break fooFunc" "(warning:.*\r\n)+Breakpoint 2.*foo.cc.*" "Got warnings for mismatched timestamp1: $test_name"

 	} else {
 	    file mtime $objdir/$subdir/ld-r.o [clock seconds]
 	    if  { [gdb_compile "$srcdir/$subdir/foo.cc" "$objdir/$subdir/foo.o" object [list debug $additional_flags c++]] != "" } {
 	        gdb_suppress_entire_file "Testcase compile failed for $test_name, so all tests in this file will automatically fail."
 	    }
 	    gdb_test "break fooFunc" "warning: .o file.*more recent than executable timestamp.*Breakpoint 1.*foo.cc.*" "Got warnings for mismatched timestamp2: $test_name"
 	}
     }
 }

 do_tests 0
 do_tests 1

 return 0
	# Copyright 2005 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 2 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.
	#
	# You should have received a copy of the GNU General Public License
	# along with this program; if not, write to the Free Software
	# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

	if $tracelevel then {
	strace $tracelevel
	}

	#
	# This tests if for gdb's handling of files produced with
	# ld -r. There are two things being tested here. In the
	# -gfull -Wl,-Sp case, it's whether we properly get the BINCL/EINCL
	# dependencies when we are reading out of a .o. And for -gused
	# it is whether the debug info survives the coalescing process.
	#

	set prms_id 0
	set bug_id 0

	proc do_tests {use_ld} {
	global srcdir objdir subdir gdb_prompt
	global debug_default_format_is_dwarf gdb_test_apple_dsym

	set ld_flags {}

	set test_name "ld-r testing"
	if {!$use_ld} {
	append test_name " - ar"
	}
	if {$debug_default_format_is_dwarf && $gdb_test_apple_dsym == 0} {
	append test_name " - debug info in .o files"
	}
	set testfile "test-ld-r"
	set ld_r_file "ld-r.o"

	set main "main"

	set fooName "foo"
	set barName "bar"

	# These two we build oddly...
	set bazName "baz"
	set multName "multiplier"


	set binfile "${objdir}/${subdir}/${testfile}"
	set additional_flags additional_flags=""

	# This is a bit complicated seeming. What I want to make sure is that I have
	# 1) two "ld -r" .o files.
	# 2) nested BINCL/EINCL's
	# 3) two BINCL/EINCL's with the same filename but different hashes.

	foreach {src} {main foo foo-2 bar bar-2} {
	if { [gdb_compile "$srcdir/$subdir/$src.cc" "$objdir/$subdir/$src.o" object [list debug $additional_flags c++]] != "" } {
	gdb_suppress_entire_file "Testcase compile failed for $test_name, so all tests in this file will automatically fail."
	}
	}

	if { [gdb_compile "$srcdir/$subdir/multiplier.cc" "$objdir/$subdir/multiplier.o" object [list debug $additional_flags c++]] != "" } {
	gdb_suppress_entire_file "Testcase compile failed for $test_name, so all tests in this file will automatically fail."
	}

	set additional_flags "additional_flags= -DUSE_LONG"

	if { [gdb_compile "$srcdir/$subdir/multiplier.cc" "$objdir/$subdir/multiplier-long.o" object [list debug $additional_flags c++]] != "" } {
	gdb_suppress_entire_file "Testcase compile failed for $test_name, so all tests in this file will automatically fail."
	}

	foreach {src} {baz baz-2} {
	if { [gdb_compile "$srcdir/$subdir/$src.cc" "$objdir/$subdir/$src.o" object [list debug $additional_flags c++]] != "" } {
	gdb_suppress_entire_file "Testcase compile failed for $test_name, so all tests in this file will automatically fail."
	}
	}

	if {$use_ld} {
	set intermediate_obj $objdir/$subdir/ld-r.o
	set command "ld -r \"$objdir/$subdir/foo.o\" \"$objdir/$subdir/bar.o\" \"$objdir/$subdir/baz.o\" -o \"$intermediate_obj\""
	} else {
	set intermediate_obj $objdir/$subdir/ld-r.a
	file delete $intermediate_obj
	set command "ar -c -q \"$intermediate_obj\" \"$objdir/$subdir/foo.o\" \"$objdir/$subdir/bar.o\" \"$objdir/$subdir/baz.o\""
	}
	set status [remote_exec host $command]
	if {[lindex $status 0] != 0} {
	puts [lindex $status 1]
	gdb_suppress_entire_file "Testcase ld -r failed for $test_name, so all tests in this file will automatically fail."
	}

	if {!$use_ld} {
	set command "ranlib \"$intermediate_obj\""

	set status [remote_exec host $command]
	if {[lindex $status 0] != 0} {
	puts [lindex $status 1]
	gdb_suppress_entire_file "Testcase ld -r failed for $test_name, so all tests in this file will automatically fail."
	}
	}


	set command "ld -r \"$objdir/$subdir/foo-2.o\" \"$objdir/$subdir/bar-2.o\" \"$objdir/$subdir/baz-2.o\" -o \"$objdir/$subdir/ld-r-2.o\""
	set status [remote_exec host $command]
	if {[lindex $status 0] != 0} {
	puts [lindex $status 1]
	gdb_suppress_entire_file "Testcase ld -r failed for $test_name, so all tests in this file will automatically fail."
	}

	set command "ld -r \"$objdir/$subdir/multiplier-long.o\" \"$objdir/$subdir/multiplier.o\" -o \"$objdir/$subdir/ld-r-3.o\""
	set status [remote_exec host $command]
	if {[lindex $status 0] != 0} {
	puts [lindex $status 1]
	gdb_suppress_entire_file "Testcase ld -r failed for $test_name, so all tests in this file will automatically fail."
	}


	set additional_flags additional_flags=""
	if { [gdb_compile "$objdir/$subdir/ld-r-2.o $objdir/$subdir/ld-r-3.o $objdir/$subdir/main.o $intermediate_obj" "${binfile}" executable [list debug $additional_flags c++]] != "" } {
	gdb_suppress_entire_file "Testcase compile failed for $test_name, so all tests in this file will automatically fail."
	}

	if [get_compiler_info ${binfile} "c++"] {
	return -1
	}



	# Start with a fresh gdb
	gdb_exit
	gdb_start
	gdb_reinitialize_dir $srcdir/$subdir
	gdb_file_cmd "${binfile}"

	send_gdb "set width 0\n"
	gdb_expect -re "$gdb_prompt $"

	# The order is a little tricky here for the -gfull -Wl,-Sp case.
	# foo.cc in the ld-r file actually has the BINCL/EINCL,
	# and the other files the EXCL. We want to make sure we hit the one with the EXCL first,
	# so we test that the debugger actually builds the dependency list correctly.

	gdb_test "break barFunc" "Breakpoint 1.bar.cc." "First break at bar: $test_name"

	# Note, runto_main does delete_breakpoint, that's why we have to reset it below.
	if {![runto_main]} {
	fail "Running to main suppressing testcase"
	return -1
	}

	gdb_test "break fooFunc" "Breakpoint 3.foo.cc." "Break at foo: $test_name"
	gdb_test "break barFunc" "Breakpoint 4.bar.cc." "Break at bar: $test_name"
	gdb_test "break bazFunc" "Breakpoint 5.baz.cc." "Break at baz: $test_name"

	foreach {break func value} {3 foo 4000 4 bar 25 5 baz 4000} {
	gdb_test "continue" "Continuing\\..Breakpoint $break, ${func}Func.$func.cc.*" "Hit breakpoint at ${func}Func: $test_name"
	gdb_test "ptype mine" "type = class MyBlubby \{\r\n.private:\r\n.use_me value;(\r\n.)" "ptype mine in ${func}Func: $test_name"
	gdb_test "finish" "Run till exit from \#0.${func}Func. at .$func.cc.\\r\\n.in main.main.cc.\\r\\n.\\r\\nValue returned is \\\$\[0-9\] = $value" "Finish from ${func}Func: $test_name"
	}

	gdb_test "break fooFunc2" "Breakpoint 6.foo-2.cc." "Break at foo-2: $test_name"
	gdb_test "break bazFunc2" "Breakpoint 7.baz-2.cc." "Break at baz-2: $test_name"

	gdb_test "continue" "Continuing\\..Breakpoint 6, fooFunc2.foo-2.cc.*" "Hit breakpoint at fooFunc2: $test_name"
	gdb_test "ptype multiplier" "type = long long int" "ptype in fooFunc2: $test_name"

	gdb_test "continue" "Continuing\\..Breakpoint 7, bazFunc2.baz-2.cc.*" "Hit breakpoint at bazFunc2: $test_name"
	gdb_test "ptype multiplier" "type = long int" "ptype in bazFunc2: $test_name"

	gdb_exit

	# If the debug info was left in the .o files, let's make sure our time
	# check is working correctly.

	if {$debug_default_format_is_dwarf == 1&& $gdb_test_apple_dsym == 0} {
	# Start with a fresh gdb
	gdb_exit
	gdb_start
	gdb_reinitialize_dir $srcdir/$subdir
	gdb_file_cmd "${binfile}"


	send_gdb "set width 0\n"
	gdb_expect -re "$gdb_prompt $"

	if {$use_ld == 0} {
	# If this is the "ar" case, we have to rebuild the .a file as well,
	# since we are using the time of the .o file in the archive, not the
	# archive time.

	# First make sure we aren't fooled by the archive time changing:
	set intermediate_obj $objdir/$subdir/ld-r.a

	file mtime $intermediate_obj [clock seconds]
	send_gdb "break barFunc\n"
	gdb_expect {
	-re ".warning: .o.\[\r\n\].*$gdb_prompt" {
	fail "No warning for just changing .a file timestamp: $test_name"
	}
	-re ".Breakpoint 1.bar.cc.\[\r\n\].$gdb_prompt" {
	pass "No warning for just changing .a file timestamp: $test_name"
	}
	-re "$gdb_prompt $" {
	fail "No warning for just changing .a file timestamp: $test_name"
	}
	timeout {
	fail "No warning for just changing .a file timestamp: $test_name"
	}
	}

	# Now really alter the .o file in the archive and test again.
	file mtime $objdir/$subdir/foo.o [clock seconds]
	file delete $intermediate_obj
	set command "ar -c -q \"$intermediate_obj\" \"$objdir/$subdir/foo.o\" \"$objdir/$subdir/bar.o\" \"$objdir/$subdir/baz.o\""
	set status [remote_exec host $command]
	if {[lindex $status 0] != 0} {
	puts [lindex $status 1]
	fail "Could not rebuild .a file: $test_name"
	}
	gdb_test "break fooFunc" "(warning:.\r\n)+Breakpoint 2.foo.cc.*" "Got warnings for mismatched timestamp1: $test_name"

	} else {
	file mtime $objdir/$subdir/ld-r.o [clock seconds]
	if { [gdb_compile "$srcdir/$subdir/foo.cc" "$objdir/$subdir/foo.o" object [list debug $additional_flags c++]] != "" } {
	gdb_suppress_entire_file "Testcase compile failed for $test_name, so all tests in this file will automatically fail."
	}
	gdb_test "break fooFunc" "warning: .o file.more recent than executable timestamp.Breakpoint 1.foo.cc." "Got warnings for mismatched timestamp2: $test_name"
	}
	}
	}

	do_tests 0
	do_tests 1

	return 0