paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 18:51:28 +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; inc_comment_level;
incomment:=true; incomment:=true;
end; 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 begin
dec_comment_level; dec_comment_level;
@ -2781,7 +2798,10 @@ exit_label:
end. end.
{ {
$Log$ $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 * fixed crash when current_module becomes nil
Revision 1.45 2002/09/05 14:17:27 pierre Revision 1.45 2002/09/05 14:17:27 pierre