paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 22:46:01 +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 if (block_type=bt_const) and
(token=_EQUAL) then (token=_EQUAL) then
break; 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 end
else else
break; break;
@ -2080,7 +2083,10 @@ end.
{ {
$Log$ $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 * fixed a problem with forward declarations in TP mode, probably introduced by
Pierre's last changes Pierre's last changes