paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 14:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Xtensa: patch by Christo Crause: fix addmi/addi handling, resolves #37015

Browse Source 
git-svn-id: trunk@45258 -
This commit is contained in:
florian 2020-05-04 19:58:45 +00:00
parent 0fbb1b259e
commit 724676db43
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/xtensa/cgcpu.pas
View File

@ -499,7 +499,7 @@ implementation
{$ifdef EXTDEBUG} {$ifdef EXTDEBUG}
list.concat(tai_comment.Create(strpnew('Value: '+tostr(a)))); list.concat(tai_comment.Create(strpnew('Value: '+tostr(a))));
{$endif EXTDEBUG} {$endif EXTDEBUG}
list.concat(taicpu.op_reg_reg_const(A_ADDMI,dst,src,Smallint(a and $ff00))); list.concat(taicpu.op_reg_reg_const(A_ADDMI,dst,src,Smallint((a+128) and $ff00)));
list.concat(taicpu.op_reg_reg_const(A_ADDI,dst,dst,Shortint(a and $ff))); list.concat(taicpu.op_reg_reg_const(A_ADDI,dst,dst,Shortint(a and $ff)));
end end
else if (op=OP_SUB) and (a>=-127) and (a<=128) then else if (op=OP_SUB) and (a>=-127) and (a<=128) then
@ -510,7 +510,7 @@ implementation
list.concat(tai_comment.Create(strpnew('Value: '+tostr(a)))); list.concat(tai_comment.Create(strpnew('Value: '+tostr(a))));
{$endif EXTDEBUG} {$endif EXTDEBUG}
a:=-a; a:=-a;
list.concat(taicpu.op_reg_reg_const(A_ADDMI,dst,src,Smallint(a and $ff00))); list.concat(taicpu.op_reg_reg_const(A_ADDMI,dst,src,Smallint((a+128) and $ff00)));
list.concat(taicpu.op_reg_reg_const(A_ADDI,dst,dst,Shortint(a and $ff))); list.concat(taicpu.op_reg_reg_const(A_ADDI,dst,dst,Shortint(a and $ff)));
end end
else if (op=OP_SHL) and (a>=1) and (a<=31) then else if (op=OP_SHL) and (a>=1) and (a<=31) then