From: rearnsha <rearnsha@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 27 Oct 2004 10:56:06 +0000 (+0000)
Subject: * testsuite/lib/libffi-db.exp (load_gcc_lib): New function.
X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=03b2b96823fc77e010dee07d2fa4fd2923a5956b

* testsuite/lib/libffi-db.exp (load_gcc_lib): New function.
(libffi_exit): New function.
(libffi_init): Build the testglue wrapper if needed.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@89636 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/libffi/ChangeLog b/libffi/ChangeLog
index ea883fc4c0b..fa47aeb63de 100644
--- a/libffi/ChangeLog
+++ b/libffi/ChangeLog
@@ -1,3 +1,9 @@
+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
diff --git a/libffi/testsuite/lib/libffi-dg.exp b/libffi/testsuite/lib/libffi-dg.exp
index b8ada00cc29..b31a95f7f48 100644
--- a/libffi/testsuite/lib/libffi-dg.exp
+++ b/libffi/testsuite/lib/libffi-dg.exp
@@ -14,9 +14,14 @@
 # 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.
@@ -71,6 +76,7 @@ proc libffi-init { args } {
     global gluefile wrap_flags;
     global srcdir
     global blddirffi
+    global objdir
     global blddircxx
     global TOOL_OPTIONS
     global tool
@@ -148,6 +154,16 @@ proc libffi-init { args } {
 	    }
 	}
     }
+    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 } {