X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/970d32b553a44051cedd2caf34267b7b1cdbab78..1cb310e62eaf4422ee298d9d87c35f9dd6b4c71c:/csrc/pfcompil.h diff --git a/csrc/pfcompil.h b/csrc/pfcompil.h index cdb7785..8f27015 100644 --- a/csrc/pfcompil.h +++ b/csrc/pfcompil.h @@ -26,32 +26,32 @@ extern "C" { Err ffPushInputStream( FileStream *InputFile ); ExecToken NameToToken( const ForthString *NFA ); -FileStream * ffConvertSourceIDToStream( cell id ); +FileStream * ffConvertSourceIDToStream( cell_t id ); FileStream *ffPopInputStream( void ); -cell ffConvertStreamToSourceID( FileStream *Stream ); -cell ffFind( const ForthString *WordName, ExecToken *pXT ); -cell ffFindC( const char *WordName, ExecToken *pXT ); -cell ffFindNFA( const ForthString *WordName, const ForthString **NFAPtr ); -cell ffNumberQ( const char *FWord, cell *Num ); -cell ffRefill( void ); -cell ffTokenToName( ExecToken XT, const ForthString **NFAPtr ); -cell *NameToCode( ForthString *NFA ); -PForthDictionary pfBuildDictionary( int32 HeaderSize, int32 CodeSize ); +cell_t ffConvertStreamToSourceID( FileStream *Stream ); +cell_t ffFind( const ForthString *WordName, ExecToken *pXT ); +cell_t ffFindC( const char *WordName, ExecToken *pXT ); +cell_t ffFindNFA( const ForthString *WordName, const ForthString **NFAPtr ); +cell_t ffNumberQ( const char *FWord, cell_t *Num ); +cell_t ffRefill( void ); +cell_t ffTokenToName( ExecToken XT, const ForthString **NFAPtr ); +cell_t *NameToCode( ForthString *NFA ); +PForthDictionary pfBuildDictionary( cell_t HeaderSize, cell_t CodeSize ); char *ffWord( char c ); const ForthString *NameToPrevious( const ForthString *NFA ); -int32 FindSpecialCFAs( void ); -int32 FindSpecialXTs( void ); -int32 NotCompiled( const char *FunctionName ); -void CreateDicEntry( ExecToken XT, const ForthStringPtr FName, uint32 Flags ); -void CreateDicEntryC( ExecToken XT, const char *CName, uint32 Flags ); -void ff2Literal( cell dHi, cell dLo ); -void ffALiteral( cell Num ); +cell_t FindSpecialCFAs( void ); +cell_t FindSpecialXTs( void ); +cell_t NotCompiled( const char *FunctionName ); +void CreateDicEntry( ExecToken XT, const ForthStringPtr FName, ucell_t Flags ); +void CreateDicEntryC( ExecToken XT, const char *CName, ucell_t Flags ); +void ff2Literal( cell_t dHi, cell_t dLo ); +void ffALiteral( cell_t Num ); void ffColon( void ); void ffCreate( void ); void ffCreateSecondaryHeader( const ForthStringPtr FName); void ffDefer( void ); void ffFinishSecondary( void ); -void ffLiteral( cell Num ); +void ffLiteral( cell_t Num ); void ffStringCreate( ForthStringPtr FName); void ffStringDefer( const ForthStringPtr FName, ExecToken DefaultXT ); void pfHandleIncludeError( void );