Explorar o código

* Removed unused local vars.

git-svn-id: trunk@32537 -
yury %!s(int64=9) %!d(string=hai) anos
pai
achega
17358aa3ed
Modificáronse 4 ficheiros con 0 adicións e 4 borrados
  1. 0 1
      compiler/cresstr.pas
  2. 0 1
      compiler/ngenutil.pas
  3. 0 1
      compiler/psub.pas
  4. 0 1
      compiler/symtable.pas

+ 0 - 1
compiler/cresstr.pas

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

+ 0 - 1
compiler/ngenutil.pas

@@ -1003,7 +1003,6 @@ implementation
 
   class procedure tnodeutils.InsertResourceInfo(ResourcesUsed: boolean);
     var
-      ResourceInfo : TAsmList;
       tcb: ttai_typedconstbuilder;
     begin
       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);
       var
-        oldcurrent_filepos : tfileposinfo;
         specobj : tabstractrecorddef;
         state : tspecializationstate;
 

+ 0 - 1
compiler/symtable.pas

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