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

* name of result variable of anonymous functions can be changed (and must be in modes without modeswitch Result)

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-01-27 22:25:03 +01:00
parent 7de854ef1e
commit fd26453d5a
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/pdecsub.pas
View File

@ -1425,6 +1425,22 @@ implementation
end;
potype_function:
begin
if po_anonymous in pd.procoptions then
begin
{ allow a different result name for anonymous functions (especially
for modes without Result modeswitch), but for consistency with
operators we allow this in other modes as well }
if token<>_ID then
begin
if not(m_result in current_settings.modeswitches) then
consume(_ID);
end
else
begin
pd.resultname:=stringdup(orgpattern);
consume(_ID);
end;
end;
if try_to_consume(_COLON) then
begin
read_returndef(pd);