paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* minor reformatting, and removed superfluous assigned test (the value is

Browse Source 
already used before that test)

git-svn-id: trunk@21502 -
This commit is contained in:
Jonas Maebe 2012-06-06 18:51:14 +00:00
parent 9412d4abd2
commit 3414f91590
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ncal.pas
View File

@ -2964,7 +2964,7 @@ implementation
end;
{ check for hints (deprecated etc) }
if (procdefinition.typ = procdef) then
if procdefinition.typ = procdef then
check_hints(tprocdef(procdefinition).procsym,tprocdef(procdefinition).symoptions,tprocdef(procdefinition).deprecatedmsg);
{ add reference to corresponding procsym; may not be the one
@ -2973,8 +2973,7 @@ implementation
addsymref(tprocdef(procdefinition).procsym);
{ add needed default parameters }
if assigned(procdefinition) and
(paralength<procdefinition.maxparacount) then
if (paralength<procdefinition.maxparacount) then
begin
paraidx:=0;
i:=0;