X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/8bf2fe25c2d6ed80c3d41cc664d13da865d6be6c..49295627b371a3479ded25c6bf32ad139652ecfd:/csrc/pfcompil.c diff --git a/csrc/pfcompil.c b/csrc/pfcompil.c index 8a147b9..937e39e 100644 --- a/csrc/pfcompil.c +++ b/csrc/pfcompil.c @@ -259,6 +259,8 @@ PForthDictionary pfBuildDictionary( cell_t HeaderSize, cell_t CodeSize ) CreateDicEntryC( ID_FILE_POSITION, "FILE-POSITION", 0 ); CreateDicEntryC( ID_FILE_REPOSITION, "REPOSITION-FILE", 0 ); CreateDicEntryC( ID_FILE_FLUSH, "FLUSH-FILE", 0 ); + CreateDicEntryC( ID_FILE_RENAME, "(RENAME-FILE)", 0 ); + CreateDicEntryC( ID_FILE_RESIZE, "(RESIZE-FILE)", 0 ); CreateDicEntryC( ID_FILE_RO, "R/O", 0 ); CreateDicEntryC( ID_FILE_RW, "R/W", 0 ); CreateDicEntryC( ID_FILE_WO, "W/O", 0 ); @@ -979,7 +981,7 @@ ThrowCode ffIncludeFile( FileStream *InputFile ) ***************************************************************/ Err ffPushInputStream( FileStream *InputFile ) { - cell_t Result = 0; + Err Result = 0; IncludeFrame *inf; /* Push current input state onto special include stack. */