From 7a74d2c2f88e2dea3e899238376bd2e9341f3863 Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Fri, 30 Sep 2011 08:56:05 +0000
Subject: [PATCH] compiler: reduce amount of hints and notes

git-svn-id: trunk@19293 -
---
 compiler/link.pas            | 2 --
 compiler/ncnv.pas            | 8 +++-----
 compiler/pexpr.pas           | 2 +-
 compiler/ppu.pas             | 2 --
 compiler/systems/t_embed.pas | 6 +++---
 compiler/x86/agx86att.pas    | 1 -
 6 files changed, 7 insertions(+), 14 deletions(-)

diff --git a/compiler/link.pas b/compiler/link.pas
index 2624623c5f..d3c65f62ce 100644
--- a/compiler/link.pas
+++ b/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;
diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas
index 5a875907cc..4989e34f93 100644
--- a/compiler/ncnv.pas
+++ b/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
diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index 6ef2e090b9..f861327f2c 100644
--- a/compiler/pexpr.pas
+++ b/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);
diff --git a/compiler/ppu.pas b/compiler/ppu.pas
index 101fbc6935..9c960f279f 100644
--- a/compiler/ppu.pas
+++ b/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;
diff --git a/compiler/systems/t_embed.pas b/compiler/systems/t_embed.pas
index 6b83d7af00..21573bd02a 100644
--- a/compiler/systems/t_embed.pas
+++ b/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
diff --git a/compiler/x86/agx86att.pas b/compiler/x86/agx86att.pas
index 2ae6e4f0e7..39e81ead63 100644
--- a/compiler/x86/agx86att.pas
+++ b/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;