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

* merged delphi comment fix

Browse Source
This commit is contained in:
peter 2001-09-30 21:23:59 +00:00
parent f15271ad22
commit 0d27041955
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/scanner.pas
View File

@ -1766,16 +1766,12 @@ implementation
aktcommentstyle:=comment_delphi;
inc_comment_level;
readchar;
{ this is currently not supported }
{ this is not supported }
if c='$' then
Message(scan_e_wrong_styled_switch);
{ skip comment }
while c<>newline do
begin
if c=#26 then
end_of_file;
readchar;
end;
{ skip comment }
while not (c in [newline,#26]) do
readchar;
dec_comment_level;
aktcommentstyle:=comment_none;
end;
@ -2602,7 +2598,10 @@ exit_label:
end.
{
$Log$
Revision 1.22 2001-09-18 11:30:48 michael
Revision 1.23 2001-09-30 21:23:59 peter
* merged delphi comment fix
Revision 1.22 2001/09/18 11:30:48 michael
* Fixes win32 linking problems with import libraries
* LINKLIB Libraries are now looked for using C file extensions
* get_exepath fix