paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-29 11:25:59 +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:=[]; pno:=[];
{$endif EXTDEBUG} {$endif EXTDEBUG}
s:='<'; 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' s := s+'class method type of'
else else
if po_addressonly in procoptions then if po_addressonly in procoptions then
@ -6417,11 +6419,7 @@ implementation
s := s+' of object'; s := s+' of object';
if is_nested_pd(self) then if is_nested_pd(self) then
s := s+' is nested'; s := s+' is nested';
{ calling convention doesn't matter for blocks } GetTypeName := s+';'+ProcCallOptionStr[proccalloption]+'>';
if po_is_block in procoptions then
GetTypeName := s+' is block;'
else
GetTypeName := s+';'+ProcCallOptionStr[proccalloption]+'>';
end; end;