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

* fixed // and (* parsing to not be done when already parsing a

Browse Source 
tp comment in skipuntildirective
This commit is contained in:
peter 2002-03-01 14:39:44 +00:00
parent 708f10ddf1
commit b5936b1588
1 changed files with 40 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/scanner.pas
View File

@ -1741,6 +1741,8 @@ implementation
until false;
end;
'(' :
begin
if not incomment then
begin
readchar;
if c='*' then
@ -1760,8 +1762,13 @@ implementation
end
else
next_char_loaded:=true;
end
else
found:=0;
end;
'/' :
begin
if not incomment then
begin
readchar;
if c='/' then
@ -1772,6 +1779,9 @@ implementation
end
else
next_char_loaded:=true;
end
else
found:=0;
end;
else
found:=0;
@ -2725,7 +2735,11 @@ exit_label:
end.
{
$Log$
Revision 1.30 2002-03-01 12:39:26 peter
Revision 1.31 2002-03-01 14:39:44 peter
* fixed // and (* parsing to not be done when already parsing a
tp comment in skipuntildirective
Revision 1.30 2002/03/01 12:39:26 peter
* support // parsing in skipuntildirective
Revision 1.29 2002/01/27 21:44:26 peter