compiler: remove/hide few unused variables

git-svn-id: trunk@18912 -

compiler/nadd.pas

@@ -346,9 +346,8 @@ implementation
 
     function taddnode.simplify(forinline : boolean) : tnode;
       var
-        t, hp   : tnode;
+        t       : tnode;
         lt,rt   : tnodetype;
-        realdef : tdef;
         rd,ld   : tdef;
         rv,lv,v : tconstexprint;
         rvd,lvd : bestreal;

compiler/pdecsub.pas

@@ -1623,7 +1623,9 @@ end;
 
 procedure pd_interrupt(pd:tabstractprocdef);
 
+{$ifdef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
 var v: Tconstexprint;
+{$endif FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
 
 begin
   if pd.parast.symtablelevel>normal_function_level then

compiler/symtable.pas

@@ -1563,8 +1563,6 @@ implementation
 
 
     function tstaticsymtable.checkduplicate(var hashedid:THashedIDString;sym:TSymEntry):boolean;
-      var
-        hsym : tsym;
       begin
         result:=inherited checkduplicate(hashedid,sym);
 

compiler/x86/aasmcpu.pas

@@ -1729,7 +1729,9 @@ implementation
         c     : byte;
         len     : shortint;
         ea_data : ea;
+{$ifdef x86_64}
         omit_rexw : boolean;
+{$endif x86_64}
       begin
         len:=0;
         codes:=@p^.code[0];