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

* Xtensa: more fixes for load_reg/ref_reg/ref

Browse Source 
git-svn-id: trunk@44369 -
This commit is contained in:
florian 2020-03-26 21:54:40 +00:00
parent 47f6af4416
commit 7e4ee79e65
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/xtensa/cgcpu.pas
View File

@ -213,13 +213,15 @@ implementation
else
InternalError(2020030804);
end;
href:=ref;
if assigned(href.symbol) or
(href.index<>NR_NO) or
((op=A_S8I) and ((href.offset<0) or (href.offset>255))) or
((op=A_S16I) and ((href.offset<0) or (href.offset>510))) or
((op=A_S32I) and ((href.offset<0) or (href.offset>1020))) then
((op=A_S16I) and ((href.offset<0) or (href.offset>510) or (href.offset mod 2<>0))) or
((op=A_S32I) and ((href.offset<0) or (href.offset>1020) or (href.offset mod 4<>0))) then
fixref(list,href);
list.concat(taicpu.op_reg_ref(op,reg,href));
end;
@ -244,14 +246,13 @@ implementation
else
internalerror(2020030801);
end;
href:=ref;
fixref(list,href);
href:=ref;
if assigned(href.symbol) or
(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
((op=A_L32I) and ((href.offset<0) or (href.offset>1020))) then
((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
fixref(list,href);
list.concat(taicpu.op_reg_ref(op,reg,href));