paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 16:33:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

* bugfix of bug report 2072 (merged)

Browse Source
This commit is contained in:
carl 2002-09-06 14:58:42 +00:00
parent ec5679a06c
commit a013d19c36
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/scanner.pas
View File

@ -1740,6 +1740,23 @@ implementation
inc_comment_level;
incomment:=true;
end;
'*' :
begin
if incomment then
begin
readchar;
if c=')' then
begin
dec_comment_level;
found:=0;
incomment:=false;
end
else
next_char_loaded:=true;
end
else
found := 0;
end;
'}' :
begin
dec_comment_level;
@ -2781,7 +2798,10 @@ exit_label:
end.
{
$Log$
Revision 1.46 2002-09-05 19:27:05 peter
Revision 1.47 2002-09-06 14:58:42 carl
* bugfix of bug report 2072 (merged)
Revision 1.46 2002/09/05 19:27:05 peter
* fixed crash when current_module becomes nil
Revision 1.45 2002/09/05 14:17:27 pierre