version 1.4, 2002/12/14 17:34:12
|
version 1.30, 2012/07/15 12:03:07
|
Line 1
|
Line 1
|
\ machpc.fs is generated; source: machpc.fs.in |
\ machpc.fs is generated; source: machpc.fs.in |
\ generic mach file for pc gforth 03sep97jaw |
\ generic mach file for pc gforth 03sep97jaw |
|
|
\ Copyright (C) 1995,1996,1997,2000 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,2000,2003,2005,2007,2008,2010,2011 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
\ Gforth is free software; you can redistribute it and/or |
\ Gforth is free software; you can redistribute it and/or |
\ modify it under the terms of the GNU General Public License |
\ modify it under the terms of the GNU General Public License |
\ as published by the Free Software Foundation; either version 2 |
\ as published by the Free Software Foundation, either version 3 |
\ of the License, or (at your option) any later version. |
\ of the License, or (at your option) any later version. |
|
|
\ This program is distributed in the hope that it will be useful, |
\ This program is distributed in the hope that it will be useful, |
Line 16
|
Line 16
|
\ GNU General Public License for more details. |
\ GNU General Public License for more details. |
|
|
\ You should have received a copy of the GNU General Public License |
\ You should have received a copy of the GNU General Public License |
\ along with this program; if not, write to the Free Software |
\ along with this program. If not, see http://www.gnu.org/licenses/. |
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
|
true DefaultValue NIL \ relocating |
true DefaultValue NIL \ relocating |
|
|
>ENVIRON |
>ENVIRON |
|
|
|
@EC_MODE@ DefaultValue ec |
|
|
|
T has? ec H 0= [IF] |
true DefaultValue file \ controls the presence of the |
true DefaultValue file \ controls the presence of the |
\ file access wordset |
\ file access wordset |
true DefaultValue OS \ flag to indicate a operating system |
true DefaultValue OS \ flag to indicate a operating system |
Line 48 true DefaultValue new-input \ enables ob
|
Line 50 true DefaultValue new-input \ enables ob
|
|
|
@PEEPHOLEFLAG@ DefaultValue peephole \ enables peephole optimizer |
@PEEPHOLEFLAG@ DefaultValue peephole \ enables peephole optimizer |
|
|
|
true DefaultValue primcentric \ enables primcentric code |
|
|
true DefaultValue abranch \ enables absolute branches |
true DefaultValue abranch \ enables absolute branches |
|
|
false DefaultValue control-rack \ disable return stack use for control flow |
false DefaultValue control-rack \ disable return stack use for control flow |
|
|
false DefaultValue ec |
|
false DefaultValue crlf |
false DefaultValue crlf |
|
|
|
true DefaultValue recognizer |
|
|
|
true DefaultValue objects |
|
|
|
$100 DefaultValue kernel-start |
cell 2 = [IF] &32 KB [ELSE] $100000 cells [THEN] DefaultValue kernel-size |
cell 2 = [IF] &32 KB [ELSE] $100000 cells [THEN] DefaultValue kernel-size |
|
|
&16 KB DefaultValue stack-size |
&16 KB DefaultValue stack-size |
&16 KB DefaultValue fstack-size |
&16 KB DefaultValue fstack-size |
&15 KB DefaultValue rstack-size |
&15 KB DefaultValue rstack-size |
&14 KB &512 + DefaultValue lstack-size |
&14 KB &512 + DefaultValue lstack-size |
|
[ELSE] |
|
false DefaultValue file \ controls the presence of the |
|
\ file access wordset |
|
false DefaultValue OS \ flag to indicate a operating system |
|
|
|
true SetValue relocate |
|
|
|
false DefaultValue ffcall \ Foreign Function Calls |
|
|
|
false DefaultValue libffi \ Foreign Function Calls |
|
|
|
false DefaultValue oldcall \ old Foreign Function Calls |
|
|
|
true DefaultValue prims \ true: primitives are c-code |
|
|
|
false DefaultValue floating \ floating point wordset is present |
|
|
|
false DefaultValue glocals \ gforth locals are present |
|
\ will be loaded |
|
true DefaultValue dcomps \ double number comparisons |
|
|
|
false DefaultValue hash \ hashing primitives are loaded/present |
|
|
|
false DefaultValue xconds \ used together with glocals, |
|
\ special conditionals supporting gforths' |
|
\ local variables |
|
true DefaultValue header \ save a header information |
|
|
|
false DefaultValue backtrace \ enables backtrace code |
|
|
|
false DefaultValue new-input \ enables object oriented input |
|
|
|
false DefaultValue peephole \ enables peephole optimizer |
|
|
|
true DefaultValue primcentric \ enables primcentric code |
|
|
|
true DefaultValue f83headerstring |
|
|
|
true DefaultValue abranch \ enables absolute branches |
|
|
|
true DefaultValue control-rack \ disable return stack use for control flow |
|
|
|
false DefaultValue crlf |
|
|
|
false DefaultValue recognizer |
|
|
|
false DefaultValue flash |
|
|
|
false DefaultValue objects |
|
|
|
$10 DefaultValue kernel-start \ no artificial offset |
|
&48 KB DefaultValue kernel-size |
|
|
|
&1 KB DefaultValue stack-size |
|
&0 KB DefaultValue fstack-size |
|
&1 KB DefaultValue rstack-size |
|
&1 KB DefaultValue lstack-size |
|
[THEN] |
|
|
|
T cell H 8 = DefaultValue 64bit |