paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:39:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed line counting with macro's

Browse Source
This commit is contained in:
peter 1999-05-20 14:57:29 +00:00
parent 8c6426faf7
commit d4f4226806
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/scanner.pas
View File

@ -414,7 +414,9 @@ implementation
var
hp : pinputfile;
begin
{ save old postion }
{ save old postion and decrease linebreak }
if c=newline then
dec(line_no);
dec(longint(inputpointer));
tempcloseinputfile;
{ create macro 'file' }
@ -1654,7 +1656,10 @@ begin
end.
{
$Log$
Revision 1.82 1999-05-04 21:45:04 florian
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
* changes to compile it with Delphi 4.0
Revision 1.81 1999/04/07 14:36:44 pierre