paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 07:51:48 +01: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^; c:=inputpointer^;
inc(longint(inputpointer)); inc(longint(inputpointer));
end; end;
#0,#26 : reload; #0 : reload;
#26 : begin
reload;
if c=#26 then
break;
end;
#13,#10 : begin #13,#10 : begin
linebreak; linebreak;
break; break;
@ -1656,7 +1661,10 @@ begin
end. end.
{ {
$Log$ $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 * fixed line counting with macro's
Revision 1.82 1999/05/04 21:45:04 florian Revision 1.82 1999/05/04 21:45:04 florian