_setup.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (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 2005 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/* Copyright (c) 1988 AT&T */
/* All Rights Reserved */
#pragma ident "%Z%%M% %I% %E% SMI"
/*
* i386 specific setup routine - relocate ld.so's symbols, setup its
* environment, map in loadable sections of the executable.
*
* Takes base address ld.so was loaded at, address of ld.so's dynamic
* structure, address of process environment pointers, address of auxiliary
* vector and * argv[0] (process name).
* If errors occur, send process signal - otherwise
* return executable's entry point to the bootstrap routine.
*/
#include "_synonyms.h"
#include <signal.h>
#include <stdlib.h>
#include <sys/auxv.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <link.h>
#include <dlfcn.h>
#include "_rtld.h"
#include "_audit.h"
#include "msg.h"
#include "debug.h"
extern int _end;
extern int _etext;
/*
* Stub routine to prevent atexit_init() being extracted from libc_pic.a on
* i386 and added to ld.so.1. We don't need it.
*/
void
atexit_init()
{
}
/* VARARGS */
unsigned long
_setup(Boot * ebp, Dyn * ld_dyn)
{
unsigned long reladdr, relcount, ld_base = 0;
unsigned long relent = 0;
unsigned long strtab, soname, interp_base = 0;
char *_rt_name, **_envp, **_argv;
int _syspagsz = 0, fd = -1, dz_fd = FD_UNAVAIL;
uint_t _flags = 0, hwcap_1 = 0;
Dyn * dyn_ptr;
Phdr * phdr = 0;
Rt_map * lmp;
auxv_t *auxv, *_auxv;
uid_t uid = -1, euid = -1;
gid_t gid = -1, egid = -1;
char *_platform = 0, *_execname = 0;
int auxflags = -1;
/*
* Scan the bootstrap structure to pick up the basics.
*/
for (; ebp->eb_tag != EB_NULL; ebp++)
switch (ebp->eb_tag) {
case EB_LDSO_BASE:
ld_base = (unsigned long)ebp->eb_un.eb_val;
break;
case EB_ARGV:
_argv = (char **)ebp->eb_un.eb_ptr;
break;
case EB_ENVP:
_envp = (char **)ebp->eb_un.eb_ptr;
break;
case EB_AUXV:
_auxv = (auxv_t *)ebp->eb_un.eb_ptr;
break;
case EB_DEVZERO:
dz_fd = (int)ebp->eb_un.eb_val;
break;
case EB_PAGESIZE:
_syspagsz = (int)ebp->eb_un.eb_val;
break;
}
/*
* Search the aux. vector for the information passed by exec.
*/
for (auxv = _auxv; auxv->a_type != AT_NULL; auxv++) {
switch (auxv->a_type) {
case AT_EXECFD:
/* this is the old exec that passes a file descriptor */
fd = (int)auxv->a_un.a_val;
break;
case AT_FLAGS:
/* processor flags (MAU available, etc) */
_flags = auxv->a_un.a_val;
break;
case AT_PAGESZ:
/* system page size */
_syspagsz = (int)auxv->a_un.a_val;
break;
case AT_PHDR:
/* address of the segment table */
phdr = (Phdr *)auxv->a_un.a_ptr;
break;
case AT_BASE:
/* interpreter base address */
if (ld_base == 0)
ld_base = auxv->a_un.a_val;
interp_base = auxv->a_un.a_val;
break;
case AT_SUN_UID:
/* effective user id for the executable */
euid = (uid_t)auxv->a_un.a_val;
break;
case AT_SUN_RUID:
/* real user id for the executable */
uid = (uid_t)auxv->a_un.a_val;
break;
case AT_SUN_GID:
/* effective group id for the executable */
egid = (gid_t)auxv->a_un.a_val;
break;
case AT_SUN_RGID:
/* real group id for the executable */
gid = (gid_t)auxv->a_un.a_val;
break;
#ifdef AT_SUN_PLATFORM /* Defined on SunOS 5.5 & greater. */
case AT_SUN_PLATFORM:
/* platform name */
_platform = auxv->a_un.a_ptr;
break;
#endif
#ifdef AT_SUN_EXECNAME /* Defined on SunOS 5.6 & greater. */
case AT_SUN_EXECNAME:
/* full pathname of execed object */
_execname = auxv->a_un.a_ptr;
break;
#endif
#ifdef AT_SUN_AUXFLAGS /* At the behest of PSARC 2002/188 */
case AT_SUN_AUXFLAGS:
auxflags = (int)auxv->a_un.a_val;
break;
#endif
#ifdef AT_SUN_HWCAP /* Hardware capabilities */
case AT_SUN_HWCAP:
hwcap_1 = (uint_t)auxv->a_un.a_val;
break;
#endif
}
}
/*
* Get needed info from ld.so's dynamic structure.
*/
/* LINTED */
dyn_ptr = (Dyn *)((char *)ld_dyn + ld_base);
for (ld_dyn = dyn_ptr; ld_dyn->d_tag != DT_NULL; ld_dyn++) {
switch (ld_dyn->d_tag) {
case DT_REL:
reladdr = ld_dyn->d_un.d_ptr + ld_base;
break;
case DT_RELCOUNT:
relcount = ld_dyn->d_un.d_val;
break;
case DT_RELENT:
relent = ld_dyn->d_un.d_val;
break;
case DT_STRTAB:
strtab = ld_dyn->d_un.d_ptr + ld_base;
break;
case DT_SONAME:
soname = ld_dyn->d_un.d_val;
break;
}
}
_rt_name = (char *)strtab + soname;
/*
* If we don't have a RELENT, just assume
* the size.
*/
if (relent == 0)
relent = sizeof (Rel);
/*
* Relocate all symbols in ld.so.
*
* Because ld.so.1 is built with -Bsymbolic there should only be
* RELATIVE and JMPSLOT relocations, both of which get relative
* additions against them.
*/
for (; relcount; relcount--) {
ulong_t roffset;
roffset = ((Rel *)reladdr)->r_offset + ld_base;
*((ulong_t *)roffset) += ld_base;
reladdr += relent;
}
/*
* Initialize the dyn_plt_ent_size field. It currently contains the
* size of the dyn_plt_template. It still needs to be aligned and have
* space for the 'dyn_data' area added.
*/
dyn_plt_ent_size = ROUND(dyn_plt_ent_size, M_WORD_ALIGN) +
sizeof (uintptr_t) + sizeof (uintptr_t) + sizeof (ulong_t) +
sizeof (ulong_t) + sizeof (Sym);
/*
* Continue with generic startup processing.
*/
if ((lmp = setup((unsigned long)_envp, (unsigned long)_auxv, _flags,
_platform, _syspagsz, _rt_name, dyn_ptr, ld_base, interp_base,
fd, phdr, _execname, _argv, dz_fd, uid, euid, gid, egid,
NULL, auxflags, hwcap_1)) == NULL) {
rtldexit(&lml_main, 1);
}
return (LM_ENTRY_PT(lmp)());
}