- cleanup, fixing of uninitialized variables, missing return values and unused variables

git-svn-id: trunk@5502 -

compiler/ncal.pas

@@ -333,6 +333,7 @@ implementation
         para:=tcallparanode(p2);
         currargpos:=0;
         paramssize:=0;
+        names := '';
         while assigned(para) do
           begin
             if assigned(para.parametername) then

compiler/ncon.pas

@@ -384,6 +384,7 @@ implementation
                 len:=0;
               end;
           end;
+          dogetcopy := n;
       end;
 
 

compiler/nflw.pas

@@ -1111,7 +1111,6 @@ implementation
    function tgotonode.dogetcopy : tnode;
      var
        p : tgotonode;
-       i : longint;
      begin
         p:=tgotonode(inherited dogetcopy);
         p.exceptionblock:=exceptionblock;