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

* fixed old tp comment behaviour within directives

Browse Source
This commit is contained in:
peter 1999-03-16 21:00:27 +00:00
parent 1e6d667c3b
commit 035ec8ca3b
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/scanner.pas
View File

@ -809,6 +809,11 @@ implementation
if found=1 then
found:=2;
end;
'(' : begin
readchar;
if c='*' then
skipoldtpcomment;
end;
else
found:=0;
end;
@ -1570,7 +1575,10 @@ begin
end.
{
$Log$
Revision 1.74 1999-03-11 10:46:29 daniel
Revision 1.75 1999-03-16 21:00:27 peter
* fixed old tp comment behaviour within directives
Revision 1.74 1999/03/11 10:46:29 daniel
* Reverted C styled comments
Revision 1.73 1999/03/02 22:49:35 peter