Browse Source

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

git-svn-id: trunk@4734 -

peter 19 năm trước cách đây
mục cha
commit
8a0a27262e
1 tập tin đã thay đổi với 4 bổ sung0 xóa
  1. 4 0
      compiler/symdef.pas

+ 4 - 0
compiler/symdef.pas

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