paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 12:50:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Xtensa: handle references with offset only properly

Browse Source 
git-svn-id: trunk@46784 -
This commit is contained in:
florian 2020-09-05 20:25:32 +00:00
parent 243300c85f
commit 9337b2a3ac
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/xtensa/cgcpu.pas
View File

@ -286,7 +286,8 @@ implementation
(href.index<>NR_NO) or
((op=A_L8UI) and ((href.offset<0) or (href.offset>255))) or
((op in [A_L16SI,A_L16UI]) and ((href.offset<0) or (href.offset>510) or (href.offset mod 2<>0))) or
((op=A_L32I) and ((href.offset<0) or (href.offset>1020) or (href.offset mod 4<>0))) then
((op=A_L32I) and ((href.offset<0) or (href.offset>1020) or (href.offset mod 4<>0))) or
((href.base=NR_NO) and (href.index=NR_NO)) then
fixref(list,href);
list.concat(taicpu.op_reg_ref(op,reg,href));
@ -329,15 +330,21 @@ implementation
l : tasmlabel;
begin
{ create consts entry }
if assigned(ref.symbol) or (ref.offset<-2048) or (ref.offset>2047) then
if assigned(ref.symbol) or (ref.offset<-2048) or (ref.offset>2047) or
((ref.base=NR_NO) and (ref.index=NR_NO)) then
begin
reference_reset(tmpref,4,[]);
tmpreg:=NR_NO;
{ load consts entry }
tmpreg:=getintregister(list,OS_INT);
tmpref.symbol:=create_data_entry(ref.symbol,ref.offset);
list.concat(taicpu.op_reg_ref(A_L32R,tmpreg,tmpref));
if ref.symbol=nil then
a_load_const_reg(list,OS_ADDR,ref.offset,tmpreg)
else
begin
tmpref.symbol:=create_data_entry(ref.symbol,ref.offset);
list.concat(taicpu.op_reg_ref(A_L32R,tmpreg,tmpref));
end;
if ref.base<>NR_NO then
begin