paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed unused variables

Browse Source 
git-svn-id: trunk@28282 -
This commit is contained in:
sergei 2014-07-31 18:35:55 +00:00
parent 9efce39e06
commit 01c8ee158d
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/m68k/n68kmat.pas
View File

@ -70,8 +70,7 @@ implementation
procedure tm68knotnode.second_boolean; procedure tm68knotnode.second_boolean;
var var
hreg: tregister; hreg: tregister;
opsize : tcgsize; opsize : tcgsize;
loc : tcgloc;
begin begin
if not handle_locjump then if not handle_locjump then
begin begin
@ -154,10 +153,8 @@ implementation
procedure tm68kmoddivnode.emit_mod_reg_reg(signed: boolean;denum,num : tregister); procedure tm68kmoddivnode.emit_mod_reg_reg(signed: boolean;denum,num : tregister);
var tmpreg : tregister; var
continuelabel : tasmlabel; tmpreg : tregister;
signlabel : tasmlabel;
reg_d0,reg_d1 : tregister;
begin begin
if current_settings.cputype=cpu_MC68020 then if current_settings.cputype=cpu_MC68020 then
begin begin