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

m68k: more minor reference usage tweaking, hopefully fixes Mantis 26286

Browse Source 
git-svn-id: trunk@27880 -
This commit is contained in:
Károly Balogh 2014-06-06 16:41:40 +00:00
parent 94f47443f0
commit 17657ca11d
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/m68k/cgcpu.pas
View File

@ -1208,8 +1208,6 @@ unit cgcpu;
exit;
end;
href:=ref;
fixref(list,href);
case op of
OP_NONE :
begin
@ -1223,6 +1221,8 @@ unit cgcpu;
OP_ADD,
OP_SUB :
begin
href:=ref;
fixref(list,href);
{ add/sub works the same way, so have it unified here }
if (a >= 1) and (a <= 8) then
begin
@ -1359,14 +1359,14 @@ unit cgcpu;
var
opcode : tasmop;
opsize : topsize;
href : treference;
begin
opcode := topcg2tasmop[op];
opsize := TCGSize2OpSize[size];
{ on ColdFire all arithmetic operations are only possible on 32bit
and addressing modes are limited }
if not isvalidreference(ref) or
((current_settings.cputype in cpu_coldfire) and (opsize <> S_L)) then
if ((current_settings.cputype in cpu_coldfire) and (opsize <> S_L)) then
begin
inherited;
exit;
@ -1376,8 +1376,10 @@ unit cgcpu;
OP_ADD,
OP_SUB :
begin
href:=ref;
fixref(list,href);
{ add/sub works the same way, so have it unified here }
list.concat(taicpu.op_reg_ref(opcode, opsize, reg, ref));
list.concat(taicpu.op_reg_ref(opcode, opsize, reg, href));
end;
else begin
// list.concat(tai_comment.create(strpnew('a_op_reg_ref inherited')));