/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License (the "License").
* You may not use this file except in compliance with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright (c) 1988 AT&T
* All Rights Reserved
*
* Copyright (c) 1991, 2010, Oracle and/or its affiliates. All rights reserved.
*/
/*
* Symbol table resolution
*/
#define ELF_TARGET_AMD64
#include <stdio.h>
#include <debug.h>
#include "msg.h"
#include "_libld.h"
/*
* Categorize the symbol types that are applicable to the resolution process.
*/
typedef enum {
SYM_DEFINED, /* Defined symbol (SHN_ABS or shndx != 0) */
SYM_UNDEFINED, /* Undefined symbol (SHN_UNDEF) */
SYM_TENTATIVE, /* Tentative symbol (SHN_COMMON) */
SYM_NUM /* the number of symbol types */
} Symtype;
/*
* Do nothing.
*/
/* ARGSUSED0 */
static void
sym_null(Sym_desc *sdp, Sym *nsym, Ifl_desc *ifl, Ofl_desc *ofl,
int ndx, Word nshndx, sd_flag_t nsdflags)
{
}
static void
sym_visibility_diag(Error err, Sym_desc *sdp, Sym *osym, Sym *nsym,
Ifl_desc *ifl, Ofl_desc *ofl)
{
Conv_inv_buf_t inv_obuf, inv_nbuf;
/* Warnings are only issued when -z verbose is specified */
if (!(ofl->ofl_flags & FLG_OF_VERBOSE) && (err != ERR_FATAL))
return;
ld_eprintf(ofl, err, MSG_INTL(MSG_SYM_CONFVIS), demangle(sdp->sd_name));
ld_eprintf(ofl, ERR_NONE, MSG_INTL(MSG_SYM_VISTYPES),
sdp->sd_file->ifl_name, conv_sym_other(osym->st_other, &inv_obuf),
ifl->ifl_name, conv_sym_other(nsym->st_other, &inv_nbuf));
if (err != ERR_FATAL)
ld_eprintf(ofl, ERR_NONE, MSG_INTL(MSG_SYM_DEFTAKEN),
ifl->ifl_name);
}
/*
* STV_VISIBILITY rules for STV_DEFAULT/INTERNAL/HIDDEN/PROTECTED say that the
* most restrictive visibility value should be taken. The precedence is:
*
* (most restrictive) INTERNAL -> HIDDEN -> PROTECTED -> DEFAULT (least)
*
* The STV_EXPORT and STV_SINGLETON visibilities are slightly different, in that
* the visibility must remain global and can not be reduced in any way.
*
* Resolution of different visibilities between two relocatable objects can
* take the following actions:
*
* i. if applicable, the most restrictive action is silently taken.
* ii. if a mapfile visibility definition competes with a more restrictive
* relocatable object definition, then a warning is generated, but the
* the more restrictive visibility is taken.
* iii. in the case of conflicts with an EXPORTED or SINGLETON symbol with
* any type of visibility between relocatable objects, the combination
* is deemed fatal.
*
* new visibility
* D I H P X S
* ------------------------------------------------------------
* D | D I(mw) H(mw) P X S
* original I | I I I I X(mw/of) S(mw/of)
* visibility H | H I(mw) H H X(mw/of) S(mw/of)
* P | P I(mw) H(mw) P X(mw/of) S(mw/of)
* X | X I(mw/of) H(mw/of) P(mw/of) X S
* S | S I(mw/of) H(mw/of) P(mw/of) S S
* where:
*
* mw - mapfile warning: if the original symbol originates from a mapfile
* then warn the user that their scope definition is being overridden.
* of - object definitions are fatal: any combination of relocatable object
* visibilities that conflict with a SINGLETON and EXPORTED are fatal.
*
* Note, an eliminate symbol (STV_ELIMINATE) is treated as hidden (STV_HIDDEN)
* for processing through this state table.
*/
static Half
sym_visibility(Sym_desc *sdp, Sym *nsym, Ifl_desc *ifl, Ofl_desc *ofl)
{
Sym *osym = sdp->sd_sym;
uchar_t wovis, ovis;
uchar_t wnvis, nvis;
wovis = ovis = ELF_ST_VISIBILITY(osym->st_other);
wnvis = nvis = ELF_ST_VISIBILITY(nsym->st_other);
/*
* If the original visibilities are eliminate, assign them hidden for
* the state table processing. The original visibility, rather than
* the working visibility, will be returned to the caller.
*/
if (wovis == STV_ELIMINATE)
wovis = STV_HIDDEN;
if (wnvis == STV_ELIMINATE)
wnvis = STV_HIDDEN;
/*
* The most complex visibility resolution is between two relocatable
* objects. However, in the case of SINGLETONS we also want to catch
* any singleton definitions within shared objects. Relocatable objects
* that bind to these symbols inherit the singleton visibility as this
* efficiently triggers ld.so.1 into carrying out the appropriate
* runtime symbol search. Any other resolution between a relocatable
* object and a shared object will retain the relocatable objects
* visibility.
*/
if ((sdp->sd_ref == REF_REL_NEED) &&
(ifl->ifl_ehdr->e_type == ET_DYN)) {
if ((sdp->sd_sym->st_shndx == SHN_UNDEF) &&
(nsym->st_shndx != SHN_UNDEF) && (wnvis == STV_SINGLETON))
return (STV_SINGLETON);
else
return (ovis);
}
if ((sdp->sd_ref != REF_REL_NEED) &&
(ifl->ifl_ehdr->e_type == ET_REL)) {
if ((sdp->sd_sym->st_shndx != SHN_UNDEF) &&
(nsym->st_shndx == SHN_UNDEF) && (wovis == STV_SINGLETON))
return (STV_SINGLETON);
else
return (nvis);
}
/*
* If the visibilities are the same, we're done. If the working
* visibilities differ from the original, then one must have been
* STV_HIDDEN and the other STV_ELIMINATE.
*/
if (wovis == wnvis) {
if (ovis == nvis)
return (nvis);
else
return (STV_ELIMINATE);
}
/*
* An EXPORTED symbol or SINGLETON symbol can not be demoted, any
* conflicting visibility from another object is fatal. A conflicting
* visibility from a mapfile produces a warning, as the mapfile
* definition can be overridden.
*/
if ((wnvis == STV_EXPORTED) || (wnvis == STV_SINGLETON)) {
if ((wovis != STV_DEFAULT) && (wovis != STV_EXPORTED) &&
(wovis != STV_SINGLETON)) {
if (sdp->sd_flags & FLG_SY_MAPFILE) {
sym_visibility_diag(ERR_WARNING, sdp, osym,
nsym, ifl, ofl);
} else {
sym_visibility_diag(ERR_FATAL, sdp, osym,
nsym, ifl, ofl);
}
}
return (nvis);
}
if (wovis == STV_SINGLETON) {
if ((wnvis == STV_EXPORTED) || (wnvis == STV_DEFAULT))
return (STV_SINGLETON);
if (sdp->sd_flags & FLG_SY_MAPFILE) {
sym_visibility_diag(ERR_WARNING, sdp, osym,
nsym, ifl, ofl);
} else {
sym_visibility_diag(ERR_FATAL, sdp, osym,
nsym, ifl, ofl);
}
return (nvis);
}
if (wovis == STV_EXPORTED) {
if (wnvis == STV_SINGLETON)
return (STV_SINGLETON);
if (wnvis == STV_DEFAULT)
return (STV_EXPORTED);
if (sdp->sd_flags & FLG_SY_MAPFILE) {
sym_visibility_diag(ERR_WARNING, sdp, osym,
nsym, ifl, ofl);
} else {
sym_visibility_diag(ERR_FATAL, sdp, osym,
nsym, ifl, ofl);
}
return (nvis);
}
/*
* Now that symbols with the same visibility, and all instances of
* SINGLETON's have been dealt with, we're left with visibilities that
* differ, but can be dealt with in the order of how restrictive the
* visibilities are. When a differing visibility originates from a
* mapfile definition, produces a warning, as the mapfile definition
* can be overridden by the relocatable object.
*/
if ((wnvis == STV_INTERNAL) || (wovis == STV_INTERNAL)) {
if ((wnvis == STV_INTERNAL) &&
(sdp->sd_flags & FLG_SY_MAPFILE)) {
sym_visibility_diag(ERR_WARNING, sdp, osym, nsym,
ifl, ofl);
}
return (STV_INTERNAL);
} else if ((wnvis == STV_HIDDEN) || (wovis == STV_HIDDEN)) {
if ((wnvis == STV_HIDDEN) &&
(sdp->sd_flags & FLG_SY_MAPFILE)) {
sym_visibility_diag(ERR_WARNING, sdp, osym, nsym,
ifl, ofl);
}
/*
* In the case of STV_ELIMINATE and STV_HIDDEN, the working
* visibility can differ from the original visibility, so make
* sure to return the original visibility.
*/
if ((ovis == STV_ELIMINATE) || (nvis == STV_ELIMINATE))
return (STV_ELIMINATE);
else
return (STV_HIDDEN);
} else if ((wnvis == STV_PROTECTED) || (wovis == STV_PROTECTED))
return (STV_PROTECTED);
return (STV_DEFAULT);
}
/*
* Check if two symbols types are compatible
*/
/*ARGSUSED4*/
static void
sym_typecheck(Sym_desc *sdp, Sym *nsym, Ifl_desc *ifl, Ofl_desc *ofl,
int ndx, Word nshndx, sd_flag_t nsdflags)
{
uchar_t otype = ELF_ST_TYPE(sdp->sd_sym->st_info);
uchar_t ntype = ELF_ST_TYPE(nsym->st_info);
Conv_inv_buf_t inv_buf1, inv_buf2;
/*
* Perform any machine specific type checking.
*/
if ((ld_targ.t_ms.ms_mach_sym_typecheck != NULL) &&
(*ld_targ.t_ms.ms_mach_sym_typecheck)(sdp, nsym, ifl, ofl))
return;
/*
* NOTYPE's can be combined with other types, only give an error if
* combining two differing types without NOTYPE.
*/
if ((otype == ntype) || (otype == STT_NOTYPE) || (ntype == STT_NOTYPE))
return;
ld_eprintf(ofl, ERR_WARNING, MSG_INTL(MSG_SYM_DIFFTYPE),
demangle(sdp->sd_name));
ld_eprintf(ofl, ERR_NONE, MSG_INTL(MSG_SYM_FILETYPES),
sdp->sd_file->ifl_name,
conv_sym_info_type(ofl->ofl_dehdr->e_machine, otype, 0, &inv_buf1),
ifl->ifl_name,
conv_sym_info_type(ofl->ofl_dehdr->e_machine, ntype, 0, &inv_buf2));
}
/*ARGSUSED4*/
static void
sym_mach_check(Sym_desc *sdp, Sym *nsym, Ifl_desc *ifl, Ofl_desc *ofl,
int ndx, Word nshndx, sd_flag_t nsdflags)
{
/*
* Perform any machine specific type checking.
*/
if (ld_targ.t_ms.ms_mach_sym_typecheck != NULL)
(void) (*ld_targ.t_ms.ms_mach_sym_typecheck)(sdp, nsym,
ifl, ofl);
}
/*
* Promote the symbols reference.
*/
static void
/* ARGSUSED4 */
sym_promote(Sym_desc *sdp, Sym *nsym, Ifl_desc *ifl, Ofl_desc *ofl,
int ndx, Word nshndx, sd_flag_t nsdflags)
{
Word shndx = nsym->st_shndx;
sym_typecheck(sdp, nsym, ifl, ofl, ndx, nshndx, nsdflags);
/*
* If the old symbol is from a shared object and the new symbol is a
* reference from a relocatable object, promote the old symbols
* reference.
*/
if ((sdp->sd_ref == REF_DYN_SEEN) &&
(ifl->ifl_ehdr->e_type == ET_REL)) {
sdp->sd_ref = REF_DYN_NEED;
/*
* If this is an undefined symbol it must be a relocatable
* object overriding a shared object. In this case also
* override the reference name so that any undefined symbol
* diagnostics will refer to the relocatable object name.
*/
if (shndx == SHN_UNDEF)
sdp->sd_aux->sa_rfile = ifl->ifl_name;
/*
* If this symbol is an undefined, or common, determine whether
* it is a global or weak reference (see build_osym(), where
* REF_DYN_NEED definitions are returned back to undefines).
*/
if (((shndx == SHN_UNDEF) || ((nsdflags & FLG_SY_SPECSEC) &&
(shndx == SHN_COMMON))) &&
(ELF_ST_BIND(nsym->st_info) == STB_GLOBAL))
sdp->sd_flags |= FLG_SY_GLOBREF;
}
}
/*
* Override a symbol.
*/
static void
sym_override(Sym_desc *sdp, Sym *nsym, Ifl_desc *ifl, Ofl_desc *ofl,
int ndx, Word nshndx, sd_flag_t nsdflags)
{
Sym *osym = sdp->sd_sym;
Word link;
/*
* In the case of a WEAK UNDEF symbol don't let a symbol from an
* unavailable object override the symbol definition. This is because
* this symbol *may* not be present in a future object and by promoting
* this symbol we are actually causing bindings (PLTS) to be formed
* to this symbol. Instead let the 'generic' weak binding take place.
*/
if ((ELF_ST_BIND(osym->st_info) == STB_WEAK) &&
(sdp->sd_sym->st_shndx == SHN_UNDEF) &&
((ifl->ifl_flags & FLG_IF_NEEDED) == 0))
return;
sym_typecheck(sdp, nsym, ifl, ofl, ndx, nshndx, nsdflags);
/*
* This symbol has already been compared to an SO definition,
* as per the runtime behavior, ignore extra definitions.
*/
if ((sdp->sd_flags & FLG_SY_SOFOUND) &&
(ifl->ifl_ehdr->e_type == ET_DYN))
return;
/*
* Mark the symbol as available and copy the new symbols contents.
*/
sdp->sd_flags &= ~FLG_SY_NOTAVAIL;
*osym = *nsym;
sdp->sd_shndx = nshndx;
sdp->sd_flags &= ~FLG_SY_SPECSEC;
sdp->sd_flags |= (nsdflags & (FLG_SY_SPECSEC | FLG_SY_TENTSYM));
/*
* If the new symbol has PROTECTED visibility, mark it. If a PROTECTED
* symbol is copy relocated, a warning message will be printed. See
* reloc_exec().
*/
if (ELF_ST_VISIBILITY(nsym->st_other) == STV_PROTECTED)
sdp->sd_flags |= FLG_SY_PROT;
else
sdp->sd_flags &= ~FLG_SY_PROT;
/*
* Establish the symbols reference. If the new symbol originates from a
* relocatable object then this reference becomes needed, otherwise
* the new symbol must be from a shared object. In this case only
* promote the symbol to needed if we presently have a reference from a
* relocatable object.
*/
if (ifl->ifl_ehdr->e_type == ET_REL) {
sdp->sd_ref = REF_REL_NEED;
if (nsym->st_shndx == SHN_UNDEF) {
/*
* If this is an undefined symbol, then we can only be
* attempting to override an existing undefined symbol.
* The original symbol is either:
*
* - a mapfile definition
* - a previous relocatable object whose visibility
* or type should be overridden by this new symbol
* - a previous shared object
*
* If the original undefined symbol stems from a mapfile
* then don't alter the reference file name. Should we
* end up with some form of 'undefined' symbol error,
* the characteristics of that error are most likely to
* have originated from a mapfile.
*
* Otherwise, update the reference file name to indicate
* this symbol.
*/
if ((sdp->sd_flags & FLG_SY_MAPREF) == 0)
sdp->sd_aux->sa_rfile = ifl->ifl_name;
} else {
/*
* Under -Bnodirect, all exported interfaces that have
* not explicitly been defined protected or directly
* bound to, are tagged to prevent direct binding.
*/
if ((ofl->ofl_flags1 & FLG_OF1_ALNODIR) &&
((sdp->sd_flags &
(FLG_SY_PROTECT | FLG_SY_DIR)) == 0))
sdp->sd_flags |= FLG_SY_NDIR;
}
/*
* If this symbol is an undefined, or common, determine whether
* it is a global or weak reference (see build_osym(), where
* REF_DYN_NEED definitions are returned back to undefines).
*/
if (((nsym->st_shndx == SHN_UNDEF) ||
((nsdflags & FLG_SY_SPECSEC) &&
(nsym->st_shndx == SHN_COMMON))) &&
(ELF_ST_BIND(nsym->st_info) == STB_GLOBAL))
sdp->sd_flags |= FLG_SY_GLOBREF;
else
sdp->sd_flags &= ~FLG_SY_GLOBREF;
} else {
if (sdp->sd_ref == REF_REL_NEED)
sdp->sd_ref = REF_DYN_NEED;
/*
* Determine the symbols availability. A symbol is determined
* to be unavailable if it belongs to a version of a shared
* object that this user does not wish to use, or if it belongs
* to an implicit shared object.
*/
if (ifl->ifl_vercnt) {
Ver_index *vip;
Half vndx = ifl->ifl_versym[ndx];
sdp->sd_aux->sa_dverndx = vndx;
vip = &ifl->ifl_verndx[vndx];
if (!(vip->vi_flags & FLG_VER_AVAIL)) {
sdp->sd_flags |= FLG_SY_NOTAVAIL;
/*
* If this is the first occurrence of an
* unavailable symbol record it for possible
* use in later error diagnostics
* (see sym_undef).
*/
if (!(sdp->sd_aux->sa_vfile))
sdp->sd_aux->sa_vfile = ifl->ifl_name;
}
}
if (!(ifl->ifl_flags & FLG_IF_NEEDED))
sdp->sd_flags |= FLG_SY_NOTAVAIL;
}
/*
* Make sure any symbol association maintained by the original symbol
* is cleared and then update the symbols file reference.
*/
if ((link = sdp->sd_aux->sa_linkndx) != 0) {
Sym_desc * _sdp;
_sdp = sdp->sd_file->ifl_oldndx[link];
_sdp->sd_aux->sa_linkndx = 0;
sdp->sd_aux->sa_linkndx = 0;
}
sdp->sd_file = ifl;
/*
* Update the input section descriptor to that of the new input file
*/
if (((nsdflags & FLG_SY_SPECSEC) == 0) &&
(nsym->st_shndx != SHN_UNDEF) &&
((sdp->sd_isc = ifl->ifl_isdesc[nshndx]) == NULL))
ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_SYM_NOSECDEF),
demangle(sdp->sd_name), ifl->ifl_name);
}
/*
* Resolve two undefines (only called for two relocatable objects).
*/
static void
sym_twoundefs(Sym_desc *sdp, Sym *nsym, Ifl_desc *ifl, Ofl_desc *ofl,
int ndx, Word nshndx, sd_flag_t nsdflags)
{
Sym *osym = sdp->sd_sym;
uchar_t obind = ELF_ST_BIND(osym->st_info);
uchar_t otype = ELF_ST_TYPE(osym->st_info);
uchar_t nbind = ELF_ST_BIND(nsym->st_info);
uchar_t ntype = ELF_ST_TYPE(nsym->st_info);
/*
* If two relocatable objects define a weak and non-weak undefined
* reference, take the non-weak definition.
*
* -- or --
*
* If two relocatable objects define a NOTYPE & another, then
* take the other.
*/
if (((obind == STB_WEAK) && (nbind != STB_WEAK)) ||
(otype == STT_NOTYPE) && (ntype != STT_NOTYPE)) {
sym_override(sdp, nsym, ifl, ofl, ndx, nshndx, nsdflags);
return;
}
sym_typecheck(sdp, nsym, ifl, ofl, ndx, nshndx, nsdflags);
}
/*
* Resolve two real definitions.
*/
static void
sym_tworeals(Sym_desc *sdp, Sym *nsym, Ifl_desc *ifl, Ofl_desc *ofl,
int ndx, Word nshndx, sd_flag_t nsdflags)
{
Conv_inv_buf_t inv_buf1, inv_buf2;
Sym *osym = sdp->sd_sym;
uchar_t otype = ELF_ST_TYPE(osym->st_info);
uchar_t obind = ELF_ST_BIND(osym->st_info);
uchar_t ntype = ELF_ST_TYPE(nsym->st_info);
uchar_t nbind = ELF_ST_BIND(nsym->st_info);
Half ofile = sdp->sd_file->ifl_ehdr->e_type;
Half nfile = ifl->ifl_ehdr->e_type;
int warn = 0;
/*
* If both definitions are from relocatable objects, and have non-weak
* binding then this is a fatal condition.
*/
if ((ofile == ET_REL) && (nfile == ET_REL) && (obind != STB_WEAK) &&
(nbind != STB_WEAK) && (!(ofl->ofl_flags & FLG_OF_MULDEFS))) {
ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_SYM_MULDEF),
demangle(sdp->sd_name));
ld_eprintf(ofl, ERR_NONE, MSG_INTL(MSG_SYM_FILETYPES),
sdp->sd_file->ifl_name,
conv_sym_info_type(ofl->ofl_dehdr->e_machine, otype,
0, &inv_buf1), ifl->ifl_name,
conv_sym_info_type(ofl->ofl_dehdr->e_machine, ntype,
0, &inv_buf2));
return;
}
/*
* Perform any machine specific type checking.
*/
if ((ld_targ.t_ms.ms_mach_sym_typecheck != NULL) &&
(*ld_targ.t_ms.ms_mach_sym_typecheck)(sdp, nsym, ifl, ofl))
return;
/*
* Check the symbols type and size.
*/
if (otype != ntype) {
ld_eprintf(ofl, ERR_WARNING, MSG_INTL(MSG_SYM_DIFFTYPE),
demangle(sdp->sd_name));
ld_eprintf(ofl, ERR_NONE, MSG_INTL(MSG_SYM_FILETYPES),
sdp->sd_file->ifl_name,
conv_sym_info_type(ofl->ofl_dehdr->e_machine, otype,
0, &inv_buf1), ifl->ifl_name,
conv_sym_info_type(ofl->ofl_dehdr->e_machine, ntype,
0, &inv_buf2));
warn++;
} else if ((otype == STT_OBJECT) && (osym->st_size != nsym->st_size)) {
if (!(ofl->ofl_flags & FLG_OF_NOWARN)) {
ld_eprintf(ofl, ERR_WARNING,
MSG_INTL(MSG_SYM_DIFFATTR), demangle(sdp->sd_name),
MSG_INTL(MSG_STR_SIZES), sdp->sd_file->ifl_name,
EC_XWORD(osym->st_size), ifl->ifl_name,
EC_XWORD(nsym->st_size));
warn++;
}
}
/*
* Having provided the user with any necessary warnings, take the
* appropriate symbol:
*
* - if one symbol is from a shared object and the other is from a
* relocatable object, take the relocatable objects symbol (the
* run-time linker is always going to find the relocatable object
* symbol regardless of the binding), else
*
* - if both symbols are from relocatable objects and one symbol is
* weak take the non-weak symbol (two non-weak symbols would have
* generated the fatal error condition above unless -z muldefs is
* in effect), else
*
* - take the first symbol definition encountered.
*/
if ((sdp->sd_flags & FLG_SY_SOFOUND) && (nfile == ET_DYN)) {
if (warn)
ld_eprintf(ofl, ERR_NONE, MSG_INTL(MSG_SYM_DEFTAKEN),
sdp->sd_file->ifl_name);
return;
} else if ((nfile == ET_REL) && ((ofile == ET_DYN) ||
((obind == STB_WEAK) && (nbind != STB_WEAK)))) {
if (warn)
ld_eprintf(ofl, ERR_NONE, MSG_INTL(MSG_SYM_DEFTAKEN),
ifl->ifl_name);
sym_override(sdp, nsym, ifl, ofl, ndx, nshndx, nsdflags);
return;
} else {
if (warn)
ld_eprintf(ofl, ERR_NONE, MSG_INTL(MSG_SYM_DEFTAKEN),
sdp->sd_file->ifl_name);
sym_promote(sdp, nsym, ifl, ofl, ndx, nshndx, nsdflags);
return;
}
}
/*
* Resolve a real and tentative definition.
*/
static void
sym_realtent(Sym_desc *sdp, Sym *nsym, Ifl_desc *ifl, Ofl_desc *ofl,
int ndx, Word nshndx, sd_flag_t nsdflags)
{
Conv_inv_buf_t inv_buf1, inv_buf2;
Sym *osym = sdp->sd_sym;
uchar_t otype = ELF_ST_TYPE(osym->st_info);
uchar_t obind = ELF_ST_BIND(osym->st_info);
uchar_t ntype = ELF_ST_TYPE(nsym->st_info);
uchar_t nbind = ELF_ST_BIND(nsym->st_info);
Boolean otent = FALSE, ntent = FALSE;
Half ofile = sdp->sd_file->ifl_ehdr->e_type;
Half nfile = ifl->ifl_ehdr->e_type;
int warn = 0;
uchar_t ovis = ELF_ST_VISIBILITY(osym->st_other);
uchar_t nvis = ELF_ST_VISIBILITY(nsym->st_other);
/*
* Special rules for functions.
*
* - If both definitions are from relocatable objects, have the same
* binding (ie. two weaks or two non-weaks), and the real
* definition is a function (the other must be tentative), treat
* this as a multiply defined symbol error, else
*
* - if the real symbol definition is a function within a shared
* library and the tentative symbol is a relocatable object, and
* the tentative is not weak and the function real, then retain the
* tentative definition.
*/
if ((ofile == ET_REL) && (nfile == ET_REL) && (obind == nbind) &&
((otype == STT_FUNC) || (ntype == STT_FUNC))) {
if (ofl->ofl_flags & FLG_OF_MULDEFS) {
ld_eprintf(ofl, ERR_WARNING, MSG_INTL(MSG_SYM_DIFFTYPE),
demangle(sdp->sd_name));
sym_promote(sdp, nsym, ifl, ofl, ndx,
nshndx, nsdflags);
} else {
ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_SYM_MULDEF),
demangle(sdp->sd_name));
}
ld_eprintf(ofl, ERR_NONE, MSG_INTL(MSG_SYM_FILETYPES),
sdp->sd_file->ifl_name,
conv_sym_info_type(ofl->ofl_dehdr->e_machine, otype,
0, &inv_buf1), ifl->ifl_name,
conv_sym_info_type(ofl->ofl_dehdr->e_machine, ntype,
0, &inv_buf2));
return;
} else if (ofile != nfile) {
if ((ofile == ET_DYN) && (otype == STT_FUNC)) {
if ((otype != STB_WEAK) && (ntype == STB_WEAK))
return;
else {
sym_override(sdp, nsym, ifl, ofl, ndx,
nshndx, nsdflags);
return;
}
}
if ((nfile == ET_DYN) && (ntype == STT_FUNC)) {
if ((ntype != STB_WEAK) && (otype == STB_WEAK)) {
sym_override(sdp, nsym, ifl, ofl, ndx,
nshndx, nsdflags);
return;
} else
return;
}
}
if (sdp->sd_flags & FLG_SY_TENTSYM)
otent = TRUE;
if (nsdflags & FLG_SY_TENTSYM)
ntent = TRUE;
/*
* Check the symbols type and size.
*/
if (otype != ntype) {
ld_eprintf(ofl, ERR_WARNING, MSG_INTL(MSG_SYM_DIFFTYPE),
demangle(sdp->sd_name));
ld_eprintf(ofl, ERR_NONE, MSG_INTL(MSG_SYM_FILETYPES),
sdp->sd_file->ifl_name,
conv_sym_info_type(ofl->ofl_dehdr->e_machine, otype,
0, &inv_buf1), ifl->ifl_name,
conv_sym_info_type(ofl->ofl_dehdr->e_machine, ntype,
0, &inv_buf2));
warn++;
} else if (osym->st_size != nsym->st_size) {
/*
* If both definitions are from relocatable objects we have a
* potential fatal error condition. If the tentative is larger
* than the real definition treat this as a multiple definition.
* Note that if only one symbol is weak, the non-weak will be
* taken.
*/
if (((ofile == ET_REL) && (nfile == ET_REL) &&
(obind == nbind)) &&
((otent && (osym->st_size > nsym->st_size)) ||
(ntent && (osym->st_size < nsym->st_size)))) {
ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_SYM_DIFFATTR),
demangle(sdp->sd_name), MSG_INTL(MSG_STR_SIZES),
sdp->sd_file->ifl_name, EC_XWORD(osym->st_size),
ifl->ifl_name, EC_XWORD(nsym->st_size));
ld_eprintf(ofl, ERR_NONE, MSG_INTL(MSG_SYM_TENTERR));
} else {
if (!(ofl->ofl_flags & FLG_OF_NOWARN)) {
ld_eprintf(ofl, ERR_WARNING,
MSG_INTL(MSG_SYM_DIFFATTR),
demangle(sdp->sd_name),
MSG_INTL(MSG_STR_SIZES),
sdp->sd_file->ifl_name,
EC_XWORD(osym->st_size),
ifl->ifl_name, EC_XWORD(nsym->st_size));
warn++;
}
}
}
/*
* Having provided the user with any necessary warnings, take the
* appropriate symbol:
*
* - if the original symbol is from relocatable file and it is
* a protected tentative symbol, take the original one.
*
* - if the original symbol is from shared object and the new
* symbol is a protected tentative symbol from a relocatable file,
* take the new one.
*
* - if the original symbol is tentative, and providing the original
* symbol isn't strong and the new symbol weak, take the real
* symbol, else
*
* - if the original symbol is weak and the new tentative symbol is
* strong take the new symbol.
*
* Refer to the System V ABI Page 4-27 for a description of the binding
* requirements of tentative and weak symbols.
*/
if ((ofile == ET_REL) && (nfile == ET_DYN) && (otent == TRUE) &&
(ovis == STV_PROTECTED)) {
return;
}
if ((ofile == ET_DYN) && (nfile == ET_REL) && (ntent == TRUE) &&
(nvis == STV_PROTECTED)) {
sym_override(sdp, nsym, ifl, ofl, ndx, nshndx, nsdflags);
return;
}
if ((sdp->sd_flags & FLG_SY_SOFOUND) && (nfile == ET_DYN)) {
if (warn)
ld_eprintf(ofl, ERR_NONE, MSG_INTL(MSG_SYM_DEFTAKEN),
sdp->sd_file->ifl_name);
return;
}
if (((otent) && (!((obind != STB_WEAK) && (nbind == STB_WEAK)))) ||
((obind == STB_WEAK) && (nbind != STB_WEAK))) {
if (warn)
ld_eprintf(ofl, ERR_NONE, MSG_INTL(MSG_SYM_DEFTAKEN),
ifl->ifl_name);
sym_override(sdp, nsym, ifl, ofl, ndx, nshndx, nsdflags);
return;
} else {
if (warn)
ld_eprintf(ofl, ERR_NONE, MSG_INTL(MSG_SYM_DEFTAKEN),
sdp->sd_file->ifl_name);
sym_promote(sdp, nsym, ifl, ofl, ndx, nshndx, nsdflags);
return;
}
}
/*
* Resolve two tentative symbols.
*/
static void
sym_twotent(Sym_desc *sdp, Sym *nsym, Ifl_desc *ifl, Ofl_desc *ofl,
int ndx, Word nshndx, sd_flag_t nsdflags)
{
Sym *osym = sdp->sd_sym;
uchar_t obind = ELF_ST_BIND(osym->st_info);
uchar_t nbind = ELF_ST_BIND(nsym->st_info);
Half ofile = sdp->sd_file->ifl_ehdr->e_type;
Half nfile = ifl->ifl_ehdr->e_type;
size_t size = 0;
Xword value = 0;
#if defined(_ELF64)
if (ld_targ.t_m.m_mach == EM_AMD64) {
/*
* If the original and new symbols are both COMMON, but of
* a different size model, take the small one.
*/
if ((sdp->sd_sym->st_shndx == SHN_COMMON) &&
(nsym->st_shndx == SHN_X86_64_LCOMMON)) {
/*
* Take the original symbol.
*/
return;
} else if ((sdp->sd_sym->st_shndx == SHN_X86_64_LCOMMON) &&
(nsym->st_shndx == SHN_COMMON)) {
/*
* Take the new symbol.
*/
sym_override(sdp, nsym, ifl, ofl, ndx, nshndx,
nsdflags);
return;
}
}
#endif
/*
* Check the alignment of the symbols. This can only be tested for if
* the symbols are not real definitions to a SHT_NOBITS section (ie.
* they were originally tentative), as in this case the symbol would
* have a displacement value rather than an alignment. In other words
* we can only test this for two relocatable objects.
*/
/* BEGIN CSTYLED */
if ((osym->st_value != nsym->st_value) &&
((sdp->sd_flags & FLG_SY_SPECSEC) &&
(sdp->sd_sym->st_shndx == SHN_COMMON) &&
(nsdflags & FLG_SY_SPECSEC) &&
#if defined(_ELF64)
(nsym->st_shndx == SHN_COMMON)) ||
((ld_targ.t_m.m_mach == EM_AMD64) &&
(sdp->sd_flags & FLG_SY_SPECSEC) &&
(sdp->sd_sym->st_shndx == SHN_X86_64_LCOMMON) &&
(nsdflags & FLG_SY_SPECSEC) &&
(nsym->st_shndx == SHN_X86_64_LCOMMON))) {
#else
(nsym->st_shndx == SHN_COMMON))) {
#endif
/* END CSTYLED */
const char *emsg = MSG_INTL(MSG_SYM_DEFTAKEN);
const char *file;
Xword salign;
Xword balign;
uint_t alignscompliment;
if (osym->st_value < nsym->st_value) {
salign = osym->st_value;
balign = nsym->st_value;
} else {
salign = nsym->st_value;
balign = osym->st_value;
}
/*
* If the smaller alignment fits smoothly into the
* larger alignment - we take it with no warning.
*/
if (S_ALIGN(balign, salign) == balign)
alignscompliment = 1;
else
alignscompliment = 0;
if (!(ofl->ofl_flags & FLG_OF_NOWARN) && !alignscompliment)
ld_eprintf(ofl, ERR_WARNING,
MSG_INTL(MSG_SYM_DIFFATTR), demangle(sdp->sd_name),
MSG_INTL(MSG_STR_ALIGNMENTS),
sdp->sd_file->ifl_name, EC_XWORD(osym->st_value),
ifl->ifl_name, EC_XWORD(nsym->st_value));
/*
* Having provided the necessary warning indicate which
* relocatable object we are going to take.
*
* - if one symbol is weak and the other is non-weak
* take the non-weak symbol, else
*
* - take the largest alignment (as we still have to check
* the symbols size simply save the largest value for
* updating later).
*/
if ((obind == STB_WEAK) && (nbind != STB_WEAK))
file = ifl->ifl_name;
else if (obind != nbind)
file = sdp->sd_file->ifl_name;
else {
emsg = MSG_INTL(MSG_SYM_LARGER);
value = balign;
}
if (!(ofl->ofl_flags & FLG_OF_NOWARN) && !alignscompliment)
ld_eprintf(ofl, ERR_NONE, emsg, file);
}
/*
* Check the size of the symbols.
*/
if (osym->st_size != nsym->st_size) {
const char *emsg = MSG_INTL(MSG_SYM_DEFTAKEN);
const char *file;
if (!(ofl->ofl_flags & FLG_OF_NOWARN))
ld_eprintf(ofl, ERR_WARNING, MSG_INTL(MSG_SYM_DIFFATTR),
demangle(sdp->sd_name), MSG_INTL(MSG_STR_SIZES),
sdp->sd_file->ifl_name, EC_XWORD(osym->st_size),
ifl->ifl_name, EC_XWORD(nsym->st_size));
/*
* This symbol has already been compared to an SO definition,
* as per the runtime behavior, ignore extra definitions.
*/
if ((sdp->sd_flags & FLG_SY_SOFOUND) && (nfile == ET_DYN)) {
if (!(ofl->ofl_flags & FLG_OF_NOWARN))
ld_eprintf(ofl, ERR_NONE, emsg,
sdp->sd_file->ifl_name);
return;
}
/*
* Having provided the necessary warning indicate what course
* of action we are going to take.
*
* - if the file types differ, take the relocatable object
* and apply the largest symbol size, else
* - if one symbol is weak and the other is non-weak, take
* the non-weak symbol, else
* - simply take the largest symbol reference.
*/
if (nfile != ofile) {
if (nfile == ET_REL) {
file = ifl->ifl_name;
if (osym->st_size > nsym->st_size) {
size = (size_t)osym->st_size;
emsg = MSG_INTL(MSG_SYM_DEFUPDATE);
}
sym_override(sdp, nsym, ifl, ofl, ndx,
nshndx, nsdflags);
} else {
file = sdp->sd_file->ifl_name;
if (osym->st_size < nsym->st_size) {
size = (size_t)nsym->st_size;
emsg = MSG_INTL(MSG_SYM_DEFUPDATE);
}
sym_promote(sdp, nsym, ifl, ofl, ndx,
nshndx, nsdflags);
}
} else if (obind != nbind) {
if ((obind == STB_WEAK) && (nbind != STB_WEAK)) {
sym_override(sdp, nsym, ifl, ofl, ndx,
nshndx, nsdflags);
file = ifl->ifl_name;
} else
file = sdp->sd_file->ifl_name;
} else {
if (osym->st_size < nsym->st_size) {
sym_override(sdp, nsym, ifl, ofl, ndx,
nshndx, nsdflags);
file = ifl->ifl_name;
} else
file = sdp->sd_file->ifl_name;
}
if (!(ofl->ofl_flags & FLG_OF_NOWARN))
ld_eprintf(ofl, ERR_NONE, emsg, file);
if (size)
sdp->sd_sym->st_size = (Xword)size;
} else {
/*
* If the sizes are the same
*
* - if the file types differ, take the relocatable object,
* else
*
* - if one symbol is weak and the other is non-weak, take
* the non-weak symbol, else
*
* - take the first reference.
*/
if ((sdp->sd_flags & FLG_SY_SOFOUND) && (nfile == ET_DYN))
return;
else if (((ofile != nfile) && (nfile == ET_REL)) ||
(((obind == STB_WEAK) && (nbind != STB_WEAK)) &&
(!((ofile != nfile) && (ofile == ET_REL)))))
sym_override(sdp, nsym, ifl, ofl, ndx,
nshndx, nsdflags);
else
sym_promote(sdp, nsym, ifl, ofl, ndx,
nshndx, nsdflags);
}
/*
* Enforce the largest alignment if necessary.
*/
if (value)
sdp->sd_sym->st_value = value;
}
/*
* Symbol resolution state table. `Action' describes the required
* procedure to be called (if any).
*/
static void (*Action[REF_NUM * SYM_NUM * 2][SYM_NUM])(Sym_desc *,
Sym *, Ifl_desc *, Ofl_desc *, int, Word, sd_flag_t) = {
/* defined undef tent */
/* ET_REL ET_REL ET_REL */
/* 0 defined REF_DYN_SEEN */ sym_tworeals, sym_promote, sym_realtent,
/* 1 undef REF_DYN_SEEN */ sym_override, sym_override, sym_override,
/* 2 tent REF_DYN_SEEN */ sym_realtent, sym_promote, sym_twotent,
/* 3 defined REF_DYN_NEED */ sym_tworeals, sym_typecheck, sym_realtent,
/* 4 undef REF_DYN_NEED */ sym_override, sym_override, sym_override,
/* 5 tent REF_DYN_NEED */ sym_realtent, sym_typecheck, sym_twotent,
/* 6 defined REF_REL_NEED */ sym_tworeals, sym_typecheck, sym_realtent,
/* 7 undef REF_REL_NEED */ sym_override, sym_twoundefs, sym_override,
/* 8 tent REF_REL_NEED */ sym_realtent, sym_null, sym_twotent,
/* defined undef tent */
/* ET_DYN ET_DYN ET_DYN */
/* 9 defined REF_DYN_SEEN */ sym_tworeals, sym_null, sym_realtent,
/* 10 undef REF_DYN_SEEN */ sym_override, sym_mach_check, sym_override,
/* 11 tent REF_DYN_SEEN */ sym_realtent, sym_null, sym_twotent,
/* 12 defined REF_DYN_NEED */ sym_tworeals, sym_null, sym_realtent,
/* 13 undef REF_DYN_NEED */ sym_override, sym_null, sym_override,
/* 14 tent REF_DYN_NEED */ sym_realtent, sym_null, sym_twotent,
/* 15 defined REF_REL_NEED */ sym_tworeals, sym_null, sym_realtent,
/* 16 undef REF_REL_NEED */ sym_override, sym_mach_check, sym_override,
/* 17 tent REF_REL_NEED */ sym_realtent, sym_null, sym_twotent
};
uintptr_t
ld_sym_resolve(Sym_desc *sdp, Sym *nsym, Ifl_desc *ifl, Ofl_desc *ofl, int ndx,
Word nshndx, sd_flag_t nsdflags)
{
int row, column; /* State table coordinates */
Sym *osym = sdp->sd_sym;
sd_flag_t osdflags = sdp->sd_flags;
Is_desc *isp;
Half vis = 0, nfile = ifl->ifl_ehdr->e_type;
Half oref = sdp->sd_ref;
/*
* Determine the original symbols definition (defines row in Action[]).
*/
if (osdflags & FLG_SY_TENTSYM)
row = SYM_TENTATIVE;
else if ((sdp->sd_sym->st_shndx == SHN_UNDEF) ||
(sdp->sd_sym->st_shndx == SHN_SUNW_IGNORE))
row = SYM_UNDEFINED;
else
row = SYM_DEFINED;
/*
* If the input file is an implicit shared object then we don't need
* to bind to any symbols within it other than to verify that any
* undefined references will be closed (implicit shared objects are only
* processed when no undefined symbols are required as a result of the
* link-edit (see process_dynamic())).
*/
if ((nfile == ET_DYN) && !(ifl->ifl_flags & FLG_IF_NEEDED) &&
(row != SYM_UNDEFINED))
return (1);
/*
* Finish computing the Action[] row by applying the symbols reference
* together with the input files type.
*/
row = row + (REF_NUM * sdp->sd_ref);
if (nfile == ET_DYN)
row += (REF_NUM * SYM_NUM);
/*
* If either the original or new symbol originates from a relocatable
* object, determine the appropriate visibility for the resolved symbol.
*/
if ((oref == REF_REL_NEED) || (nfile == ET_REL))
vis = sym_visibility(sdp, nsym, ifl, ofl);
/*
* Determine the new symbols definition (defines column in Action[]).
*/
if ((nsdflags & FLG_SY_SPECSEC) &&
(nsym->st_shndx == SHN_COMMON)) {
column = SYM_TENTATIVE;
nsdflags |= FLG_SY_TENTSYM;
#if defined(_ELF64)
} else if ((ld_targ.t_m.m_mach == EM_AMD64) &&
(nsdflags & FLG_SY_SPECSEC) &&
(nsym->st_shndx == SHN_X86_64_LCOMMON)) {
column = SYM_TENTATIVE;
nsdflags |= FLG_SY_TENTSYM;
#endif
} else if ((nsym->st_shndx == SHN_UNDEF) ||
(nsym->st_shndx == SHN_SUNW_IGNORE)) {
column = SYM_UNDEFINED;
nshndx = SHN_UNDEF;
} else {
column = SYM_DEFINED;
/*
* If the new symbol is from a shared library and it is
* associated with a SHT_NOBITS section then this symbol
* originated from a tentative symbol.
*/
if (((nsdflags & FLG_SY_SPECSEC) == 0) && (nfile == ET_DYN)) {
isp = ifl->ifl_isdesc[nshndx];
if (isp && (isp->is_shdr->sh_type == SHT_NOBITS)) {
column = SYM_TENTATIVE;
nsdflags |= FLG_SY_TENTSYM;
}
}
}
DBG_CALL(Dbg_syms_resolving(ofl, ndx, sdp->sd_name, row, column,
osym, nsym, sdp, ifl));
/*
* Record the input filename on the defined files list for possible
* later diagnostics. The `sa_dfiles' list is used to maintain the list
* of shared objects that define the same symbol. This list is only
* generated when the -m option is in effect and is used to list
* multiple (interposed) definitions of a symbol (refer to ldmap_out()).
*/
if ((ofl->ofl_flags & FLG_OF_GENMAP) && (nsym->st_shndx != SHN_UNDEF) &&
((nsdflags & FLG_SY_SPECSEC) == 0))
if (aplist_append(&sdp->sd_aux->sa_dfiles, ifl->ifl_name,
AL_CNT_SDP_DFILES) == NULL)
return (S_ERROR);
/*
* Perform the required resolution.
*/
Action[row][column](sdp, nsym, ifl, ofl, ndx, nshndx, nsdflags);
/*
* Apply any visibility requirements. If a SINGLETON has been
* established, make sure no symbol reduction indicators remain
* associated with the symbol, and indicate that the symbol can not
* be directly bound to.
*/
if ((oref == REF_REL_NEED) || (nfile == ET_REL)) {
if ((vis == STV_EXPORTED) || (vis == STV_SINGLETON)) {
sdp->sd_flags &= ~MSK_SY_LOCAL;
if (vis == STV_EXPORTED)
sdp->sd_flags |= FLG_SY_EXPORT;
else {
sdp->sd_flags |= (FLG_SY_NDIR | FLG_SY_SINGLE);
if (sdp->sd_ref == REF_REL_NEED) {
ofl->ofl_flags1 |=
(FLG_OF1_NDIRECT | FLG_OF1_NGLBDIR);
}
}
} else if (vis == STV_PROTECTED) {
sdp->sd_flags |= FLG_SY_PROTECT;
} else if ((vis == STV_INTERNAL) || (vis == STV_HIDDEN)) {
sdp->sd_flags |= FLG_SY_HIDDEN;
} else if (vis == STV_ELIMINATE) {
sdp->sd_flags |= (FLG_SY_HIDDEN | FLG_SY_ELIM);
}
sdp->sd_sym->st_other =
(sdp->sd_sym->st_other & ~MSK_SYM_VISIBILITY) | vis;
}
/*
* If the symbol has been resolved to the new input file, and this is
* a versioned relocatable object, then the version information of the
* new symbol must be promoted to the versioning of the output file.
*/
if ((sdp->sd_file == ifl) && (nfile == ET_REL) && (ifl->ifl_versym) &&
(nsym->st_shndx != SHN_UNDEF))
ld_vers_promote(sdp, ndx, ifl, ofl);
/*
* Determine whether a mapfile reference has been satisfied. Mapfile
* symbol references augment symbols that should be contributed from
* the relocatable objects used to build the output image. If a
* relocatable object doesn't provide one of the mapfile symbol
* references then somethings amiss, and will be flagged during symbol
* validation.
*/
if ((nfile == ET_REL) && ((sdp->sd_flags &
(FLG_SY_MAPREF | FLG_SY_MAPUSED)) == FLG_SY_MAPREF)) {
/*
* Extern and parent references are satisfied by references from
* a relocatable object. Note that we let *any* symbol type
* satisfy this reference, to be as flexible as possible with
* user written mapfiles. It could be questionable, for
* example, if what a user expects to be an extern reference is
* actually found to be a definition in a relocatable object.
*
* Any other mapfile reference (typically for versioning
* information) simply augments a relocatables definition.
*/
if ((sdp->sd_flags & (FLG_SY_EXTERN | FLG_SY_PARENT)) ||
((sdp->sd_sym->st_shndx != SHN_UNDEF) &&
(sdp->sd_ref == REF_REL_NEED)))
sdp->sd_flags |= FLG_SY_MAPUSED;
}
/*
* Make sure any special symbol requirements are carried over.
*/
if ((osdflags & FLG_SY_CAP) || (nsdflags & FLG_SY_CAP))
sdp->sd_flags |= FLG_SY_CAP;
DBG_CALL(Dbg_syms_resolved(ofl, sdp));
return (1);
}