diff --git a/compiler/assemble.pas b/compiler/assemble.pas
index 7a0537e39d..eb23b8f38b 100644
--- a/compiler/assemble.pas
+++ b/compiler/assemble.pas
@@ -1059,9 +1059,7 @@ Implementation
 {$ifdef x86}
         co : comp;
 {$endif x86}
-        hs : string;
         objsym,
-        objsymparent,
         objsymend : TObjSymbol;
         leblen : byte;
         lebbuf : array[0..63] of byte;
diff --git a/compiler/ncgcal.pas b/compiler/ncgcal.pas
index afa12264b8..fa54c13057 100644
--- a/compiler/ncgcal.pas
+++ b/compiler/ncgcal.pas
@@ -813,7 +813,9 @@ implementation
         pvreg,
         vmtreg : tregister;
         oldaktcallnode : tcallnode;
+{$ifdef vtentry}
         sym : tasmsymbol;
+{$endif vtentry}
       begin
          if not assigned(procdefinition) or
             not procdefinition.has_paraloc_info then
diff --git a/compiler/ncginl.pas b/compiler/ncginl.pas
index 65cf605186..d182376c43 100644
--- a/compiler/ncginl.pas
+++ b/compiler/ncginl.pas
@@ -677,8 +677,6 @@ implementation
 
     procedure Tcginlinenode.second_get_frame;
 
-    var frame_ref:Treference;
-
     begin
       if current_procinfo.framepointer=NR_STACK_POINTER_REG then
         begin
diff --git a/compiler/nflw.pas b/compiler/nflw.pas
index 1b862b9727..973c29b4d0 100644
--- a/compiler/nflw.pas
+++ b/compiler/nflw.pas
@@ -1117,7 +1117,7 @@ implementation
    function tgotonode._getcopy : tnode;
      var
        p : tgotonode;
-       i : aint;
+{       i : longint; }
      begin
         p:=tgotonode(inherited _getcopy);
         {
diff --git a/compiler/nmat.pas b/compiler/nmat.pas
index f2ced45389..326f251956 100644
--- a/compiler/nmat.pas
+++ b/compiler/nmat.pas
@@ -663,7 +663,6 @@ implementation
     function tunaryminusnode.pass_1 : tnode;
       var
         procname: string[31];
-        temp: tnode;
       begin
         result:=nil;
         firstpass(left);
diff --git a/compiler/nobj.pas b/compiler/nobj.pas
index c4ef08c9d2..e05b213fd5 100644
--- a/compiler/nobj.pas
+++ b/compiler/nobj.pas
@@ -1209,8 +1209,11 @@ implementation
          vmtentry : pvmtentry;
          procdefcoll : pprocdefcoll;
          i : longint;
-         procname,
-         hs : string;
+         procname
+{$ifdef vtentry}
+         , hs
+{$endif vtentry}
+                     : string;
       begin
          { walk trough all numbers for virtual methods and search }
          { the method                                             }
@@ -1258,7 +1261,9 @@ implementation
          dmtlabel : tasmlabel;
 {$endif WITHDMT}
          interfacetable : tasmlabel;
-         hs : string;
+{$ifdef vtentry}
+         hs: string;
+{$endif vtentry}
       begin
 {$ifdef WITHDMT}
          dmtlabel:=gendmt;
diff --git a/compiler/optunrol.pas b/compiler/optunrol.pas
index 698aa71b19..e549d9ab99 100644
--- a/compiler/optunrol.pas
+++ b/compiler/optunrol.pas
@@ -78,7 +78,6 @@ unit optunrol;
         counts : qword;
         unrollstatement : tstatementnode;
         unrollblock : tblocknode;
-        entrylabel : tlabelnode;
       begin
         result:=nil;
         if (cs_opt_size in aktoptimizerswitches) then
diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas
index 309fda73b3..d20623c286 100644
--- a/compiler/pmodules.pas
+++ b/compiler/pmodules.pas
@@ -823,7 +823,9 @@ implementation
          pd : tprocdef;
          unitname8 : string[8];
          has_impl,ag: boolean;
+{$ifdef i386}
          globalvarsym : tglobalvarsym;
+{$endif i386}
       begin
          if m_mac in aktmodeswitches then
            current_module.mode_switch_allowed:= false;
diff --git a/compiler/ptype.pas b/compiler/ptype.pas
index 9a105b8a04..641335599e 100644
--- a/compiler/ptype.pas
+++ b/compiler/ptype.pas
@@ -336,7 +336,6 @@ implementation
         var
            pt1,pt2 : tnode;
            lv,hv   : TConstExprInt;
-           ispecialization : boolean;
            old_block_type : tblock_type;
         begin
            old_block_type:=block_type;
diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index c0bb6f8b83..7ab4c976c1 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -2679,8 +2679,6 @@ implementation
 
 
    procedure tabstractrecorddef.derefimpl;
-     var
-       storesymtable : tsymtable;
      begin
        inherited derefimpl;
        tstoredsymtable(symtable).derefimpl;