mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 00:09:17 +02:00
* fix delphi comment parsing when skipping preproc directive
This commit is contained in:
parent
9336184c5d
commit
7e58010fa1
@ -1847,7 +1847,6 @@ implementation
|
|||||||
readchar;
|
readchar;
|
||||||
if c='/' then
|
if c='/' then
|
||||||
begin
|
begin
|
||||||
readchar;
|
|
||||||
skipdelphicomment;
|
skipdelphicomment;
|
||||||
aktcommentstyle:=oldcommentstyle;
|
aktcommentstyle:=oldcommentstyle;
|
||||||
end
|
end
|
||||||
@ -2824,7 +2823,10 @@ exit_label:
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.53 2002-12-27 15:26:43 peter
|
Revision 1.54 2002-12-27 16:45:50 peter
|
||||||
|
* fix delphi comment parsing when skipping preproc directive
|
||||||
|
|
||||||
|
Revision 1.53 2002/12/27 15:26:43 peter
|
||||||
* give an error when no symbol is specified after $if(n)def
|
* give an error when no symbol is specified after $if(n)def
|
||||||
|
|
||||||
Revision 1.52 2002/12/24 23:32:02 peter
|
Revision 1.52 2002/12/24 23:32:02 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user