git-svn-id: trunk@32537 -
@@ -133,7 +133,6 @@ uses
Var
namelab,
valuelab : tasmlabofs;
- resstrlab : tasmsymbol;
R : TResourceStringItem;
resstrdef: tdef;
tcb : ttai_typedconstbuilder;
@@ -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
@@ -2479,7 +2479,6 @@ implementation
procedure specialize_objectdefs(p:TObject;arg:pointer);
- oldcurrent_filepos : tfileposinfo;
specobj : tabstractrecorddef;
state : tspecializationstate;
@@ -2818,7 +2818,6 @@ implementation
symownerdef : tabstractrecorddef;
nonlocalst : tsymtable;
isspezproc : boolean;
- def : tstoreddef;
result:=false;