paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-18 09:31:30 +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 var
oldaktfilepos : tfileposinfo; oldaktfilepos : tfileposinfo;
begin begin
inc(comment_level); if (m_nested_comment in aktmodeswitches) then
inc(comment_level)
else
comment_level:=1;
if (comment_level>1) then if (comment_level>1) then
begin begin
oldaktfilepos:=aktfilepos; oldaktfilepos:=aktfilepos;
@ -458,10 +461,7 @@ implementation
procedure tscannerfile.dec_comment_level; procedure tscannerfile.dec_comment_level;
begin begin
if (m_nested_comment in aktmodeswitches) then dec(comment_level)
dec(comment_level)
else
comment_level:=0;
end; end;
@ -892,7 +892,10 @@ implementation
#26 : Message(scan_f_end_of_file); #26 : Message(scan_f_end_of_file);
'*' : begin '*' : begin
if found=3 then if found=3 then
inc_comment_level begin
inc_comment_level;
found:=0;
end
else else
found:=1; found:=1;
end; end;
@ -901,7 +904,9 @@ implementation
begin begin
dec_comment_level; dec_comment_level;
if comment_level=0 then if comment_level=0 then
found:=2; found:=2
else
found:=0;
end; end;
end; end;
'(' : found:=3; '(' : found:=3;
@ -922,6 +927,7 @@ implementation
end; end;
end; end;
procedure tscannerfile.skipccomment; procedure tscannerfile.skipccomment;
var var
found : longint; found : longint;
@ -940,7 +946,10 @@ implementation
#26 : Message(scan_f_end_of_file); #26 : Message(scan_f_end_of_file);
'*' : begin '*' : begin
if found=3 then if found=3 then
inc_comment_level begin
inc_comment_level;
found:=0;
end
else else
found:=1; found:=1;
end; end;
@ -949,7 +958,9 @@ implementation
begin begin
dec_comment_level; dec_comment_level;
if comment_level=0 then if comment_level=0 then
found:=2; found:=2
else
found:=0;
end end
else found:=3; else found:=3;
end; end;
@ -1559,7 +1570,10 @@ begin
end. end.
{ {
$Log$ $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 + c styled comments
Revision 1.71 1999/01/27 13:05:45 pierre Revision 1.71 1999/01/27 13:05:45 pierre