浏览代码

* Tinputfile.readbuf eof bugfix

daniel 27 年之前
父节点
当前提交
679ac86edd
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      compiler/files.pas

+ 5 - 2
compiler/files.pas

@@ -287,7 +287,7 @@ uses
         blockread(f,buf^,maxbufsize-1,bufsize);
         blockread(f,buf^,maxbufsize-1,bufsize);
       {$endif}
       {$endif}
         buf[bufsize]:=#0;
         buf[bufsize]:=#0;
-        endoffile:=not(bufsize=maxbufsize-1);
+        endoffile:=eof(f);
       end;
       end;
 
 
 
 
@@ -1077,7 +1077,10 @@ uses
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.82  1999-01-12 14:25:26  peter
+  Revision 1.83  1999-01-13 15:02:00  daniel
+  * Tinputfile.readbuf eof bugfix
+
+  Revision 1.82  1999/01/12 14:25:26  peter
     + BrowserLog for browser.log generation
     + BrowserLog for browser.log generation
     + BrowserCol for browser info in TCollections
     + BrowserCol for browser info in TCollections
     * released all other UseBrowser
     * released all other UseBrowser