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

* generate a better name if the procdef is an anonymous one

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-01-17 22:31:41 +01:00
parent cdf676c9b5
commit 76d3a9c4b5
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/symdef.pas
View File

@ -6689,7 +6689,7 @@ implementation
potype_destructor:
s:=s+'destructor ';
else
if (pno_proctypeoption in pno) then
if (pno_proctypeoption in pno) and not (po_anonymous in procoptions) then
begin
if assigned(returndef) and
not(is_void(returndef)) then
@ -6708,6 +6708,15 @@ implementation
internalerror(2016060305);
rn:=syssym.realname;
end
else if po_anonymous in procoptions then
begin
s:=s+'anonymous ';
if assigned(returndef) and
not(is_void(returndef)) then
s:=s+'function'
else
s:=s+'procedure';
end
else
rn:=procsym.realname;
if (pno_noleadingdollar in pno) and
@ -6722,10 +6731,11 @@ implementation
assigned(returndef) and
not(is_void(returndef)) then
s:=s+':'+returndef.GetTypeName;
if assigned(owner) and (owner.symtabletype=localsymtable) then
s:=s+' is nested'
else if po_is_block in procoptions then
s:=s+' is block';
if not (po_anonymous in procoptions) then
if assigned(owner) and (owner.symtabletype=localsymtable) then
s:=s+' is nested'
else if po_is_block in procoptions then
s:=s+' is block';
s:=s+';';
if po_far in procoptions then
s:=s+' far;';