From 679ac86eddc092f3dac2ed9f54dea15b94c60251 Mon Sep 17 00:00:00 2001 From: daniel Date: Wed, 13 Jan 1999 15:02:00 +0000 Subject: [PATCH] * Tinputfile.readbuf eof bugfix --- compiler/files.pas | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/compiler/files.pas b/compiler/files.pas index 4d3309a7b4..77ed354cb8 100644 --- a/compiler/files.pas +++ b/compiler/files.pas @@ -287,7 +287,7 @@ uses blockread(f,buf^,maxbufsize-1,bufsize); {$endif} buf[bufsize]:=#0; - endoffile:=not(bufsize=maxbufsize-1); + endoffile:=eof(f); end; @@ -1077,7 +1077,10 @@ uses end. { $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 + BrowserCol for browser info in TCollections * released all other UseBrowser