paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 07:39:13 +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; aktcommentstyle:=comment_delphi;
inc_comment_level; inc_comment_level;
readchar; readchar;
{ this is currently not supported } { this is not supported }
if c='$' then if c='$' then
Message(scan_e_wrong_styled_switch); Message(scan_e_wrong_styled_switch);
{ skip comment } { skip comment }
while c<>newline do while not (c in [newline,#26]) do
begin readchar;
if c=#26 then
end_of_file;
readchar;
end;
dec_comment_level; dec_comment_level;
aktcommentstyle:=comment_none; aktcommentstyle:=comment_none;
end; end;
@ -2602,7 +2598,10 @@ exit_label:
end. end.
{ {
$Log$ $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 * Fixes win32 linking problems with import libraries
* LINKLIB Libraries are now looked for using C file extensions * LINKLIB Libraries are now looked for using C file extensions
* get_exepath fix * get_exepath fix