+2004-10-27 Richard Earnshaw <rearnsha@arm.com>
+
+ * testsuite/lib/libffi-db.exp (load_gcc_lib): New function.
+ (libffi_exit): New function.
+ (libffi_init): Build the testglue wrapper if needed.
+
2004-10-25 Eric Botcazou <ebotcazou@libertysurf.fr>
PR other/18138
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+proc load_gcc_lib { filename } {
+ global srcdir
+ load_file $srcdir/../../gcc/testsuite/lib/$filename
+}
+
load_lib dg.exp
load_lib libgloss.exp
-
+load_gcc_lib wrapper.exp
# Define libffi callbacks for dg.exp.
global gluefile wrap_flags;
global srcdir
global blddirffi
+ global objdir
global blddircxx
global TOOL_OPTIONS
global tool
}
}
}
+ libffi_maybe_build_wrapper "${objdir}/testglue.o"
+}
+
+proc libffi_exit { } {
+ global gluefile;
+
+ if [info exists gluefile] {
+ file_on_build delete $gluefile;
+ unset gluefile;
+ }
}
proc libffi_target_compile { source dest type options } {