paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* integer registers must have the size R_SUBWHOLE for sparc, resolves issue #32065

Browse Source 
git-svn-id: trunk@36639 -
This commit is contained in:
florian 2017-07-03 20:49:06 +00:00
parent 28cfa838b5
commit 57a137068b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/sparcgen/cgsparc.pas
View File

@ -284,7 +284,7 @@ implementation
begin begin
inherited init_register_allocators; inherited init_register_allocators;
rg[R_INTREGISTER]:=Trgcpu.create(R_INTREGISTER,R_SUBD, rg[R_INTREGISTER]:=Trgcpu.create(R_INTREGISTER,R_SUBWHOLE,
[RS_O0,RS_O1,RS_O2,RS_O3,RS_O4,RS_O5,RS_O7, [RS_O0,RS_O1,RS_O2,RS_O3,RS_O4,RS_O5,RS_O7,
RS_L0,RS_L1,RS_L2,RS_L3,RS_L4,RS_L5,RS_L6,RS_L7, RS_L0,RS_L1,RS_L2,RS_L3,RS_L4,RS_L5,RS_L6,RS_L7,
RS_I0,RS_I1,RS_I2,RS_I3,RS_I4,RS_I5], RS_I0,RS_I1,RS_I2,RS_I3,RS_I4,RS_I5],

2
compiler/sparcgen/itcpugas.pas
View File

@ -95,7 +95,7 @@ implementation
R_SUBFD: R_SUBFD:
setsubreg(hr,R_SUBFS); setsubreg(hr,R_SUBFS);
R_SUBL,R_SUBW,R_SUBD,R_SUBQ: R_SUBL,R_SUBW,R_SUBD,R_SUBQ:
setsubreg(hr,R_SUBD); setsubreg(hr,R_SUBWHOLE);
end; end;
p:=findreg_by_number(hr); p:=findreg_by_number(hr);
if p<>0 then if p<>0 then