2
0
Эх сурвалжийг харах

* Removed unused local vars.

git-svn-id: trunk@32537 -
yury 9 жил өмнө
parent
commit
17358aa3ed

+ 0 - 1
compiler/cresstr.pas

@@ -133,7 +133,6 @@ uses
       Var
       Var
         namelab,
         namelab,
         valuelab : tasmlabofs;
         valuelab : tasmlabofs;
-        resstrlab : tasmsymbol;
         R : TResourceStringItem;
         R : TResourceStringItem;
         resstrdef: tdef;
         resstrdef: tdef;
         tcb : ttai_typedconstbuilder;
         tcb : ttai_typedconstbuilder;

+ 0 - 1
compiler/ngenutil.pas

@@ -1003,7 +1003,6 @@ implementation
 
 
   class procedure tnodeutils.InsertResourceInfo(ResourcesUsed: boolean);
   class procedure tnodeutils.InsertResourceInfo(ResourcesUsed: boolean);
     var
     var
-      ResourceInfo : TAsmList;
       tcb: ttai_typedconstbuilder;
       tcb: ttai_typedconstbuilder;
     begin
     begin
       if (target_res.id in [res_elf,res_macho,res_xcoff]) then
       if (target_res.id in [res_elf,res_macho,res_xcoff]) then

+ 0 - 1
compiler/psub.pas

@@ -2479,7 +2479,6 @@ implementation
 
 
     procedure specialize_objectdefs(p:TObject;arg:pointer);
     procedure specialize_objectdefs(p:TObject;arg:pointer);
       var
       var
-        oldcurrent_filepos : tfileposinfo;
         specobj : tabstractrecorddef;
         specobj : tabstractrecorddef;
         state : tspecializationstate;
         state : tspecializationstate;
 
 

+ 0 - 1
compiler/symtable.pas

@@ -2818,7 +2818,6 @@ implementation
         symownerdef : tabstractrecorddef;
         symownerdef : tabstractrecorddef;
         nonlocalst : tsymtable;
         nonlocalst : tsymtable;
         isspezproc : boolean;
         isspezproc : boolean;
-        def : tstoreddef;
       begin
       begin
         result:=false;
         result:=false;