[PATCH] Fix mi-basics.exp

[Nick Roberts <nickrob@snap.net.nz>]

[2nd attempt, I'm not sure where the first post ended up]

This is to fix the annoying fails that occur in mi-basics.exp when srcdir is a
relative pathname in site.exp.  It uses objdir instead of srcdir for the tests
which always seems to be an absolute filename, although I don't know where
runtest gets its value.

If approved, I'll make the same change for mi2-basics.exp.


-- 
Nick                                           http://www.inet.net.nz/~nickrob


2007-01-10  Nick Roberts  <nickrob@snap.net.nz>

	* gdb.mi/mi-basics.exp (test_dir_specification)
	(test_path_specification): Use objdir instead of srcdir
	to always get an absolute filename.


*** mi-basics.exp	10 Jan 2007 11:57:17 +1300	1.16
--- mi-basics.exp	10 Jan 2007 23:09:08 +1300	
*************** set testfile "basics"
*** 42,48 ****
  set srcfile ${testfile}.c
  set binfile ${objdir}/${subdir}/${testfile}
  set escapedobjdir [string_to_regexp ${objdir}]
! set escapedsrcdir [string_to_regexp ${srcdir}]
  
  if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DFAKEARGV}] != "" } {
       untested mi-basics.exp
--- 42,48 ----
  set srcfile ${testfile}.c
  set binfile ${objdir}/${subdir}/${testfile}
  set escapedobjdir [string_to_regexp ${objdir}]
! set envirodir [string_to_regexp ${objdir}/${subdir}]
  
  if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DFAKEARGV}] != "" } {
       untested mi-basics.exp
*************** proc test_breakpoints_deletion {} {
*** 150,157 ****
  
  proc test_dir_specification {} {
      global mi_gdb_prompt
!     global srcdir
      global subdir
  
      # Add to the search directories, display, then reset back to default
      # Tests:
--- 150,159 ----
  
  proc test_dir_specification {} {
      global mi_gdb_prompt
!     global objdir
      global subdir
+     global envirodir
+ 
  
      # Add to the search directories, display, then reset back to default
      # Tests:
*************** proc test_dir_specification {} {
*** 159,167 ****
      # -environment-directory 
      # -environment-directory -r
  
!     set envirodir [string_to_regexp ${srcdir}/${subdir}]
! 
!     mi_gdb_test "202-environment-directory ${srcdir}/${subdir}" \
               "202\\\^done,source-path=\"${envirodir}.\\\$cdir.\\\$cwd\"" \
               "environment-directory arg operation"
  
--- 161,167 ----
      # -environment-directory 
      # -environment-directory -r
  
!     mi_gdb_test "202-environment-directory ${objdir}/${subdir}" \
               "202\\\^done,source-path=\"${envirodir}.\\\$cdir.\\\$cwd\"" \
               "environment-directory arg operation"
  
*************** proc test_path_specification {} {
*** 198,206 ****
      global mi_gdb_prompt
      global orig_path
      global objdir
!     global srcdir
      global escapedobjdir
!     global escapedsrcdir
  
      # Add to the path, display, then reset 
      # Tests:
--- 198,206 ----
      global mi_gdb_prompt
      global orig_path
      global objdir
!     global subdir
      global escapedobjdir
!     global envirodir
  
      # Add to the path, display, then reset 
      # Tests:
*************** proc test_path_specification {} {
*** 221,233 ****
      }
  
      set orig_path [string_to_regexp ${orig_path}]
  
      mi_gdb_test "207-environment-path" \
               "207\\\^done,path=\"$orig_path\"" \
               "environment-path no-args operation"
  
!     mi_gdb_test "208-environment-path $srcdir $objdir" \
!              "208\\\^done,path=\"$escapedsrcdir.$escapedobjdir.$orig_path\"" \
               "environment-path dir1 dir2 operation"
  
      mi_gdb_test "209-environment-path -r $objdir" \
--- 221,234 ----
      }
  
      set orig_path [string_to_regexp ${orig_path}]
+     set pathdir [string_to_regexp ${objdir}/${subdir}]
  
      mi_gdb_test "207-environment-path" \
               "207\\\^done,path=\"$orig_path\"" \
               "environment-path no-args operation"
  
!     mi_gdb_test "208-environment-path $objdir ${objdir}/${subdir}" \
!              "208\\\^done,path=\"$escapedobjdir.${envirodir}.$orig_path\"" \
               "environment-path dir1 dir2 operation"
  
      mi_gdb_test "209-environment-path -r $objdir" \