paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-16 03:06:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed nested comments for old style tp and c

Browse Source
This commit is contained in:
peter 1999-03-02 22:49:35 +00:00
parent 44be4d61ff
commit 393433d095
1 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
compiler/scanner.pas
View File

@ -445,7 +445,10 @@ implementation
var
oldaktfilepos : tfileposinfo;
begin
inc(comment_level);
if (m_nested_comment in aktmodeswitches) then
inc(comment_level)
else
comment_level:=1;
if (comment_level>1) then
begin
oldaktfilepos:=aktfilepos;
@ -458,10 +461,7 @@ implementation
procedure tscannerfile.dec_comment_level;
begin
if (m_nested_comment in aktmodeswitches) then
dec(comment_level)
else
comment_level:=0;
dec(comment_level)
end;
@ -892,7 +892,10 @@ implementation
#26 : Message(scan_f_end_of_file);
'*' : begin
if found=3 then
inc_comment_level
begin
inc_comment_level;
found:=0;
end
else
found:=1;
end;
@ -901,7 +904,9 @@ implementation
begin
dec_comment_level;
if comment_level=0 then
found:=2;
found:=2
else
found:=0;
end;
end;
'(' : found:=3;
@ -922,6 +927,7 @@ implementation
end;
end;
procedure tscannerfile.skipccomment;
var
found : longint;
@ -940,7 +946,10 @@ implementation
#26 : Message(scan_f_end_of_file);
'*' : begin
if found=3 then
inc_comment_level
begin
inc_comment_level;
found:=0;
end
else
found:=1;
end;
@ -949,7 +958,9 @@ implementation
begin
dec_comment_level;
if comment_level=0 then
found:=2;
found:=2
else
found:=0;
end
else found:=3;
end;
@ -1559,7 +1570,10 @@ begin
end.
{
$Log$
Revision 1.72 1999-02-02 00:15:10 florian
Revision 1.73 1999-03-02 22:49:35 peter
* fixed nested comments for old style tp and c
Revision 1.72 1999/02/02 00:15:10 florian
+ c styled comments
Revision 1.71 1999/01/27 13:05:45 pierre