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

* fixed oldtp comment parsing

Browse Source
This commit is contained in:
peter 1999-11-02 15:05:08 +00:00
parent e9d3c8f263
commit be22c241fb
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/scanner.pas
View File

@ -996,16 +996,13 @@ implementation
'*' : '*' :
begin begin
if found=3 then if found=3 then
begin found:=4
inc_comment_level;
found:=0;
end
else else
found:=1; found:=1;
end; end;
')' : ')' :
begin begin
if found=1 then if found in [1,4] then
begin begin
dec_comment_level; dec_comment_level;
if comment_level=0 then if comment_level=0 then
@ -1015,9 +1012,17 @@ implementation
end; end;
end; end;
'(' : '(' :
found:=3; begin
if found=4 then
inc_comment_level;
found:=3;
end;
else else
found:=0; begin
if found=4 then
inc_comment_level;
found:=0;
end;
end; end;
c:=inputpointer^; c:=inputpointer^;
if c=#0 then if c=#0 then
@ -1684,7 +1689,10 @@ exit_label:
end. end.
{ {
$Log$ $Log$
Revision 1.97 1999-10-30 12:32:30 peter Revision 1.98 1999-11-02 15:05:08 peter
* fixed oldtp comment parsing
Revision 1.97 1999/10/30 12:32:30 peter
* fixed line counter when the first line had #10 only. This was buggy * fixed line counter when the first line had #10 only. This was buggy
for both the main file as for include files for both the main file as for include files