Browse Source

* use a single if-condition for both check_hints and addsymref

Sven/Sarah Barth 3 years ago
parent
commit
e0e8620ded
1 changed files with 7 additions and 6 deletions
  1. 7 6
      compiler/ncal.pas

+ 7 - 6
compiler/ncal.pas

@@ -3873,14 +3873,15 @@ implementation
                  end; { end of procedure to call determination }
                  end; { end of procedure to call determination }
              end;
              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);
+              begin
+                { check for hints (deprecated etc) }
+                check_hints(tprocdef(procdefinition).procsym,tprocdef(procdefinition).symoptions,tprocdef(procdefinition).deprecatedmsg);
 
 
-            { add reference to corresponding procsym; may not be the one
-              originally found/passed to the constructor because of overloads }
-            if procdefinition.typ = procdef then
-              addsymref(tprocdef(procdefinition).procsym,procdefinition);
+                { add reference to corresponding procsym; may not be the one
+                  originally found/passed to the constructor because of overloads }
+                addsymref(tprocdef(procdefinition).procsym,procdefinition);
+              end;
 
 
             { add needed default parameters }
             { add needed default parameters }
             if (paralength<procdefinition.maxparacount) then
             if (paralength<procdefinition.maxparacount) then