mirror of https://github.com/dzavalishin/oskit/
105 lines
3.6 KiB
C
Executable File
105 lines
3.6 KiB
C
Executable File
/*
|
|
* Copyright (c) 1995-1998 University of Utah and the Flux Group.
|
|
* All rights reserved.
|
|
*
|
|
* This file is part of the Flux OSKit. The OSKit is free software, also known
|
|
* as "open source;" you can redistribute it and/or modify it under the terms
|
|
* of the GNU General Public License (GPL), version 2, as published by the Free
|
|
* Software Foundation (FSF). To explore alternate licensing terms, contact
|
|
* the University of Utah at csl-dist@cs.utah.edu or +1-801-585-3271.
|
|
*
|
|
* The OSKit 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 GPL for more details. You should have
|
|
* received a copy of the GPL along with the OSKit; see the file COPYING. If
|
|
* not, write to the FSF, 59 Temple Place #330, Boston, MA 02111-1307, USA.
|
|
*/
|
|
/*
|
|
* Copyright (c) 1995, 1994, 1993, 1992, 1991, 1990
|
|
* Open Software Foundation, Inc.
|
|
*
|
|
* Permission to use, copy, modify, and distribute this software and
|
|
* its documentation for any purpose and without fee is hereby granted,
|
|
* provided that the above copyright notice appears in all copies and
|
|
* that both the copyright notice and this permission notice appear in
|
|
* supporting documentation, and that the name of ("OSF") or Open Software
|
|
* Foundation not be used in advertising or publicity pertaining to
|
|
* distribution of the software without specific, written prior permission.
|
|
*
|
|
* OSF DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE
|
|
* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
|
|
* FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL OSF BE LIABLE FOR ANY
|
|
* SPECIAL, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
|
|
* ACTION OF CONTRACT, NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING
|
|
* OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE
|
|
*/
|
|
/*
|
|
* OSF Research Institute MK6.1 (unencumbered) 1/31/1995
|
|
*/
|
|
|
|
#include <oskit/c/alloca.h>
|
|
#include <oskit/machine/types.h>
|
|
#include <oskit/exec/elf.h>
|
|
#include <oskit/exec/exec.h>
|
|
|
|
int exec_load_elf(exec_read_func_t *read, exec_read_exec_func_t *read_exec,
|
|
void *handle, exec_info_t *out_info)
|
|
{
|
|
oskit_size_t actual;
|
|
Elf32_Ehdr x;
|
|
Elf32_Phdr *phdr, *ph;
|
|
oskit_size_t phsize;
|
|
int i;
|
|
int result;
|
|
|
|
/* Read the ELF header. */
|
|
if ((result = (*read)(handle, 0, &x, sizeof(x), &actual)) != 0)
|
|
return result;
|
|
if (actual < sizeof(x))
|
|
return EX_NOT_EXECUTABLE;
|
|
|
|
if ((x.e_ident[EI_MAG0] != ELFMAG0) ||
|
|
(x.e_ident[EI_MAG1] != ELFMAG1) ||
|
|
(x.e_ident[EI_MAG2] != ELFMAG2) ||
|
|
(x.e_ident[EI_MAG3] != ELFMAG3))
|
|
return EX_NOT_EXECUTABLE;
|
|
|
|
/* Make sure the file is of the right architecture. */
|
|
if ((x.e_ident[EI_CLASS] != ELFCLASS32) ||
|
|
(x.e_ident[EI_DATA] != MY_EI_DATA) ||
|
|
(x.e_machine != MY_E_MACHINE))
|
|
return EX_WRONG_ARCH;
|
|
|
|
/* XXX others */
|
|
out_info->entry = (oskit_addr_t) x.e_entry;
|
|
|
|
phsize = x.e_phnum * x.e_phentsize;
|
|
phdr = (Elf32_Phdr *)alloca(phsize);
|
|
|
|
result = (*read)(handle, x.e_phoff, phdr, phsize, &actual);
|
|
if (result)
|
|
return result;
|
|
if (actual < phsize)
|
|
return EX_CORRUPT;
|
|
|
|
for (i = 0; i < x.e_phnum; i++)
|
|
{
|
|
ph = (Elf32_Phdr *)((oskit_addr_t)phdr + i * x.e_phentsize);
|
|
if (ph->p_type == PT_LOAD)
|
|
{
|
|
exec_sectype_t type = EXEC_SECTYPE_ALLOC |
|
|
EXEC_SECTYPE_LOAD;
|
|
if (ph->p_flags & PF_R) type |= EXEC_SECTYPE_READ;
|
|
if (ph->p_flags & PF_W) type |= EXEC_SECTYPE_WRITE;
|
|
if (ph->p_flags & PF_X) type |= EXEC_SECTYPE_EXECUTE;
|
|
result = (*read_exec)(handle,
|
|
ph->p_offset, ph->p_filesz,
|
|
ph->p_vaddr, ph->p_memsz, type);
|
|
}
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|