浏览代码

* with EXTDEBUG show non-hidden parameters

git-svn-id: trunk@4735 -
peter 19 年之前
父节点
当前提交
1eeb78379f
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/htypechk.pas

+ 1 - 1
compiler/htypechk.pas

@@ -1841,7 +1841,7 @@ implementation
               for i:=0 to hp^.data.paras.count-1 do
                begin
                  currpara:=tparavarsym(hp^.data.paras[i]);
-                 if (vo_is_hidden_para in currpara.varoptions) then
+                 if not(vo_is_hidden_para in currpara.varoptions) then
                    Comment(lvl,'    - '+currpara.vartype.def.typename+' : '+EqualTypeName[currpara.eqval]);
                end;
             end;