Commit 75698434 authored by jwilke's avatar jwilke

new compile flag: stantardthreading

parent 56030670
...@@ -99,5 +99,6 @@ typedef void *Label; ...@@ -99,5 +99,6 @@ typedef void *Label;
#define HAS_HASH #define HAS_HASH
#define HAS_OS #define HAS_OS
#define HAS_XCONDS #define HAS_XCONDS
#define HAS_STANDARDTHREADING
#define RELINFOBITS 8 #define RELINFOBITS 8
...@@ -315,6 +315,7 @@ false DefaultValue header ...@@ -315,6 +315,7 @@ false DefaultValue header
true DefaultValue interpreter true DefaultValue interpreter
true DefaultValue ITC true DefaultValue ITC
false DefaultValue rom false DefaultValue rom
true DefaultValue standardthreading
>TARGET >TARGET
s" relocate" T environment? H s" relocate" T environment? H
......
...@@ -1325,6 +1325,8 @@ a_addr = PFA(xt); ...@@ -1325,6 +1325,8 @@ a_addr = PFA(xt);
: :
2 cells + ; 2 cells + ;
\+standardthreading
>code-address xt -- c_addr gforth to_code_address >code-address xt -- c_addr gforth to_code_address
""@var{c-addr} is the code address of the word @var{xt}."" ""@var{c-addr} is the code address of the word @var{xt}.""
/* !! This behaves installation-dependently for DOES-words */ /* !! This behaves installation-dependently for DOES-words */
...@@ -1385,6 +1387,8 @@ n=1; ...@@ -1385,6 +1387,8 @@ n=1;
: :
1 ; 1 ;
\+
key-file wfileid -- n gforth paren_key_file key-file wfileid -- n gforth paren_key_file
#ifdef HAS_FILE #ifdef HAS_FILE
fflush(stdout); fflush(stdout);
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment