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

* allow in delphi mode directives without semicolons between

Browse Source
This commit is contained in:
peter 2000-07-06 19:04:59 +00:00
parent 7e015f6815
commit b91050ccb7
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/psub.pas
View File

@ -1808,7 +1808,10 @@ begin
if (block_type=bt_const) and
(token=_EQUAL) then
break;
consume(_SEMICOLON);
{ support procedure proc;stdcall export; in Delphi mode only }
if not((m_delphi in aktmodeswitches) and
is_proc_directive(token)) then
consume(_SEMICOLON);
end
else
break;
@ -2080,7 +2083,10 @@ end.
{
$Log$
Revision 1.65 2000-06-25 20:13:51 florian
Revision 1.66 2000-07-06 19:04:59 peter
* allow in delphi mode directives without semicolons between
Revision 1.65 2000/06/25 20:13:51 florian
* fixed a problem with forward declarations in TP mode, probably introduced by
Pierre's last changes