X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/49a54f16c613407ada65dee32493f4878d199aa1..a8013caa3cff6927fb5612fd465d535b7aa32e2c:/csrc/pfcompil.c diff --git a/csrc/pfcompil.c b/csrc/pfcompil.c index 9397fa3..2f0c04e 100644 --- a/csrc/pfcompil.c +++ b/csrc/pfcompil.c @@ -661,7 +661,7 @@ void ffDefer( void ) } /* Unsmudge the word to make it visible. */ -void ffUnSmudge( void ) +static void ffUnSmudge( void ) { *(char*)gVarContext &= ~FLAG_SMUDGE; } @@ -737,7 +737,7 @@ void ffFPLiteral( PF_FLOAT fnum ) #endif /* PF_SUPPORT_FP */ /**************************************************************/ -ThrowCode FindAndCompile( const char *theWord ) +static ThrowCode FindAndCompile( const char *theWord ) { cell_t Flag; ExecToken XT; @@ -831,7 +831,7 @@ ThrowCode ffInterpret( void ) { pfDebugMessage("ffInterpret: calling ffWord(()\n"); - theWord = ffWord( BLANK ); + theWord = ffLWord( BLANK ); DBUG(("ffInterpret: theWord = 0x%x, Len = %d\n", theWord, *theWord )); if( *theWord > 0 )