lib/libelf/libelf.code

/******************************************************************************
 * 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