blob: 551468bdd0bc9832c942d739fbd4608280c940c2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
/******************************************************************************
* 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
|
