Browse Source
* lib/ld-lib.exp (default_ld_link): Redirect the linker output to link_output and make it global. * ld-elfvsb/elf-offset.ld: New. ELF visibility fearture tests. * ld-elfvsb/elfvsb.dat: Likewise. * ld-elfvsb/elfvsb.exp: Likewise. * ld-elfvsb/main.c: Likewise. * ld-elfvsb/sh1.c: Likewise. * ld-elfvsb/sh2.c: Likewise.binutils-2_11-branch
H.J. Lu
26 years ago
8 changed files with 836 additions and 4 deletions
@ -0,0 +1,168 @@ |
|||
SECTIONS |
|||
{ |
|||
/* Read-only sections, merged into text segment: */ |
|||
. = 0x100000; |
|||
.hash : { *(.hash) } |
|||
.dynsym : { *(.dynsym) } |
|||
.dynstr : { *(.dynstr) } |
|||
.gnu.version : { *(.gnu.version) } |
|||
.gnu.version_d : { *(.gnu.version_d) } |
|||
.gnu.version_r : { *(.gnu.version_r) } |
|||
.rel.text : |
|||
{ |
|||
*(.rel.text) |
|||
*(.rel.text.*) |
|||
*(.rel.gnu.linkonce.t*) |
|||
} |
|||
.rela.text : |
|||
{ |
|||
*(.rela.text) |
|||
*(.rela.text.*) |
|||
*(.rela.gnu.linkonce.t*) |
|||
} |
|||
.rel.data : |
|||
{ |
|||
*(.rel.data) |
|||
*(.rel.data.*) |
|||
*(.rel.gnu.linkonce.d*) |
|||
} |
|||
.rela.data : |
|||
{ |
|||
*(.rela.data) |
|||
*(.rela.data.*) |
|||
*(.rela.gnu.linkonce.d*) |
|||
} |
|||
.rel.rodata : |
|||
{ |
|||
*(.rel.rodata) |
|||
*(.rel.rodata.*) |
|||
*(.rel.gnu.linkonce.r*) |
|||
} |
|||
.rela.rodata : |
|||
{ |
|||
*(.rela.rodata) |
|||
*(.rela.rodata.*) |
|||
*(.rela.gnu.linkonce.r*) |
|||
} |
|||
.rel.got : { *(.rel.got) } |
|||
.rela.got : { *(.rela.got) } |
|||
.rel.ctors : { *(.rel.ctors) } |
|||
.rela.ctors : { *(.rela.ctors) } |
|||
.rel.dtors : { *(.rel.dtors) } |
|||
.rela.dtors : { *(.rela.dtors) } |
|||
.rel.init : { *(.rel.init) } |
|||
.rela.init : { *(.rela.init) } |
|||
.rel.fini : { *(.rel.fini) } |
|||
.rela.fini : { *(.rela.fini) } |
|||
.rel.bss : { *(.rel.bss) } |
|||
.rela.bss : { *(.rela.bss) } |
|||
.rel.plt : { *(.rel.plt) } |
|||
.rela.plt : { *(.rela.plt) } |
|||
.init : { KEEP (*(.init)) } |
|||
.plt : { *(.plt) } |
|||
.text : |
|||
{ |
|||
*(.text) |
|||
*(.text.*) |
|||
*(.stub) |
|||
/* .gnu.warning sections are handled specially by elf32.em. */ |
|||
*(.gnu.warning) |
|||
*(.gnu.linkonce.t*) |
|||
} |
|||
_etext = .; |
|||
PROVIDE (etext = .); |
|||
.fini : { KEEP (*(.fini)) } =0x9090 |
|||
.rodata : |
|||
{ |
|||
*(.rodata) |
|||
*(.rodata.*) |
|||
*(.gnu.linkonce.r*) |
|||
} |
|||
.rodata1 : { *(.rodata1) } |
|||
/* Adjust the address for the data segment. We want to adjust up to |
|||
the same address within the page on the next page up. */ |
|||
. = ALIGN(0x1000) + (. & (0x1000 - 1)); |
|||
.data : |
|||
{ |
|||
*(.data) |
|||
*(.data.*) |
|||
*(.gnu.linkonce.d*) |
|||
SORT(CONSTRUCTORS) |
|||
} |
|||
.data1 : { *(.data1) } |
|||
.ctors : |
|||
{ |
|||
/* gcc uses crtbegin.o to find the start of the constructors, so |
|||
we make sure it is first. Because this is a wildcard, it |
|||
doesn't matter if the user does not actually link against |
|||
crtbegin.o; the linker won't look for a file to match a |
|||
wildcard. The wildcard also means that it doesn't matter which |
|||
directory crtbegin.o is in. */ |
|||
KEEP (*crtbegin.o(.ctors)) |
|||
KEEP (*(SORT(.ctors.*))) |
|||
KEEP (*(.ctors)) |
|||
} |
|||
.dtors : |
|||
{ |
|||
KEEP (*crtbegin.o(.dtors)) |
|||
KEEP (*(SORT(.dtors.*))) |
|||
KEEP (*(.dtors)) |
|||
} |
|||
.got : { *(.got.plt) *(.got) } |
|||
.dynamic : { *(.dynamic) } |
|||
/* We want the small data sections together, so single-instruction offsets |
|||
can access them all, and initialized data all before uninitialized, so |
|||
we can shorten the on-disk segment size. */ |
|||
.sdata : { *(.sdata) *(.sdata.*) } |
|||
_edata = .; |
|||
PROVIDE (edata = .); |
|||
__bss_start = .; |
|||
.sbss : { *(.sbss) *(.scommon) } |
|||
.bss : |
|||
{ |
|||
*(.dynbss) |
|||
*(.bss) |
|||
*(COMMON) |
|||
/* Align here to ensure that the .bss section occupies space up to |
|||
_end. Align after .bss to ensure correct alignment even if the |
|||
.bss section disappears because there are no input sections. */ |
|||
. = ALIGN(32 / 8); |
|||
} |
|||
. = ALIGN(32 / 8); |
|||
_end = . ; |
|||
PROVIDE (end = .); |
|||
/* Stabs debugging sections. */ |
|||
.stab 0 : { *(.stab) } |
|||
.stabstr 0 : { *(.stabstr) } |
|||
.stab.excl 0 : { *(.stab.excl) } |
|||
.stab.exclstr 0 : { *(.stab.exclstr) } |
|||
.stab.index 0 : { *(.stab.index) } |
|||
.stab.indexstr 0 : { *(.stab.indexstr) } |
|||
.comment 0 : { *(.comment) } |
|||
/* DWARF debug sections. |
|||
Symbols in the DWARF debugging sections are relative to the beginning |
|||
of the section so we begin them at 0. */ |
|||
/* DWARF 1 */ |
|||
.debug 0 : { *(.debug) } |
|||
.line 0 : { *(.line) } |
|||
/* GNU DWARF 1 extensions */ |
|||
.debug_srcinfo 0 : { *(.debug_srcinfo) } |
|||
.debug_sfnames 0 : { *(.debug_sfnames) } |
|||
/* DWARF 1.1 and DWARF 2 */ |
|||
.debug_aranges 0 : { *(.debug_aranges) } |
|||
.debug_pubnames 0 : { *(.debug_pubnames) } |
|||
/* DWARF 2 */ |
|||
.debug_info 0 : { *(.debug_info) } |
|||
.debug_abbrev 0 : { *(.debug_abbrev) } |
|||
.debug_line 0 : { *(.debug_line) } |
|||
.debug_frame 0 : { *(.debug_frame) } |
|||
.debug_str 0 : { *(.debug_str) } |
|||
.debug_loc 0 : { *(.debug_loc) } |
|||
.debug_macinfo 0 : { *(.debug_macinfo) } |
|||
/* SGI/MIPS DWARF 2 extensions */ |
|||
.debug_weaknames 0 : { *(.debug_weaknames) } |
|||
.debug_funcnames 0 : { *(.debug_funcnames) } |
|||
.debug_typenames 0 : { *(.debug_typenames) } |
|||
.debug_varnames 0 : { *(.debug_varnames) } |
|||
/* These must appear regardless of . */ |
|||
} |
|||
@ -0,0 +1,19 @@ |
|||
mainvar == 1 |
|||
overriddenvar == 2 |
|||
shlibvar1 == 3 |
|||
shlib_mainvar () == 1 |
|||
shlib_overriddenvar () == 2 |
|||
shlib_shlibvar1 () == 3 |
|||
shlib_shlibvar2 () == 4 |
|||
shlib_shlibcall () == 5 |
|||
shlib_shlibcall2 () == 8 |
|||
shlib_maincall () == 6 |
|||
main_called () == 6 |
|||
shlib_checkfunptr1 (shlib_shlibvar1) == 1 |
|||
shlib_checkfunptr2 (main_called) == 1 |
|||
shlib_getfunptr1 () == shlib_shlibvar1 |
|||
shlib_getfunptr2 () == main_called |
|||
shlib_check () == 1 |
|||
visibility_check () == 1 |
|||
visibility_checkfunptr () == 1 |
|||
main_visibility_check () == 1 |
|||
@ -0,0 +1,298 @@ |
|||
# Expect script for ld-visibility tests |
|||
# Copyright (C) 2000 Free Software Foundation |
|||
# |
|||
# 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 Ian Lance Taylor (ian@cygnus.com) |
|||
# and H.J. Lu (hjl@gnu.org) |
|||
# |
|||
|
|||
# Make sure that ld can generate ELF shared libraries with visibility. |
|||
|
|||
# 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 i386-*-linux*] \ |
|||
&& ![istarget i486-*-linux*] \ |
|||
&& ![istarget i586-*-linux*] \ |
|||
&& ![istarget i686-*-linux*] \ |
|||
&& ![istarget m68k-*-linux*] \ |
|||
&& ![istarget powerpc-*-linux*] \ |
|||
&& ![istarget sparc*-*-linux*] } { |
|||
return |
|||
} |
|||
|
|||
if { [istarget *-*-linux*aout*] \ |
|||
|| [istarget *-*-linux*oldld*] } { |
|||
return |
|||
} |
|||
|
|||
set tmpdir tmpdir |
|||
set SHCFLAG "" |
|||
|
|||
if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } { |
|||
|
|||
# AIX shared libraries do not seem to support useful features, |
|||
# like overriding the shared library function or letting the |
|||
# shared library refer to objects defined in the main program. We |
|||
# avoid testing those features. |
|||
set SHCFLAG "-DXCOFF_TEST" |
|||
|
|||
# The AIX 3.2.5 loader appears to randomly fail when loading |
|||
# shared libraries from NSF mounted partitions, so we avoid any |
|||
# potential problems by using a local directory. |
|||
catch {exec /bin/sh -c "echo $$"} pid |
|||
set tmpdir /usr/tmp/ld.$pid |
|||
catch "exec mkdir $tmpdir" exec_status |
|||
|
|||
# On AIX, we need to explicitly export the symbols the shared |
|||
# library is going to provide, and need. |
|||
set file [open $tmpdir/xcoff.exp w] |
|||
puts $file shlibvar1 |
|||
puts $file shlibvar2 |
|||
puts $file shlib_shlibvar1 |
|||
puts $file shlib_shlibvar2 |
|||
puts $file shlib_shlibcall |
|||
puts $file shlib_shlibcalled |
|||
puts $file shlib_checkfunptr1 |
|||
puts $file shlib_getfunptr1 |
|||
puts $file shlib_check |
|||
close $file |
|||
} |
|||
|
|||
# The test procedure. |
|||
proc visibility_test { visibility progname testname main sh1 sh2 dat args } { |
|||
global ld |
|||
global srcdir |
|||
global subdir |
|||
global exec_output |
|||
global link_output |
|||
global host_triplet |
|||
global tmpdir |
|||
|
|||
if [llength $args] { set shldflags [lindex $args 0] } else { set shldflags "" } |
|||
|
|||
# Build the shared library. |
|||
# On AIX, we need to use an export file. |
|||
set shared -shared |
|||
if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } { |
|||
set shared "-bM:SRE -bE:$tmpdir/xcoff.exp" |
|||
} |
|||
if {![ld_simple_link $ld $tmpdir/$progname.so "$shared $shldflags $tmpdir/$sh1 $tmpdir/$sh2"]} { |
|||
fail "$testname" |
|||
return |
|||
} |
|||
|
|||
# Link against the shared library. Use -rpath so that the |
|||
# dynamic linker can locate the shared library at runtime. |
|||
# On AIX, we must include /lib in -rpath, as otherwise the loader |
|||
# can not find -lc. |
|||
set rpath $tmpdir |
|||
if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } { |
|||
set rpath /lib:$tmpdir |
|||
} |
|||
if ![ld_link $ld $tmpdir/$progname "-rpath $rpath $tmpdir/$main $tmpdir/$progname.so"] { |
|||
if { [ string match $visibility "hidden" ] |
|||
&& [string match "*/main.c*: undefined reference to \`visibility\'" $link_output] } { |
|||
pass "$testname" |
|||
} else { |
|||
fail "$testname" |
|||
} |
|||
return |
|||
} |
|||
|
|||
if [ string match $visibility "hidden" ] { |
|||
fail "$testname" |
|||
} |
|||
|
|||
# Run the resulting program |
|||
send_log "$tmpdir/$progname >$tmpdir/$progname.out\n" |
|||
verbose "$tmpdir/$progname >$tmpdir/$progname.out" |
|||
catch "exec $tmpdir/$progname >$tmpdir/$progname.out" exec_output |
|||
if ![string match "" $exec_output] then { |
|||
send_log "$exec_output\n" |
|||
verbose "$exec_output" |
|||
fail "$testname" |
|||
return |
|||
} |
|||
|
|||
send_log "diff $tmpdir/$progname.out $srcdir/$subdir/$dat.dat\n" |
|||
verbose "diff $tmpdir/$progname.out $srcdir/$subdir/$dat.dat" |
|||
catch "exec diff $tmpdir/$progname.out $srcdir/$subdir/$dat.dat" exec_output |
|||
set exec_output [prune_warnings $exec_output] |
|||
|
|||
if {![string match "" $exec_output]} then { |
|||
send_log "$exec_output\n" |
|||
verbose "$exec_output" |
|||
fail "$testname" |
|||
return |
|||
} |
|||
|
|||
pass "$testname" |
|||
} |
|||
|
|||
proc visibility_run {visibility} { |
|||
global CC |
|||
global CFLAGS |
|||
global SHCFLAG |
|||
global srcdir |
|||
global subdir |
|||
global tmpdir |
|||
global picflag |
|||
global target_triplet |
|||
|
|||
if [ string match $visibility "hidden" ] { |
|||
set VSBCFLAG "-DHIDDEN_TEST" |
|||
} else { if [ string match $visibility "hidden_normal" ] { |
|||
set VSBCFLAG "-DHIDDEN_NORMAL_TEST" |
|||
} else { if [ string match $visibility "protected" ] { |
|||
set VSBCFLAG "-DPROTECTED_TEST" |
|||
} else { |
|||
set VSBCFLAG "" |
|||
}}} |
|||
|
|||
# Compile the main program. |
|||
if ![ld_compile "$CC $CFLAGS $SHCFLAG $VSBCFLAG" $srcdir/$subdir/main.c $tmpdir/mainnp.o] { |
|||
unresolved "visibility ($visibility) (non PIC)" |
|||
unresolved "visibility ($visibility)" |
|||
} else { |
|||
# The shared library is composed of two files. First compile them |
|||
# without using -fpic. That should work on an ELF system, |
|||
# although it will be less efficient because the dynamic linker |
|||
# will need to do more relocation work. However, note that not |
|||
# using -fpic will cause some of the tests to return different |
|||
# results. |
|||
if { ![ld_compile "$CC $CFLAGS $SHCFLAG $VSBCFLAG" $srcdir/$subdir/sh1.c $tmpdir/sh1np.o] |
|||
|| ![ld_compile "$CC $CFLAGS $SHCFLAG $VSBCFLAG" $srcdir/$subdir/sh2.c $tmpdir/sh2np.o] } { |
|||
unresolved "visibility ($visibility) (non PIC)" |
|||
} else { if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } { |
|||
visibility_test $visibility vnp "visibility ($visibility) (nonPIC)" mainnp.o sh1np.o sh2np.o xcoff |
|||
} else { |
|||
# SunOS non PIC shared libraries don't permit some cases of |
|||
# overriding. |
|||
if [ string match $visibility "protected" ] { |
|||
setup_xfail $target_triplet |
|||
} else { |
|||
setup_xfail "*-*-sunos4*" |
|||
} |
|||
visibility_test $visibility vnp "visibility ($visibility) (non PIC)" mainnp.o sh1np.o sh2np.o elfvsb |
|||
|
|||
# Test ELF shared library relocations with a non-zero load |
|||
# address for the library. Near as I can tell, the R_*_RELATIVE |
|||
# relocations for various targets are broken in the case where |
|||
# the load address is not zero (which is the default). |
|||
if [ string match $visibility "protected" ] { |
|||
setup_xfail $target_triplet |
|||
} else { |
|||
setup_xfail "*-*-sunos4*" |
|||
setup_xfail "*-*-linux*libc1" |
|||
} |
|||
visibility_test $visibility vnp "visibility ($visibility) (non PIC, load offset)" \ |
|||
mainnp.o sh1np.o sh2np.o elfvsb \ |
|||
"-T $srcdir/$subdir/elf-offset.ld" |
|||
} } |
|||
|
|||
# Now compile the code using -fpic. |
|||
|
|||
if { ![ld_compile "$CC $CFLAGS $SHCFLAG $VSBCFLAG $picflag" $srcdir/$subdir/sh1.c $tmpdir/sh1p.o] |
|||
|| ![ld_compile "$CC $CFLAGS $SHCFLAG $VSBCFLAG $picflag" $srcdir/$subdir/sh2.c $tmpdir/sh2p.o] } { |
|||
unresolved "visibility ($visibility)" |
|||
} else { |
|||
if [ string match $visibility "protected" ] { |
|||
setup_xfail $target_triplet |
|||
} |
|||
# SunOS can not compare function pointers correctly |
|||
if [istarget "*-*-sunos4*"] { |
|||
visibility_test $visibility vp "visibility ($visibility)" mainnp.o sh1p.o sh2p.o sun4 |
|||
} else { if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } { |
|||
visibility_test $visibility vp "visibility ($visibility)" mainnp.o sh1p.o sh2p.o xcoff |
|||
} else { |
|||
visibility_test $visibility vp "visibility ($visibility)" mainnp.o sh1p.o sh2p.o elfvsb |
|||
} } |
|||
} |
|||
} |
|||
|
|||
# Now do the same tests again, but this time compile main.c PIC. |
|||
if ![ld_compile "$CC $CFLAGS $SHCFLAG $VSBCFLAG $picflag" $srcdir/$subdir/main.c $tmpdir/mainp.o] { |
|||
unresolved "visibility ($visibility) (PIC main, non PIC so)" |
|||
unresolved "visibility ($visibility) (PIC main)" |
|||
} else { |
|||
if { [file exists $tmpdir/sh1np.o ] && [ file exists $tmpdir/sh2np.o ] } { |
|||
if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } { |
|||
visibility_test $visibility vmpnp "visibility ($visibility) (PIC main, non PIC so)" mainp.o sh1np.o sh2np.o xcoff |
|||
} else { |
|||
# SunOS non PIC shared libraries don't permit some cases of |
|||
# overriding. |
|||
if [ string match $visibility "protected" ] { |
|||
setup_xfail $target_triplet |
|||
} else { |
|||
setup_xfail "*-*-sunos4*" |
|||
} |
|||
visibility_test $visibility vmpnp "visibility ($visibility) (PIC main, non PIC so)" mainp.o sh1np.o sh2np.o elfvsb |
|||
} |
|||
} else { |
|||
unresolved "visibility (PIC main, non PIC so)" |
|||
} |
|||
|
|||
if { [file exists $tmpdir/sh1p.o ] && [ file exists $tmpdir/sh2p.o ] } { |
|||
if [ string match $visibility "protected" ] { |
|||
setup_xfail $target_triplet |
|||
} |
|||
if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } { |
|||
visibility_test $visibility vmpp "visibility ($visibility) (PIC main)" mainp.o sh1p.o sh2p.o xcoff |
|||
} else { |
|||
visibility_test $visibility vmpp "visibility ($visibility) (PIC main)" mainp.o sh1p.o sh2p.o elfvsb |
|||
} |
|||
} else { |
|||
unresolved "visibility ($visibility) (PIC main)" |
|||
} |
|||
} |
|||
} |
|||
|
|||
if [istarget mips*-*-*] { |
|||
set picflag "" |
|||
} else { |
|||
# Unfortunately, the gcc argument is -fpic and the cc argument is |
|||
# -KPIC. We have to try both. |
|||
set picflag "-fpic" |
|||
send_log "$CC $picflag\n" |
|||
verbose "$CC $picflag" |
|||
catch "exec $CC $picflag" exec_output |
|||
send_log "$exec_output\n" |
|||
verbose "--" "$exec_output" |
|||
if { [string match "*illegal option*" $exec_output] \ |
|||
|| [string match "*option ignored*" $exec_output] \ |
|||
|| [string match "*unrecognized option*" $exec_output] \ |
|||
|| [string match "*passed to ld*" $exec_output] } { |
|||
if [istarget *-*-sunos4*] { |
|||
set picflag "-pic" |
|||
} else { |
|||
set picflag "-KPIC" |
|||
} |
|||
} |
|||
} |
|||
verbose "Using $picflag to compile PIC code" |
|||
|
|||
visibility_run hidden |
|||
visibility_run hidden_normal |
|||
visibility_run protected |
|||
visibility_run normal |
|||
|
|||
if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } { |
|||
# Remove the temporary directory. |
|||
catch "exec rm -rf $tmpdir" exec_status |
|||
} |
|||
@ -0,0 +1,104 @@ |
|||
/* This is the main program for the shared library test. */ |
|||
|
|||
#include <stdio.h> |
|||
|
|||
int mainvar = 1; |
|||
int overriddenvar = 2; |
|||
extern int shlibvar1; |
|||
|
|||
extern int shlib_mainvar (); |
|||
extern int shlib_overriddenvar (); |
|||
extern int shlib_shlibvar1 (); |
|||
extern int shlib_shlibvar2 (); |
|||
extern int shlib_shlibcall (); |
|||
extern int shlib_maincall (); |
|||
extern int shlib_checkfunptr1 (); |
|||
extern int shlib_checkfunptr2 (); |
|||
extern int (*shlib_getfunptr1 ()) (); |
|||
extern int (*shlib_getfunptr2 ()) (); |
|||
extern int shlib_check (); |
|||
extern int shlib_shlibcall2 (); |
|||
extern int visibility (); |
|||
extern int visibility_check (); |
|||
extern int visibility_checkfunptr (); |
|||
extern void *visibility_funptr (); |
|||
|
|||
#if !defined (HIDDEN_TEST) && defined (PROTECTED_TEST) |
|||
int |
|||
visibility () |
|||
{ |
|||
return 1; |
|||
} |
|||
#endif |
|||
|
|||
static int |
|||
main_visibility_check () |
|||
{ |
|||
return visibility_funptr () == visibility; |
|||
} |
|||
|
|||
/* This function is called by the shared library. */ |
|||
|
|||
int |
|||
main_called () |
|||
{ |
|||
return 6; |
|||
} |
|||
|
|||
/* This function overrides a function in the shared library. */ |
|||
|
|||
int |
|||
shlib_overriddencall2 () |
|||
{ |
|||
return 8; |
|||
} |
|||
|
|||
int |
|||
main () |
|||
{ |
|||
int (*p) (); |
|||
|
|||
printf ("mainvar == %d\n", mainvar); |
|||
printf ("overriddenvar == %d\n", overriddenvar); |
|||
printf ("shlibvar1 == %d\n", shlibvar1); |
|||
#ifndef XCOFF_TEST |
|||
printf ("shlib_mainvar () == %d\n", shlib_mainvar ()); |
|||
printf ("shlib_overriddenvar () == %d\n", shlib_overriddenvar ()); |
|||
#endif |
|||
printf ("shlib_shlibvar1 () == %d\n", shlib_shlibvar1 ()); |
|||
printf ("shlib_shlibvar2 () == %d\n", shlib_shlibvar2 ()); |
|||
printf ("shlib_shlibcall () == %d\n", shlib_shlibcall ()); |
|||
#ifndef XCOFF_TEST |
|||
printf ("shlib_shlibcall2 () == %d\n", shlib_shlibcall2 ()); |
|||
printf ("shlib_maincall () == %d\n", shlib_maincall ()); |
|||
#endif |
|||
printf ("main_called () == %d\n", main_called ()); |
|||
printf ("shlib_checkfunptr1 (shlib_shlibvar1) == %d\n", |
|||
shlib_checkfunptr1 (shlib_shlibvar1)); |
|||
#ifndef XCOFF_TEST |
|||
printf ("shlib_checkfunptr2 (main_called) == %d\n", |
|||
shlib_checkfunptr2 (main_called)); |
|||
#endif |
|||
p = shlib_getfunptr1 (); |
|||
printf ("shlib_getfunptr1 () "); |
|||
if (p == shlib_shlibvar1) |
|||
printf ("=="); |
|||
else |
|||
printf ("!="); |
|||
printf (" shlib_shlibvar1\n"); |
|||
#ifndef XCOFF_TEST |
|||
p = shlib_getfunptr2 (); |
|||
printf ("shlib_getfunptr2 () "); |
|||
if (p == main_called) |
|||
printf ("=="); |
|||
else |
|||
printf ("!="); |
|||
printf (" main_called\n"); |
|||
#endif |
|||
printf ("shlib_check () == %d\n", shlib_check ()); |
|||
printf ("visibility_check () == %d\n", visibility_check ()); |
|||
printf ("visibility_checkfunptr () == %d\n", |
|||
visibility_checkfunptr ()); |
|||
printf ("main_visibility_check () == %d\n", main_visibility_check ()); |
|||
return 0; |
|||
} |
|||
@ -0,0 +1,215 @@ |
|||
/* This is part of the shared library ld test. This file becomes part
|
|||
of a shared library. */ |
|||
|
|||
/* This variable is supplied by the main program. */ |
|||
#ifndef XCOFF_TEST |
|||
extern int mainvar; |
|||
#endif |
|||
|
|||
/* This variable is defined in the shared library, and overridden by
|
|||
the main program. */ |
|||
#ifndef XCOFF_TEST |
|||
int overriddenvar = -1; |
|||
#endif |
|||
|
|||
/* This variable is defined in the shared library. */ |
|||
int shlibvar1 = 3; |
|||
|
|||
/* This variable is defined by another object in the shared library. */ |
|||
extern int shlibvar2; |
|||
|
|||
/* These functions return the values of the above variables as seen in
|
|||
the shared library. */ |
|||
|
|||
#ifndef XCOFF_TEST |
|||
int |
|||
shlib_mainvar () |
|||
{ |
|||
return mainvar; |
|||
} |
|||
#endif |
|||
|
|||
#ifndef XCOFF_TEST |
|||
int |
|||
shlib_overriddenvar () |
|||
{ |
|||
return overriddenvar; |
|||
} |
|||
#endif |
|||
|
|||
int |
|||
shlib_shlibvar1 () |
|||
{ |
|||
return shlibvar1; |
|||
} |
|||
|
|||
int |
|||
shlib_shlibvar2 () |
|||
{ |
|||
return shlibvar2; |
|||
} |
|||
|
|||
/* This function calls a function defined by another object in the
|
|||
shared library. */ |
|||
|
|||
extern int shlib_shlibcalled (); |
|||
|
|||
int |
|||
shlib_shlibcall () |
|||
{ |
|||
return shlib_shlibcalled (); |
|||
} |
|||
|
|||
#ifndef XCOFF_TEST |
|||
/* This function calls a function defined in this object in the shared
|
|||
library. The main program will override the called function. */ |
|||
|
|||
extern int shlib_overriddencall2 (); |
|||
|
|||
int |
|||
shlib_shlibcall2 () |
|||
{ |
|||
return shlib_overriddencall2 (); |
|||
} |
|||
|
|||
int |
|||
shlib_overriddencall2 () |
|||
{ |
|||
return 7; |
|||
} |
|||
#endif |
|||
|
|||
/* This function calls a function defined by the main program. */ |
|||
|
|||
#ifndef XCOFF_TEST |
|||
extern int main_called (); |
|||
|
|||
int |
|||
shlib_maincall () |
|||
{ |
|||
return main_called (); |
|||
} |
|||
#endif |
|||
|
|||
/* This function is passed a function pointer to shlib_mainvar. It
|
|||
confirms that the pointer compares equally. */ |
|||
|
|||
int |
|||
shlib_checkfunptr1 (p) |
|||
int (*p) (); |
|||
{ |
|||
return p == shlib_shlibvar1; |
|||
} |
|||
|
|||
/* This function is passed a function pointer to main_called. It
|
|||
confirms that the pointer compares equally. */ |
|||
|
|||
#ifndef XCOFF_TEST |
|||
int |
|||
shlib_checkfunptr2 (p) |
|||
int (*p) (); |
|||
{ |
|||
return p == main_called; |
|||
} |
|||
#endif |
|||
|
|||
/* This function returns a pointer to shlib_mainvar. */ |
|||
|
|||
int |
|||
(*shlib_getfunptr1 ()) () |
|||
{ |
|||
return shlib_shlibvar1; |
|||
} |
|||
|
|||
/* This function returns a pointer to main_called. */ |
|||
|
|||
#ifndef XCOFF_TEST |
|||
int |
|||
(*shlib_getfunptr2 ()) () |
|||
{ |
|||
return main_called; |
|||
} |
|||
#endif |
|||
|
|||
/* This function makes sure that constant data and local functions
|
|||
work. */ |
|||
|
|||
#ifndef __STDC__ |
|||
#define const |
|||
#endif |
|||
|
|||
static int i = 6; |
|||
static const char *str = "Hello, world\n"; |
|||
|
|||
int |
|||
shlib_check () |
|||
{ |
|||
const char *s1, *s2; |
|||
|
|||
if (i != 6) |
|||
return 0; |
|||
|
|||
/* To isolate the test, don't rely on any external functions, such
|
|||
as strcmp. */ |
|||
s1 = "Hello, world\n"; |
|||
s2 = str; |
|||
while (*s1 != '\0') |
|||
if (*s1++ != *s2++) |
|||
return 0; |
|||
if (*s2 != '\0') |
|||
return 0; |
|||
|
|||
if (shlib_shlibvar1 () != 3) |
|||
return 0; |
|||
|
|||
return 1; |
|||
} |
|||
|
|||
int |
|||
visibility () |
|||
{ |
|||
return 2; |
|||
} |
|||
|
|||
#ifdef HIDDEN_NORMAL_TEST |
|||
asm (".hidden visibility_normal"); |
|||
|
|||
int |
|||
visibility_normal () |
|||
{ |
|||
return 2; |
|||
} |
|||
#endif |
|||
|
|||
int |
|||
visibility_checkfunptr () |
|||
{ |
|||
#ifdef HIDDEN_NORMAL_TEST |
|||
int (*v) () = visibility_normal; |
|||
#else |
|||
int (*v) () = visibility; |
|||
#endif |
|||
return (*v) () == 2; |
|||
} |
|||
|
|||
int |
|||
visibility_check () |
|||
{ |
|||
#ifdef HIDDEN_NORMAL_TEST |
|||
return visibility_normal () == 2; |
|||
#else |
|||
return visibility () == 2; |
|||
#endif |
|||
} |
|||
|
|||
void * |
|||
visibility_funptr () |
|||
{ |
|||
return visibility; |
|||
} |
|||
|
|||
#ifdef HIDDEN_TEST |
|||
asm (".hidden visibility"); |
|||
#else |
|||
asm (".protected visibility"); |
|||
#endif |
|||
@ -0,0 +1,14 @@ |
|||
/* This is part of the shared library ld test. This file becomes part
|
|||
of a shared library. */ |
|||
|
|||
/* This variable is defined here, and referenced by another file in
|
|||
the shared library. */ |
|||
int shlibvar2 = 4; |
|||
|
|||
/* This function is called by another file in the shared library. */ |
|||
|
|||
int |
|||
shlib_shlibcalled () |
|||
{ |
|||
return 5; |
|||
} |
|||
Loading…
Reference in new issue