From: Nick Clifton Date: Wed, 18 Dec 2002 16:05:10 +0000 (+0000) Subject: Test the auto importing direct from a dll functionality. X-Git-Tag: cagney-unwind-20030108-branchpoint~285 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6bdf432d0396b82f47cd1fdc2d0e76a3b0e11ca2;p=platform%2Fupstream%2Fbinutils.git Test the auto importing direct from a dll functionality. --- diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog index 5779c8b..a09864f 100644 --- a/ld/testsuite/ChangeLog +++ b/ld/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2002-12-18 Ralf Habacker + + * ld-auto-import: New directory. + * ld-auto-import/auto-import.exp: Test the auto importing direct + from a dll functionality. + * ld-auto-import/client.c: Source code for test. + * ld-auto-import/dll.c: Likewise. + 2002-12-12 Alexandre Oliva * ld-mips-elf/mips-elf.exp: Remove branch-misc-2 test. diff --git a/ld/testsuite/ld-auto-import/auto-import.exp b/ld/testsuite/ld-auto-import/auto-import.exp new file mode 100644 index 0000000..659e702 --- /dev/null +++ b/ld/testsuite/ld-auto-import/auto-import.exp @@ -0,0 +1,160 @@ +# Expect script for ld-auto-import tests +# Copyright 2002 +# Free Software Foundation, Inc. +# +# This file is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +# +# Written by Ralf.Habacker@freenet.de +# Based on ls-shared/shared.exp by Ian Lance Taylor (ian@cygnus.com) +# + +# Note: +# +# This test checks the "auto importing direct from a dll" functionality, +# which dramatically reduces the linking time for big libraries and applications +# by skipping creating/using import libraries. Instead it links directly to the +# related dll or to a symlinked dll for replacing regular import libraries. +# +# The test has 4 stages: +# +# 1. compile and link a test dll exporting some text and data symbols and a +# standard import library +# +# 2. create a symbolic link to this dll to simulate a replaced import library. +# +# 3. compile and link a client application with the standard import library. +# This should produce no errors. +# +# 4. compile and link a client application with the created dll. +# This should also produce no errors. +# +# 5. compile and link a client application using the "import library". +# This should also produce no errors. +# +# 6. compile and link a client application with auto-import disabled. +# This should produce a linking error. + +# This test can only be run if ld generates native executables. +if ![isnative] then {return} + +# This test can only be run on a couple of ELF platforms. +# Square bracket expressions seem to confuse istarget. +if { ![istarget *-pc-cygwin] + && ![istarget *-pc-mingw*] } { + return +} + +# No compiler, no test. +if { [which $CC] == 0 } { + untested "Auto import test" + return +} + +# ld_special_link +# link a program using ld, without including any libraries +# +proc ld_special_link { ld target objects } { + global host_triplet + global link_output + + if { [which $ld] == 0 } then { + perror "$ld does not exist" + return 0 + } + + if [is_endian_output_format $objects] then { + set flags [big_or_little_endian] + } else { + set flags "" + } + + verbose -log "$ld $flags -o $target $objects" + + catch "exec $ld $flags -o $target $objects" link_output + set exec_output [prune_warnings $link_output] + + # We don't care if we get a warning about a non-existent start + # symbol, since the default linker script might use ENTRY. + regsub -all "(^|\n)(\[^\n\]*: warning: cannot find entry symbol\[^\n\]*\n?)" $exec_output "\\1" exec_output + + # We don't care if we get a message about creating a library file. + regsub -all "(^|\n)(Creating library file\[^\n\]*\n?)" $exec_output "\\1" exec_output + + if [string match "" $exec_output] then { + return 1 + } else { + verbose -log "$exec_output" + return 0 + } +} + +set tmpdir tmpdir +set SHCFLAG "" + +if [istarget *-pc-cygwin] { + # Set some libs needed for cygwin. + set MYLIBS "-L/usr/lib -lcygwin -L/usr/lib/w32api -lkernel32" + + # Compile the dll. + if ![ld_compile "$CC $CFLAGS $SHCFLAG" $srcdir/$subdir/dll.c $tmpdir/dll.o ] { + fail "compiling shared lib" + } elseif ![ld_special_link "$ld -shared --out-implib=$tmpdir/libstandard.dll.a" $tmpdir/dll.dll "$tmpdir/dll.o $MYLIBS" ] { + fail "linking shared lib" + } else { + # Create symbolic link. + catch "exec ln -fs dll.dll $tmpdir/libsymlinked_dll.dll.a" ln_catch + + # Compile and link the client program. + if ![ld_compile "$CC $CFLAGS $SHCFLAG" $srcdir/$subdir/client.c $tmpdir/client.o ] { + fail "compiling client" + } else { + # Check linking with import library. + set msg "linking auto-import client using a standard import library" + if [ld_special_link $ld $tmpdir/client.exe "--enable-auto-import /lib/crt0.o $tmpdir/client.o -L$tmpdir -lstandard $MYLIBS" ] { + pass $msg + } else { + fail $msg + } + + # Check linking directly with dll. + set msg "linking auto-import client using the dll" + if [ld_special_link $ld $tmpdir/client.exe "--enable-auto-import /lib/crt0.o $tmpdir/client.o -L$tmpdir -ldll $MYLIBS" ] { + pass $msg + } else { + fail $msg + } + + # Check linking with symlinked dll. + set msg "linking auto-import client using symbolic linked dll" + if [ld_special_link $ld $tmpdir/clientimport.exe "--enable-auto-import /lib/crt0.o $tmpdir/client.o -L$tmpdir -lsymlinked_dll $MYLIBS" ] { + pass $msg + } else { + fail $msg + } + + # Check linking with disabled auto-import, this must produce linking error. + set msg "linking with disabled auto-import" + if ![ld_special_link $ld $tmpdir/clientimport.exe "--disable-auto-import /lib/crt0.o $tmpdir/client.o -L$tmpdir -ldll $MYLIBS" ] { + pass $msg + } else { + fail $msg + } + } + } +} + +if [istarget *-pc-mingw*] { + unsupported "mingw currently not supported" +} diff --git a/ld/testsuite/ld-auto-import/client.c b/ld/testsuite/ld-auto-import/client.c new file mode 100644 index 0000000..9ed80c5 --- /dev/null +++ b/ld/testsuite/ld-auto-import/client.c @@ -0,0 +1,55 @@ +#include + +extern int var; +extern void (*func_ptr)(void); +extern void print_var (void); +extern void print_foo (void); +extern int foo; +extern int var2[2]; + +typedef struct +{ + int * var; + void (* func_ptr)(void); +} +TEST; + +TEST xyz = { &var, print_var }; + +int +main (void) +{ + print_var (); + + printf ("We see var = %d\n", var); + printf ("Setting var = 456\n"); + + var = 456; + + print_var (); + printf ("We see var = %d\n\n", var); + + var = 90; + print_var (); + printf ("We see var = %d\n\n", var); + + print_foo (); + printf ("We see foo = %d\n", foo); + printf ("Setting foo = 19\n"); + foo = 19; + print_foo (); + printf ("We see foo = %d\n\n", foo); + fflush (stdout); + + printf ("Calling dllimported function pointer\n"); + func_ptr (); + + printf ("Calling functions using global structure\n"); + xyz.func_ptr (); + * xyz.var = 40; + xyz.func_ptr (); + + printf ("We see var2[0] = %d\n\n", var2[0]); + + return 0; +} diff --git a/ld/testsuite/ld-auto-import/dll.c b/ld/testsuite/ld-auto-import/dll.c new file mode 100644 index 0000000..ccf85e4 --- /dev/null +++ b/ld/testsuite/ld-auto-import/dll.c @@ -0,0 +1,20 @@ +int var = 123; +int foo = 121; + +int var2[2]= { 123, 456 }; + +#include + +void +print_var (void) +{ + printf ("DLL sees var = %d\n", var); +} + +void +print_foo (void) +{ + printf ("DLL sees foo = %d\n", foo); +} + +void (* func_ptr)(void) = print_foo;