paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 16:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed offsets used by stmw/lmw

Browse Source 
git-svn-id: trunk@2084 -
This commit is contained in:
Jonas Maebe 2005-12-30 23:50:37 +00:00
parent f8c25e9905
commit 6c30925e04
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/powerpc/cgcpu.pas
View File

@ -1154,7 +1154,7 @@ const
{ with RS_R30 it's also already smaller, but too big a speed trade-off to make }
(firstregint <= RS_R29)) then
begin
dec(href.offset,(RS_R31-firstregint+1)*sizeof(aint));
dec(href.offset,(RS_R31-firstregint)*sizeof(aint));
list.concat(taicpu.op_reg_ref(A_STMW,newreg(R_INTREGISTER,firstregint,R_SUBNONE),href));
end
else
@ -1296,7 +1296,7 @@ const
{ with RS_R30 it's also already smaller, but too big a speed trade-off to make }
(firstregint <= RS_R29)) then
begin
dec(href.offset,(RS_R31-firstregint+1)*sizeof(aint));
dec(href.offset,(RS_R31-firstregint)*sizeof(aint));
list.concat(taicpu.op_reg_ref(A_LMW,newreg(R_INTREGISTER,firstregint,R_SUBNONE),href));
end
else