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

+ Patch from peter to fix webtb[fs]/tw2853*.pp

Browse Source
This commit is contained in:
michael 2004-02-27 11:50:13 +00:00
parent 46c23fdc4d
commit 3399057a27
1 changed files with 24 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/scanner.pas
View File

@ -1880,18 +1880,22 @@ implementation
end;
'{' :
begin
if not(m_nested_comment in aktmodeswitches) or
(comment_level=0) then
begin
found:=1;
aktcommentstyle:=comment_tp;
end;
inc_comment_level;
incomment:=true;
if (not incomment) or
(aktcommentstyle=comment_tp) then
begin
if (comment_level=0) then
begin
found:=1;
aktcommentstyle:=comment_tp;
end;
inc_comment_level;
incomment:=true;
end;
end;
'*' :
begin
if incomment then
if incomment and
(aktcommentstyle=comment_oldtp) then
begin
readchar;
if c=')' then
@ -1908,9 +1912,13 @@ implementation
end;
'}' :
begin
dec_comment_level;
found:=0;
incomment:=false;
if incomment and
(aktcommentstyle=comment_tp) then
begin
dec_comment_level;
found:=0;
incomment:=false;
end;
end;
'$' :
begin
@ -2980,7 +2988,10 @@ exit_label:
end.
{
$Log$
Revision 1.72 2004-02-26 16:15:45 peter
Revision 1.73 2004-02-27 11:50:13 michael
+ Patch from peter to fix webtb[fs]/tw2853*.pp
Revision 1.72 2004/02/26 16:15:45 peter
* resursive macro's fixed in preprocessor
Revision 1.71 2004/02/25 00:54:47 olle