Browse Source

* Tinputfile.readbuf eof bugfix

daniel 26 years ago
parent
commit
679ac86edd
1 changed files with 5 additions and 2 deletions
  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