Quellcode durchsuchen

* with EXTDEBUG show non-hidden parameters

git-svn-id: trunk@4735 -
peter vor 19 Jahren
Ursprung
Commit
1eeb78379f
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  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;