version 1.14, 2007/03/18 21:46:17
|
version 1.27, 2010/12/31 18:09:02
|
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,2003,2005 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,2000,2003,2005,2007,2008,2010 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 |
|
|
Line 25 true DefaultValue NIL \ relocating
|
Line 24 true DefaultValue NIL \ relocating
|
|
|
@EC_MODE@ DefaultValue ec |
@EC_MODE@ DefaultValue ec |
|
|
has? ec 0= [IF] |
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 |
|
|
@FFCALLFLAG@ DefaultValue ffcall \ Foreign Function Calls |
|
|
|
@LIBFFIFLAG@ DefaultValue libffi \ Foreign Function Calls |
|
|
|
@OLDCALLFLAG@ DefaultValue oldcall \ old Foreign Function Calls |
|
|
|
true DefaultValue prims \ true: primitives are c-code |
true DefaultValue prims \ true: primitives are c-code |
|
|
true DefaultValue floating \ floating point wordset is present |
true DefaultValue floating \ floating point wordset is present |
Line 57 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 |
|
|
Line 76 false DefaultValue file \ controls the
|
Line 70 false DefaultValue file \ controls the
|
\ file access wordset |
\ file access wordset |
false DefaultValue OS \ flag to indicate a operating system |
false DefaultValue OS \ flag to indicate a operating system |
|
|
@FFCALLFLAG@ DefaultValue ffcall \ Foreign Function Calls |
true SetValue relocate |
|
|
@LIBFFIFLAG@ DefaultValue libffi \ Foreign Function Calls |
false DefaultValue ffcall \ Foreign Function Calls |
|
|
@OLDCALLFLAG@ DefaultValue oldcall \ old Foreign Function Calls |
false DefaultValue libffi \ Foreign Function Calls |
|
|
|
false DefaultValue oldcall \ old Foreign Function Calls |
|
|
true DefaultValue prims \ true: primitives are c-code |
true DefaultValue prims \ true: primitives are c-code |
|
|
Line 101 false DefaultValue backtrace \ enables b
|
Line 97 false DefaultValue backtrace \ enables b
|
|
|
false DefaultValue new-input \ enables object oriented input |
false DefaultValue new-input \ enables object oriented input |
|
|
@PEEPHOLEFLAG@ DefaultValue peephole \ enables peephole optimizer |
false DefaultValue peephole \ enables peephole optimizer |
|
|
|
true DefaultValue primcentric \ enables primcentric code |
|
|
|
true DefaultValue f83headerstring |
|
|
true DefaultValue abranch \ enables absolute branches |
true DefaultValue abranch \ enables absolute branches |
|
|
false DefaultValue control-rack \ disable return stack use for control flow |
true DefaultValue control-rack \ disable return stack use for control flow |
|
|
false DefaultValue crlf |
false DefaultValue crlf |
|
|
$100 DefaultValue kernel-start |
false DefaultValue flash |
cell 2 = [IF] &32 KB [ELSE] &64 KB [THEN] DefaultValue kernel-size |
|
|
$10 DefaultValue kernel-start \ no artificial offset |
|
&48 KB DefaultValue kernel-size |
|
|
&1 KB DefaultValue stack-size |
&1 KB DefaultValue stack-size |
&0 KB DefaultValue fstack-size |
&0 KB DefaultValue fstack-size |
&1 KB DefaultValue rstack-size |
&1 KB DefaultValue rstack-size |
&1 KB DefaultValue lstack-size |
&1 KB DefaultValue lstack-size |
[THEN] |
[THEN] |
|
|
|
T cell H 8 = DefaultValue 64bit |