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

* correctly handle directives for anonymous functions

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-01-27 23:11:33 +01:00
parent e8b0fc88e3
commit 92082ab28f
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pdecsub.pas
View File

@ -3434,8 +3434,13 @@ const
begin begin
{ support "record p : procedure stdcall end;" and { support "record p : procedure stdcall end;" and
"var p : procedure stdcall = nil;" } "var p : procedure stdcall = nil;" }
if (pd_procvar in pdflags) and if (
(token in [_END,_RKLAMMER,_EQ]) then (pd_procvar in pdflags) and
(token in [_END,_RKLAMMER,_EQ])
) or (
(po_anonymous in pd.procoptions) and
(token in [_BEGIN,_VAR,_CONST,_TYPE,_LABEL,_FUNCTION,_PROCEDURE,_OPERATOR])
) then
break break
else else
begin begin