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

* update tprocvardef.GetTypeName() for blocks so it prints them using the

Browse Source 
syntax required by the compiler ("reference to ...; cdecl")

git-svn-id: trunk@33530 -
This commit is contained in:
Jonas Maebe 2016-04-17 19:07:30 +00:00
parent f50dec5202
commit 266dee9258
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.pas
View File

@ -6401,7 +6401,9 @@ implementation
pno:=[];
{$endif EXTDEBUG}
s:='<';
if po_classmethod in procoptions then
if po_is_block in procoptions then
s := s+'reference to'
else if po_classmethod in procoptions then
s := s+'class method type of'
else
if po_addressonly in procoptions then
@ -6417,11 +6419,7 @@ implementation
s := s+' of object';
if is_nested_pd(self) then
s := s+' is nested';
{ calling convention doesn't matter for blocks }
if po_is_block in procoptions then
GetTypeName := s+' is block;'
else
GetTypeName := s+';'+ProcCallOptionStr[proccalloption]+'>';
GetTypeName := s+';'+ProcCallOptionStr[proccalloption]+'>';
end;