- view: text
- select for diffs
Wed Sep 12 14:45:39 2001 UTC
(19 years, 9 months ago) by jwilke
CVS tags: HEAD
Image starts at $100 for cross-compilation now. A NULL-reference
is really a reference to address 0 and NIL is 0.
In the kernel image-header to get the headers address.
Image loading is only changed minimal: The stuff with fixed
addressed images is thrown out, because every image is relocatable.
No header change. Old images should work.
1: \ generic mach file for pc gforth 03sep97jaw
3: \ Copyright (C) 1995,1996,1997,2000 Free Software Foundation, Inc.
5: \ This file is part of Gforth.
7: \ Gforth is free software; you can redistribute it and/or
8: \ modify it under the terms of the GNU General Public License
9: \ as published by the Free Software Foundation; either version 2
10: \ of the License, or (at your option) any later version.
12: \ This program is distributed in the hope that it will be useful,
13: \ but WITHOUT ANY WARRANTY; without even the implied warranty of
14: \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15: \ GNU General Public License for more details.
17: \ You should have received a copy of the GNU General Public License
18: \ along with this program; if not, write to the Free Software
19: \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
24: true DefaultValue relocate
26: true DefaultValue file \ controls the presence of the
27: \ file access wordset
28: true DefaultValue OS \ flag to indicate a operating system
30: true DefaultValue prims \ true: primitives are c-code
32: true DefaultValue floating \ floating point wordset is present
34: true DefaultValue glocals \ gforth locals are present
35: \ will be loaded
36: true DefaultValue dcomps \ double number comparisons
38: true DefaultValue hash \ hashing primitives are loaded/present
40: true DefaultValue xconds \ used together with glocals,
41: \ special conditionals supporting gforths'
42: \ local variables
43: true DefaultValue header \ save a header information
45: true DefaultValue backtrace \ enables backtrace code
47: true DefaultValue new-input \ enables object oriented input
49: true DefaultValue peephole \ enables peephole optimizer
51: false DefaultValue ec
52: false DefaultValue crlf
54: cell 2 = [IF] &32 [ELSE] &256 [THEN] KB DefaultValue kernel-size
56: &16 KB DefaultValue stack-size
57: &15 KB &512 + DefaultValue fstack-size
58: &15 KB DefaultValue rstack-size
59: &14 KB &512 + DefaultValue lstack-size