paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 08:29:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* with EXTDEBUG show non-hidden parameters

Browse Source 
git-svn-id: trunk@4735 -
This commit is contained in:
peter 2006-09-26 20:06:35 +00:00
parent 8a0a27262e
commit 1eeb78379f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/htypechk.pas
View File

@ -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;