blob: 59a1b906d0f5dde3eae588abda3369e19d9dcaca (
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
|
/******************************************************************************
* Copyright (c) 2004, 2008 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
*****************************************************************************/
#include <cpu.h>
#include "types.h"
#define PAGE_SIZE 4096
#define HEAP_SIZE 0x800000
#ifdef CPU_PPC970
#define SET_CI set_ci()
#define CLR_CI clr_ci()
#else
#define SET_CI
#define CLR_CI
#endif
// The big Forth source file that contains everything but the core engine.
// We include it as a hunk of data into the C part of SLOF; at startup
// time, this will be EVALUATE'd.
extern char _binary_OF_fsi_start[], _binary_OF_fsi_end[];
extern cell the_mem[]; /* Space for the dictionary / the HERE pointer */
extern cell *restrict dp;
extern cell *restrict rp;
void client_entry_point();
extern unsigned long call_client(cell);
extern long c_romfs_lookup(long, long, void *);
extern long writeLogByte(long, long);
|
