/* Depth of data stack when colon called. */
cell_t gDepthAtColon;
-/* Global Forth variables. */
+/* Global Forth variables.
+* These must be initialized in pfInit below.
+*/
cell_t gVarContext; /* Points to last name field. */
cell_t gVarState; /* 1 if compiling. */
cell_t gVarBase; /* Numeric Base. */
-cell_t gVarEcho; /* Echo input. */
+cell_t gVarByeCode; /* Echo input. */
+cell_t gVarEcho; /* Echo input. */
cell_t gVarTraceLevel; /* Trace Level for Inner Interpreter. */
cell_t gVarTraceStack; /* Dump Stack each time if true. */
cell_t gVarTraceFlags; /* Enable various internal debug messages. */
gLocalCompiler_XT = 0;
gVarContext = (cell_t)NULL; /* Points to last name field. */
gVarState = 0; /* 1 if compiling. */
- gVarEcho = 0; /* Echo input. */
+ gVarByeCode = 0; /* BYE-CODE */
+ gVarEcho = 0; /* Echo input. */
gVarTraceLevel = 0; /* Trace Level for Inner Interpreter. */
gVarTraceFlags = 0; /* Enable various internal debug messages. */
gVarReturnCode = 0; /* Returned to caller of Forth, eg. UNIX shell. */
if( !gVarQuiet )
{
- MSG( "PForth V"PFORTH_VERSION );
- if( IsHostLittleEndian() ) MSG("-LE");
- else MSG("-BE");
+ MSG( "PForth V"PFORTH_VERSION_NAME", " );
+
+ if( IsHostLittleEndian() ) MSG("LE");
+ else MSG("BE");
#if PF_BIG_ENDIAN_DIC
MSG("/BE");
#elif PF_LITTLE_ENDIAN_DIC
PF_USER_TERM;
#endif
- return Result;
+ return Result ? Result : gVarByeCode;
error2:
MSG("pfDoForth: Error occured.\n");