Implement ENVIRONMENT?

[pforth] / csrc / pfcompil.c

diff --git a/csrc/pfcompil.c b/csrc/pfcompil.c
index 9397fa3..2f0c04e 100644 (file)
--- a/csrc/pfcompil.c
+++ b/csrc/pfcompil.c
@@ -661,7 +661,7 @@ void ffDefer( void )
 }
 
 /* Unsmudge the word to make it visible. */
 }
 
 /* Unsmudge the word to make it visible. */

-void ffUnSmudge( void )
+static void ffUnSmudge( void )

 {
     *(char*)gVarContext &= ~FLAG_SMUDGE;
 }
 {
     *(char*)gVarContext &= ~FLAG_SMUDGE;
 }


@@ -737,7 +737,7 @@ void ffFPLiteral( PF_FLOAT fnum )
 #endif /* PF_SUPPORT_FP */
 
 /**************************************************************/
 #endif /* PF_SUPPORT_FP */
 
 /**************************************************************/

-ThrowCode FindAndCompile( const char *theWord )
+static ThrowCode FindAndCompile( const char *theWord )

 {
     cell_t Flag;
     ExecToken XT;
 {
     cell_t Flag;
     ExecToken XT;


@@ -831,7 +831,7 @@ ThrowCode ffInterpret( void )
     {
 
         pfDebugMessage("ffInterpret: calling ffWord(()\n");
     {
 
         pfDebugMessage("ffInterpret: calling ffWord(()\n");

-        theWord = ffWord( BLANK );
+        theWord = ffLWord( BLANK );

         DBUG(("ffInterpret: theWord = 0x%x, Len = %d\n", theWord, *theWord ));
 
         if( *theWord > 0 )
         DBUG(("ffInterpret: theWord = 0x%x, Len = %d\n", theWord, *theWord ));
 
         if( *theWord > 0 )