paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 14:49:11 +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; end;
{ check for hints (deprecated etc) } { 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); check_hints(tprocdef(procdefinition).procsym,tprocdef(procdefinition).symoptions,tprocdef(procdefinition).deprecatedmsg);
{ add reference to corresponding procsym; may not be the one { add reference to corresponding procsym; may not be the one
@ -2973,8 +2973,7 @@ implementation
addsymref(tprocdef(procdefinition).procsym); addsymref(tprocdef(procdefinition).procsym);
{ add needed default parameters } { add needed default parameters }
if assigned(procdefinition) and if (paralength<procdefinition.maxparacount) then
(paralength<procdefinition.maxparacount) then
begin begin
paraidx:=0; paraidx:=0;
i:=0; i:=0;