paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 22:06:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed filepos when eof is read, it'll now stay on the eof position

Browse Source
This commit is contained in:
peter 2000-01-30 19:28:25 +00:00
parent f501e0a92a
commit 706e0c4417
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/scanner.pas
View File

@ -412,6 +412,11 @@ implementation
begin begin
with inputfile^ do with inputfile^ do
begin begin
{ when nothing more to read then leave immediatly, so we
don't change the aktfilepos and leave it point to the last
char }
if (c=#26) and (not assigned(next)) then
exit;
repeat repeat
{ still more to read?, then change the #0 to a space so its seen { still more to read?, then change the #0 to a space so its seen
as a seperator, this can't be used for macro's which can change as a seperator, this can't be used for macro's which can change
@ -1777,7 +1782,10 @@ exit_label:
end. end.
{ {
$Log$ $Log$
Revision 1.103 2000-01-07 01:14:38 peter Revision 1.104 2000-01-30 19:28:25 peter
* fixed filepos when eof is read, it'll now stay on the eof position
Revision 1.103 2000/01/07 01:14:38 peter
* updated copyright to 2000 * updated copyright to 2000
Revision 1.102 1999/12/02 17:34:34 peter Revision 1.102 1999/12/02 17:34:34 peter