mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
db8e7fe92a
git-svn-id: svn://coreboot.org/openbios/openbios-devel@16 f158a5a8-5612-0410-a976-696ce0be7e32
115 lines
2.3 KiB
C
115 lines
2.3 KiB
C
/* tag: openbios forth environment, executable code
|
|
*
|
|
* Copyright (C) 2003 Patrick Mauritz, Stefan Reinauer
|
|
*
|
|
* See the file "COPYING" for further information about
|
|
* the copyright and warranty status of this work.
|
|
*/
|
|
|
|
#include "openbios/config.h"
|
|
#include "openbios/bindings.h"
|
|
#include "openbios/drivers.h"
|
|
#include "asm/types.h"
|
|
#include "dict.h"
|
|
#include "openbios/kernel.h"
|
|
#include "openbios/stack.h"
|
|
#include "sys_info.h"
|
|
#include "openbios.h"
|
|
|
|
void boot(void);
|
|
void ob_ide_init(void);
|
|
|
|
static char intdict[256 * 1024];
|
|
|
|
static void init_memory(void)
|
|
{
|
|
extern char _heap, _eheap;
|
|
|
|
/* push start and end of available memory to the stack
|
|
* so that the forth word QUIT can initialize memory
|
|
* management. For now we use hardcoded memory between
|
|
* 0x10000 and 0x9ffff (576k). If we need more memory
|
|
* than that we have serious bloat.
|
|
*/
|
|
|
|
PUSH((unsigned int)&_heap);
|
|
PUSH((unsigned int)&_eheap);
|
|
}
|
|
|
|
void exception(cell no)
|
|
{
|
|
/* The exception mechanism is used during bootstrap to catch
|
|
* build errors. In a running system this is a noop since we
|
|
* can't break out to the unix host os anyways.
|
|
*/
|
|
}
|
|
|
|
static void
|
|
arch_init( void )
|
|
{
|
|
void setup_timers(void);
|
|
|
|
modules_init();
|
|
#ifdef CONFIG_DRIVER_SBUS
|
|
init_mmu_swift();
|
|
|
|
ob_sbus_init();
|
|
#endif
|
|
#ifdef CONFIG_DRIVER_ESP
|
|
ob_esp_init();
|
|
#endif
|
|
device_end();
|
|
bind_func("platform-boot", boot );
|
|
}
|
|
|
|
int openbios(void)
|
|
{
|
|
extern struct sys_info sys_info;
|
|
#ifdef CONFIG_DEBUG_CONSOLE
|
|
#ifdef CONFIG_DEBUG_CONSOLE_SERIAL
|
|
uart_init(CONFIG_SERIAL_PORT, CONFIG_SERIAL_SPEED);
|
|
#endif
|
|
/* Clear the screen. */
|
|
cls();
|
|
#endif
|
|
|
|
collect_sys_info(&sys_info);
|
|
|
|
dict=intdict;
|
|
load_dictionary((char *)sys_info.dict_start,
|
|
(unsigned long)sys_info.dict_end
|
|
- (unsigned long)sys_info.dict_start);
|
|
|
|
#ifdef CONFIG_DEBUG_CONSOLE_VIDEO
|
|
video_init();
|
|
#endif
|
|
#ifdef CONFIG_DEBUG_BOOT
|
|
printk("forth started.\n");
|
|
printk("initializing memory...");
|
|
#endif
|
|
|
|
init_memory();
|
|
|
|
#ifdef CONFIG_DEBUG_BOOT
|
|
printk("done\n");
|
|
#endif
|
|
|
|
PUSH_xt( bind_noname_func(arch_init) );
|
|
fword("PREPOST-initializer");
|
|
|
|
PC = (ucell)findword("initialize-of");
|
|
|
|
if (!PC) {
|
|
printk("panic: no dictionary entry point.\n");
|
|
return -1;
|
|
}
|
|
#ifdef CONFIG_DEBUG_DICTIONARY
|
|
printk("done (%d bytes).\n", dicthead);
|
|
printk("Jumping to dictionary...\n");
|
|
#endif
|
|
|
|
enterforth((xt_t)PC);
|
|
|
|
return 0;
|
|
}
|