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

+ show whether a procdef is far in tprocvardef.GetTypeName

Browse Source 
git-svn-id: trunk@38599 -
This commit is contained in:
nickysn 2018-03-22 22:57:34 +00:00
parent b0aeacf61b
commit 7a7e09982b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symdef.pas
View File

@ -6530,6 +6530,8 @@ 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';
if po_far in procoptions then
s := s+';far';
GetTypeName := s+';'+ProcCallOptionStr[proccalloption]+'>'; GetTypeName := s+';'+ProcCallOptionStr[proccalloption]+'>';
end; end;