version 1.5, 2003/01/03 20:26:19
|
version 1.14, 2007/03/18 21:46:17
|
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 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 23 true DefaultValue NIL \ relocating
|
Line 23 true DefaultValue NIL \ relocating
|
|
|
>ENVIRON |
>ENVIRON |
|
|
|
@EC_MODE@ DefaultValue ec |
|
|
|
has? ec 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 48 true DefaultValue new-input \ enables ob
|
Line 57 true DefaultValue new-input \ enables ob
|
|
|
@PEEPHOLEFLAG@ DefaultValue peephole \ enables peephole optimizer |
@PEEPHOLEFLAG@ DefaultValue peephole \ enables peephole optimizer |
|
|
|
|
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 |
|
|
$100 DefaultValue kernel-start |
$100 DefaultValue kernel-start |
Line 62 cell 2 = [IF] &32 KB [ELSE] $100000 cell
|
Line 71 cell 2 = [IF] &32 KB [ELSE] $100000 cell
|
&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 |
|
|
|
@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 |
|
|
|
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 |
|
|
|
@PEEPHOLEFLAG@ DefaultValue peephole \ enables peephole optimizer |
|
|
|
|
|
true DefaultValue abranch \ enables absolute branches |
|
|
|
false DefaultValue control-rack \ disable return stack use for control flow |
|
|
|
false DefaultValue crlf |
|
|
|
$100 DefaultValue kernel-start |
|
cell 2 = [IF] &32 KB [ELSE] &64 KB [THEN] DefaultValue kernel-size |
|
|
|
&1 KB DefaultValue stack-size |
|
&0 KB DefaultValue fstack-size |
|
&1 KB DefaultValue rstack-size |
|
&1 KB DefaultValue lstack-size |
|
[THEN] |