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

* fix bug #1634 (merged)

Browse Source
This commit is contained in:
peter 2001-10-12 16:02:34 +00:00
parent 373a7bc5ad
commit 5beb1658ce
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/scanner.pas
View File

@ -1783,8 +1783,11 @@ implementation
begin
aktcommentstyle:=comment_oldtp;
inc_comment_level;
readchar;
{ this is currently not supported }
{ only load a char if last already processed,
was cause of bug1634 PM }
if c=#0 then
readchar;
{ this is now supported }
if (c='$') then
handledirectives;
{ skip comment }
@ -2072,6 +2075,7 @@ implementation
case c of
'*' :
begin
c:=#0;{Signal skipoldtpcomment to reload a char }
skipoldtpcomment;
readtoken;
exit;
@ -2531,7 +2535,10 @@ exit_label:
begin
readchar;
if c='*' then
skipoldtpcomment
begin
c:=#0;{Signal skipoldtpcomment to reload a char }
skipoldtpcomment;
end
else
begin
asmgetchar:='(';
@ -2598,7 +2605,10 @@ exit_label:
end.
{
$Log$
Revision 1.23 2001-09-30 21:23:59 peter
Revision 1.24 2001-10-12 16:02:34 peter
* fix bug 1634 (merged)
Revision 1.23 2001/09/30 21:23:59 peter
* merged delphi comment fix
Revision 1.22 2001/09/18 11:30:48 michael