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

* improved fix for #39912

Browse Source
This commit is contained in:
florian 2022-09-23 21:55:50 +02:00
parent b11366c95b
commit dbbb91705f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/scanner.pas
View File

@ -3717,7 +3717,7 @@ type
{ status } { status }
Message1(scan_t_back_in,inputfile.name); Message1(scan_t_back_in,inputfile.name);
{ end of include file is like a line break which ends e.g. also // style comments } { end of include file is like a line break which ends e.g. also // style comments }
if not(wasmacro) then if not(wasmacro) and (current_commentstyle=comment_delphi) then
begin begin
c:=#10; c:=#10;
{ ... but we have to decrease the line number first because it is increased due to this { ... but we have to decrease the line number first because it is increased due to this