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

* problem with main file end without newline

Browse Source
This commit is contained in:
pierre 1999-05-31 23:28:42 +00:00
parent 901335c80d
commit 2758e7c639
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/scanner.pas
View File

@ -621,7 +621,12 @@ implementation
c:=inputpointer^;
inc(longint(inputpointer));
end;
#0,#26 : reload;
#0 : reload;
#26 : begin
reload;
if c=#26 then
break;
end;
#13,#10 : begin
linebreak;
break;
@ -1656,7 +1661,10 @@ begin
end.
{
$Log$
Revision 1.83 1999-05-20 14:57:29 peter
Revision 1.84 1999-05-31 23:28:42 pierre
* problem with main file end without newline
Revision 1.83 1999/05/20 14:57:29 peter
* fixed line counting with macro's
Revision 1.82 1999/05/04 21:45:04 florian