[patch] update gdb.base/shreloc.exp to use new shared library infrastructure

Paul Gilliam
2005-04-13T17:14:40Z

This patch updates gdb.base/shreloc.exp to use the new shared library infrastructure in
lib/gdb.exp. All the stuff that has been cut from shlib-call.exp is now part of 'gdb-compile'
or 'gdb-compile-shlib' (new) in lib/gdb.exp.

This patch depends on the shared infrastructure patch:
http://sources.redhat.com/ml/gdb-patches/2005-04/msg00096.html

-=# Paul #=-

2005-04-13 Paul Gilliam <pgilliam@us.ibm.com>

* gdb.base/shreloc.exp: Change to use new shared library infrastructure and update
copyright date.

Index: gdb.base/shreloc.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/shreloc.exp,v
retrieving revision 1.2
diff -c -3 -p -r1.2 shreloc.exp
*** gdb.base/shreloc.exp 11 Nov 2003 17:58:28 -0000 1.2
--- gdb.base/shreloc.exp 13 Apr 2005 16:58:13 -0000
***************
*** 1,4 ****
! # Copyright (C) 2003 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
--- 1,4 ----
! # Copyright (C) 2003, 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
*************** set prms_id 0
*** 40,70 ****
set bug_id 0

set workdir ${objdir}/${subdir}

! foreach module [list "shreloc" "shreloc1" "shreloc2"] {
! if {[gdb_compile "${srcdir}/${subdir}/${module}.c" "${workdir}/${module}.o" object {debug}] != ""} {
! untested "Couldn't compile ${module}.c"
! return -1
! }
}

! set additional_flags "additional_flags=-shared"
!
! if {([istarget "*pc-cygwin"] || [istarget "*pc-mingw32"]) } {
! set additional_flags "${additional_flags} -Wl,--image-base,0x04000000"
}

! foreach module [list "shreloc1" "shreloc2"] {
! if {[gdb_compile "${workdir}/${module}.o" "${workdir}/${module}.dll" executable [list debug $additional_flags]] != ""} {
! untested "Couldn't link ${module}.dll"
! return -1
! }
}

! if {[gdb_compile [list "${workdir}/shreloc.o" "${workdir}/shreloc1.dll" "${workdir}/shreloc2.dll"] "${workdir}/shreloc" executable debug] != ""} {
! untested "Couldn't link shreloc executable"
! return -1
! }

gdb_exit
gdb_start
--- 40,73 ----
set bug_id 0

set workdir ${objdir}/${subdir}
+ set testfile "shreloc"
+ set libfile1 "shreloc1"
+ set libfile2 "shreloc2"
+ set srcfile $srcdir/$subdir/$testfile.c
+ set lib1src $srcdir/$subdir/$libfile1.c
+ set lib2src $srcdir/$subdir/$libfile2.c
+ set binfile $objdir/$subdir/$testfile
+ set lib1_sl $objdir/$subdir/$libfile1.sl
+ set lib2_sl $objdir/$subdir/$libfile2.sl

! if [get_compiler_info ${binfile}] {
! return -1
}

! if [test_compiler_info "xlc-*"] {
! set lib_opts [list debug additional_flags=-qstatsym additional_flags=-qdbxextra]
! } else {
! set lib_opts debug
}
+ set exec_opts [list debug shlib=$lib1_sl shlib=$lib2_sl]

! if {[gdb_compile_shlib $lib1src $lib1_sl $lib_opts] != ""
! || [gdb_compile_shlib $lib2src $lib2_sl $lib_opts] != ""
! || [gdb_compile $srcfile $binfile executable $exec_opts] != ""} {
! gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
}

! # Start with a fresh gdb.

gdb_exit
gdb_start