V25 with 64-bit support

[pforth] / csrc / pfcompil.h

diff --git a/csrc/pfcompil.h b/csrc/pfcompil.h
index cdb7785..8f27015 100644 (file)
--- a/csrc/pfcompil.h
+++ b/csrc/pfcompil.h
@@ -26,32 +26,32 @@ extern "C" {
 \r
 Err   ffPushInputStream( FileStream *InputFile );\r
 ExecToken NameToToken( const ForthString *NFA );\r
 \r
 Err   ffPushInputStream( FileStream *InputFile );\r
 ExecToken NameToToken( const ForthString *NFA );\r

-FileStream * ffConvertSourceIDToStream( cell id );\r
+FileStream * ffConvertSourceIDToStream( cell_t id );\r

 FileStream *ffPopInputStream( void );\r
 FileStream *ffPopInputStream( void );\r

-cell  ffConvertStreamToSourceID( FileStream *Stream );\r
-cell  ffFind( const ForthString *WordName, ExecToken *pXT );\r
-cell  ffFindC( const char *WordName, ExecToken *pXT );\r
-cell  ffFindNFA( const ForthString *WordName, const ForthString **NFAPtr );\r
-cell  ffNumberQ( const char *FWord, cell *Num );\r
-cell  ffRefill( void );\r
-cell  ffTokenToName( ExecToken XT, const ForthString **NFAPtr );\r
-cell *NameToCode( ForthString *NFA );\r
-PForthDictionary pfBuildDictionary( int32 HeaderSize, int32 CodeSize );\r
+cell_t  ffConvertStreamToSourceID( FileStream *Stream );\r
+cell_t  ffFind( const ForthString *WordName, ExecToken *pXT );\r
+cell_t  ffFindC( const char *WordName, ExecToken *pXT );\r
+cell_t  ffFindNFA( const ForthString *WordName, const ForthString **NFAPtr );\r
+cell_t  ffNumberQ( const char *FWord, cell_t *Num );\r
+cell_t  ffRefill( void );\r
+cell_t  ffTokenToName( ExecToken XT, const ForthString **NFAPtr );\r
+cell_t *NameToCode( ForthString *NFA );\r
+PForthDictionary pfBuildDictionary( cell_t HeaderSize, cell_t CodeSize );\r

 char *ffWord( char c );\r
 const ForthString *NameToPrevious( const ForthString *NFA );\r
 char *ffWord( char c );\r
 const ForthString *NameToPrevious( const ForthString *NFA );\r

-int32 FindSpecialCFAs( void );\r
-int32 FindSpecialXTs( void );\r
-int32 NotCompiled( const char *FunctionName );\r
-void  CreateDicEntry( ExecToken XT, const ForthStringPtr FName, uint32 Flags );\r
-void  CreateDicEntryC( ExecToken XT, const char *CName, uint32 Flags );\r
-void  ff2Literal( cell dHi, cell dLo );\r
-void  ffALiteral( cell Num );\r
+cell_t FindSpecialCFAs( void );\r
+cell_t FindSpecialXTs( void );\r
+cell_t NotCompiled( const char *FunctionName );\r
+void  CreateDicEntry( ExecToken XT, const ForthStringPtr FName, ucell_t Flags );\r
+void  CreateDicEntryC( ExecToken XT, const char *CName, ucell_t Flags );\r
+void  ff2Literal( cell_t dHi, cell_t dLo );\r
+void  ffALiteral( cell_t Num );\r

 void  ffColon( void );\r
 void  ffCreate( void );\r
 void  ffCreateSecondaryHeader( const ForthStringPtr FName);\r
 void  ffDefer( void );\r
 void  ffFinishSecondary( void );\r
 void  ffColon( void );\r
 void  ffCreate( void );\r
 void  ffCreateSecondaryHeader( const ForthStringPtr FName);\r
 void  ffDefer( void );\r
 void  ffFinishSecondary( void );\r

-void  ffLiteral( cell Num );\r
+void  ffLiteral( cell_t Num );\r

 void  ffStringCreate( ForthStringPtr FName);\r
 void  ffStringDefer( const ForthStringPtr FName, ExecToken DefaultXT );\r
 void  pfHandleIncludeError( void );\r
 void  ffStringCreate( ForthStringPtr FName);\r
 void  ffStringDefer( const ForthStringPtr FName, ExecToken DefaultXT );\r
 void  pfHandleIncludeError( void );\r