Browse Source

* mark hidden parameters with < > when printing parameter lists, only used
in EXTDEBUG mode

git-svn-id: trunk@4734 -

peter 19 years ago
parent
commit
8a0a27262e
1 changed files with 4 additions and 0 deletions
  1. 4 0
      compiler/symdef.pas

+ 4 - 0
compiler/symdef.pas

@@ -3161,6 +3161,8 @@ implementation
                 end
                else
                 s:=s+',';
+               if vo_is_hidden_para in hp.varoptions then
+                 s:=s+'<';
                case hp.varspez of
                  vs_var :
                    s:=s+'var';
@@ -3214,6 +3216,8 @@ implementation
                   if hs<>'' then
                    s:=s+'="'+hs+'"';
                 end;
+               if vo_is_hidden_para in hp.varoptions then
+                 s:=s+'>';
              end;
          end;
         if not first then