Index: libgloss.exp
===================================================================
RCS file: /cvs/src/src/dejagnu/lib/libgloss.exp,v
retrieving revision 1.8
diff -p -r1.8 libgloss.exp
*** libgloss.exp	21 Apr 2002 08:47:07 -0000	1.8
--- libgloss.exp	24 Sep 2002 15:47:35 -0000
*************** proc find_ld { } {
*** 812,817 ****
--- 812,818 ----
  
  proc build_wrapper { gluefile } {
      global libdir
+     global tool
  
      if [target_info exists wrap_m68k_aout] {
  	set flags "additional_flags=-DWRAP_M68K_AOUT";
*************** proc build_wrapper { gluefile } {
*** 832,838 ****
  	lappend flags "additional_flags=[target_info wrap_compile_flags]";
      }
      if { [target_compile ${libdir}/testglue.c ${gluefile} object $flags] 
== "" } {
! 	set gluefile [remote_download host ${gluefile} testglue.o];
  	return [list $gluefile $result];
      } else {
  	return ""
--- 833,839 ----
  	lappend flags "additional_flags=[target_info wrap_compile_flags]";
      }
      if { [target_compile ${libdir}/testglue.c ${gluefile} object $flags] 
== "" } {
!       set gluefile [remote_download host ${gluefile} ${tool}_tg.o];
  	return [list $gluefile $result];
      } else {
  	return ""