43 lines
1.2 KiB
Text
43 lines
1.2 KiB
Text
/******************************************************************************
|
|
* Copyright (c) 2004, 2011 IBM Corporation
|
|
* All rights reserved.
|
|
* This program and the accompanying materials
|
|
* are made available under the terms of the BSD License
|
|
* which accompanies this distribution, and is available at
|
|
* http://www.opensource.org/licenses/bsd-license.php
|
|
*
|
|
* Contributors:
|
|
* IBM Corporation - initial implementation
|
|
*****************************************************************************/
|
|
|
|
/*
|
|
* libelf Forth wrapper
|
|
*/
|
|
|
|
#include <libelf.h>
|
|
|
|
// : elf-load-file ( fileaddr -- entry type )
|
|
PRIM(ELF_X2d_LOAD_X2d_FILE)
|
|
{
|
|
void *file_addr = TOS.a;
|
|
int type;
|
|
unsigned long entry;
|
|
type = elf_load_file(file_addr, &entry, elf_forth_claim, flush_cache);
|
|
TOS.u = entry;
|
|
PUSH; TOS.n = type;
|
|
}
|
|
MIRP
|
|
|
|
// : elf-load-file-to-addr ( fileaddr destaddr -- entry type )
|
|
PRIM(ELF_X2d_LOAD_X2d_FILE_X2d_TO_X2d_ADDR)
|
|
{
|
|
void *dest_addr = TOS.a; POP;
|
|
void *file_addr = TOS.a;
|
|
int type;
|
|
unsigned long entry;
|
|
type = elf_load_file_to_addr(file_addr, dest_addr, &entry,
|
|
elf_forth_claim, flush_cache);
|
|
TOS.u = entry;
|
|
PUSH; TOS.n = type;
|
|
}
|
|
MIRP
|