diff options
| author | rearnsha <rearnsha@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-27 10:56:06 +0000 |
|---|---|---|
| committer | rearnsha <rearnsha@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-27 10:56:06 +0000 |
| commit | 03b2b96823fc77e010dee07d2fa4fd2923a5956b (patch) | |
| tree | c2b6856e1683c81dbf2c1fed09e142cc5f0c47c1 /libffi | |
| parent | 9b2e15fae11324d3bbfe0ba9587fb471b78638ac (diff) | |
* 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
Diffstat (limited to 'libffi')
| -rw-r--r-- | libffi/ChangeLog | 6 | ||||
| -rw-r--r-- | libffi/testsuite/lib/libffi-dg.exp | 18 |
2 files changed, 23 insertions, 1 deletions
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 } { |