--- gforth/machpc.fs.in 2007/03/31 12:58:07 1.17 +++ gforth/machpc.fs.in 2012/07/15 12:03:07 1.30 @@ -1,13 +1,13 @@ \ machpc.fs is generated; source: machpc.fs.in \ 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,2011 Free Software Foundation, Inc. \ This file is part of Gforth. \ Gforth is free software; you can redistribute it and/or \ 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. \ This program is distributed in the hope that it will be useful, @@ -16,8 +16,7 @@ \ GNU General Public License for more details. \ You should have received a copy of the GNU General Public License -\ along with this program; if not, write to the Free Software -\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. +\ along with this program. If not, see http://www.gnu.org/licenses/. true DefaultValue NIL \ relocating @@ -30,12 +29,6 @@ true DefaultValue file \ controls the p \ file access wordset 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 floating \ floating point wordset is present @@ -65,6 +58,10 @@ false DefaultValue control-rack \ disabl 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 @@ -116,13 +113,19 @@ true DefaultValue control-rack \ disabl false DefaultValue crlf -true DefaultValue flash +false DefaultValue recognizer + +false DefaultValue flash + +false DefaultValue objects -$0 DefaultValue kernel-start \ no artificial offset -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 &0 KB DefaultValue fstack-size &1 KB DefaultValue rstack-size &1 KB DefaultValue lstack-size [THEN] + +T cell H 8 = DefaultValue 64bit