paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 03:51:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed unused local variables

Browse Source 
git-svn-id: branches/jvmbackend@18348 -
This commit is contained in:
Jonas Maebe 2011-08-20 07:49:41 +00:00
parent 532f16336a
commit afceec23b2
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/hlcgobj.pas
View File

@ -939,8 +939,6 @@ implementation
end; end;
procedure thlcgobj.a_bit_set_reg_loc(list: TAsmList; doset: boolean; fromsize, tosize: tdef; bitnumber: tregister; const loc: tlocation); procedure thlcgobj.a_bit_set_reg_loc(list: TAsmList; doset: boolean; fromsize, tosize: tdef; bitnumber: tregister; const loc: tlocation);
var
tmpreg: tregister;
begin begin
case loc.loc of case loc.loc of
LOC_REFERENCE: LOC_REFERENCE:
@ -1439,8 +1437,6 @@ implementation
end; end;
procedure thlcgobj.a_cmp_const_loc_label(list: TAsmList; size: tdef; cmp_op: topcmp; a: aint; const loc: tlocation; l: tasmlabel); procedure thlcgobj.a_cmp_const_loc_label(list: TAsmList; size: tdef; cmp_op: topcmp; a: aint; const loc: tlocation; l: tasmlabel);
var
tmpreg : tregister;
begin begin
case loc.loc of case loc.loc of
LOC_REGISTER,LOC_CREGISTER: LOC_REGISTER,LOC_CREGISTER:
@ -1712,9 +1708,7 @@ implementation
"lr_load_regvars" or "lr_dont_load_regvars" "lr_load_regvars" or "lr_dont_load_regvars"
} }
var var
opsize : tcgsize;
storepos : tfileposinfo; storepos : tfileposinfo;
tmpreg : tregister;
begin begin
if nf_error in p.flags then if nf_error in p.flags then
exit; exit;