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

[Paul Gilliam <pgilliam at us dot ibm dot com>]

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