paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 10:48:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* m68k/cgcpu.pas, tcg68k.fixref:

Browse Source 
always handle the symbol if base is set

git-svn-id: trunk@22814 -
This commit is contained in:
svenbarth 2012-10-21 19:46:41 +00:00
parent 970405c0f3
commit cb8db8fa23
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/m68k/cgcpu.pas
View File

@ -416,7 +416,7 @@ unit cgcpu;
function tcg68k.fixref(list: TAsmList; var ref: treference): boolean;
var
hreg,idxreg : tregister;
hreg,idxreg,hreg2 : tregister;
href : treference;
instr : taicpu;
begin
@ -518,25 +518,24 @@ unit cgcpu;
begin
if (ref.base<>NR_NO) then
begin
if assigned(ref.symbol) and (ref.index=NR_NO) then
{ base + symbol is not good }
if assigned(ref.symbol) then
begin
hreg:=cg.getaddressregister(list);
reference_reset_symbol(href,ref.symbol,0,ref.alignment);
list.concat(taicpu.op_ref_reg(A_LEA,S_L,href,hreg));
ref.index:=ref.base;
if ref.index=NR_NO then
ref.index:=ref.base
else
begin
hreg2:=getaddressregister(list);
list.concat(taicpu.op_reg_reg(A_MOVE,S_L,ref.base,hreg2));
list.concat(taicpu.op_reg_reg(A_ADD,S_L,hreg,ref.index));
ref.index:=hreg2;
end;
ref.base:=hreg;
ref.symbol:=nil;
end;
if (ref.index<>NR_NO) and assigned(ref.symbol) then
begin
hreg:=getaddressregister(list);
list.concat(taicpu.op_reg_reg(A_MOVE,S_L,ref.base,hreg));
list.concat(taicpu.op_reg_reg(A_ADD,S_L,hreg,ref.index));
ref.base:=hreg;
ref.index:=NR_NO;
end;
{if (ref.index <> NR_NO) and assigned(ref.symbol) then
internalerror(2002081403);}
{ base + reg }
if ref.index <> NR_NO then
begin