+ show whether a procedure or function is far in tprocdef.customprocname

git-svn-id: trunk@38725 -

compiler/symdef.pas

@@ -5852,6 +5852,8 @@ implementation
         else if po_is_block in procoptions then
           s:=s+' is block';
         s:=s+';';
+        if po_far in procoptions then
+          s:=s+' far;';
         { forced calling convention? }
         if (po_hascallingconvention in procoptions) then
           s:=s+' '+ProcCallOptionStr[proccalloption]+';';