compiler: reduce amount of hints and notes

git-svn-id: trunk@19293 -

compiler/link.pas

@@ -953,7 +953,6 @@ Implementation
 
     procedure TInternalLinker.ParseScript_PostCheck;
       var
-        s : String;
         hp : TCmdStrListItem;
         i : longint;
       begin
@@ -964,7 +963,6 @@ Implementation
             inc(i);
             if not IsHandled^[i] then
               begin
-                s:=hp.str;
                 Comment(V_Warning,'"'+hp.str+
                   '" internal linker script not handled');
               end;

compiler/ncnv.pas

@@ -1025,9 +1025,9 @@ implementation
         newblock : tblocknode;
         newstat  : tstatementnode;
         restemp  : ttempcreatenode;
-        sa : ansistring;
-        cw : WideChar;
-        l : SizeUInt;
+        //sa : ansistring;
+        //cw : WideChar;
+        //l : SizeUInt;
       begin
          result:=nil;
          { we can't do widechar to ansichar conversions at compile time, since }
@@ -1184,8 +1184,6 @@ implementation
     function ttypeconvnode.typecheck_char_to_char : tnode;
       var
         hp : tordconstnode;
-        cha : array[0..3] of ansichar;
-        cw : WideChar;
       begin
          result:=nil;
          if (left.nodetype=ordconstn) and

compiler/pexpr.pas

@@ -1876,7 +1876,7 @@ implementation
             newstatement,assstatement:tstatementnode;
             arrnode:ttempcreatenode;
             temp2:ttempcreatenode;
-            assnode,paranode:tnode;
+            assnode:tnode;
             paracount:integer;
           begin
             result:=internalstatements(newstatement);

compiler/ppu.pas

@@ -1330,8 +1330,6 @@ procedure tppufile.putsmallset(const b);
 
 
 procedure tppufile.putnormalset(const b);
-  type
-    SetLongintArray = Array [0..7] of longint;
   begin
     putdata(b,32);
   end;

compiler/systems/t_embed.pas

@@ -80,7 +80,9 @@ Var
   linklibc : boolean;
   found1,
   found2   : boolean;
+{$ifdef ARM}
   LinkStr  : string;
+{$endif}
 begin
   WriteResponseFile:=False;
   linklibc:=(SharedLibFiles.Find('c')<>nil);
@@ -790,9 +792,7 @@ function TLinkerEmbedded.postprocessexecutable(const fn : string;isdll:boolean):
   var
     elfheader : TElf32header;
     secheader : TElf32sechdr;
-    firstsecpos,
-    maxfillsize,
-    i,secheaderpos : longint;
+    i : longint;
     stringoffset : longint;
     secname : string;
   begin

compiler/x86/agx86att.pas

@@ -233,7 +233,6 @@ interface
        calljmp  : boolean;
        need_second_mov : boolean;
        i        : integer;
-       comment  : tai_comment;
       begin
         if hp.typ <> ait_instruction then
           exit;