paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 03:39:30 +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;
var
hreg: tregister;
opsize : tcgsize;
loc : tcgloc;
opsize : tcgsize;
begin
if not handle_locjump then
begin
@ -154,10 +153,8 @@ implementation
procedure tm68kmoddivnode.emit_mod_reg_reg(signed: boolean;denum,num : tregister);
var tmpreg : tregister;
continuelabel : tasmlabel;
signlabel : tasmlabel;
reg_d0,reg_d1 : tregister;
var
tmpreg : tregister;
begin
if current_settings.cputype=cpu_MC68020 then
begin