paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 03:04:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

m68k: more FMOVEM.X store/load size fixes

Browse Source 
git-svn-id: trunk@30062 -
This commit is contained in:
Károly Balogh 2015-03-02 02:55:23 +00:00
parent acaf382ea0
commit 106056f462
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/m68k/cgcpu.pas
View File

@ -1840,7 +1840,7 @@ unit cgcpu;
if saved_fpu_registers[r] in rg[R_FPUREGISTER].used_in_proc then if saved_fpu_registers[r] in rg[R_FPUREGISTER].used_in_proc then
begin begin
hfreg:=newreg(R_FPUREGISTER,saved_fpu_registers[r],R_SUBWHOLE); hfreg:=newreg(R_FPUREGISTER,saved_fpu_registers[r],R_SUBWHOLE);
inc(fsize,10{sizeof(extended)}); inc(fsize,12{sizeof(extended)});
fpuregs:=fpuregs + [saved_fpu_registers[r]]; fpuregs:=fpuregs + [saved_fpu_registers[r]];
end; end;
@ -1961,7 +1961,7 @@ unit cgcpu;
begin begin
{ size is always longword aligned, while fsize is not } { size is always longword aligned, while fsize is not }
inc(href.offset,size); inc(href.offset,size);
if fsize = 10{sizeof(extended)} then if fsize = 12{sizeof(extended)} then
list.concat(taicpu.op_ref_reg(A_FMOVE,S_FX,href,hfreg)) list.concat(taicpu.op_ref_reg(A_FMOVE,S_FX,href,hfreg))
else else
list.concat(taicpu.op_ref_regset(A_FMOVEM,S_FX,href,[],[],fpuregs)); list.concat(taicpu.op_ref_regset(A_FMOVEM,S_FX,href,[],[],fpuregs));