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

* Fixed the stack parameters optimization (r46776) for big endian CPUs.

Browse Source 
git-svn-id: trunk@46794 -
This commit is contained in:
yury 2020-09-07 12:54:20 +00:00
parent e50916a93c
commit 60c23daa91
2 changed files with 48 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
compiler/ncgutil.pas
View File

@ -594,26 +594,59 @@ implementation
paraloc: PCGParalocation;
loc: tlocation;
regtype: tregistertype;
reg: tregister;
size: tcgint;
reg,reg2: tregister;
size,regsize: tcgint;
begin
tparavarsym(sym).paraloc[calleeside].get_location(loc);
size:=tparavarsym(sym).paraloc[calleeside].IntSize;
paraloc:=tparavarsym(sym).paraloc[calleeside].Location;
reg:=sym.initialloc.register;
{$if defined(cpu64bitalu)}
if sym.initialloc.size in [OS_128,OS_S128] then
{$else}
if sym.initialloc.size in [OS_64,OS_S64] then
{$endif defined(cpu64bitalu)}
begin
if target_info.endian=endian_little then
begin
reg:=sym.initialloc.register;
reg2:=sym.initialloc.registerhi;
end
else
begin
reg:=sym.initialloc.registerhi;
reg2:=sym.initialloc.register;
end;
end
else
begin
reg:=sym.initialloc.register;
reg2:=NR_NO;
end;
regtype:=getregtype(reg);
repeat
loc.reference.offset:=paraloc^.reference.offset;
cg.rg[regtype].set_reg_initial_location(reg,loc.reference);
dec(size,tcgsize2size[paraloc^.Size]);
while true do
begin
cg.rg[regtype].set_reg_initial_location(reg,loc.reference);
regsize:=tcgsize2size[reg_cgsize(reg)];
dec(size,regsize);
if size<=0 then
break;
if paraloc<>nil then
paraloc:=paraloc^.Next;
if paraloc<>nil then
loc.reference.offset:=paraloc^.reference.offset
else
inc(loc.reference.offset,regsize);
{$if defined(cpu8bitalu) or defined(cpu16bitalu)}
if cg.has_next_reg[getsupreg(reg)] then
reg:=cg.GetNextReg(reg)
else
if cg.has_next_reg[getsupreg(reg)] then
reg:=cg.GetNextReg(reg)
else
{$endif}
reg:=sym.initialloc.registerhi;
paraloc:=paraloc^.Next;
until size=0;
begin
if reg=reg2 then
internalerror(2020090502);
reg:=reg2;
end;
end;
end;
var
@ -705,7 +738,7 @@ implementation
{ Notify the register allocator about memory location of
the register which holds a value of a stack parameter }
if (sym.typ=paravarsym) and
(tparavarsym(sym).paraloc[calleeside].Location^.Loc=LOC_REFERENCE) then
paramanager.param_use_paraloc(tparavarsym(sym).paraloc[calleeside]) then
set_para_regvar_initial_location;
end;

2
compiler/rgobj.pas
View File

@ -2136,7 +2136,7 @@ unit rgobj;
supreg: TSuperRegister;
begin
supreg:=getsupreg(reg);
if supreg>=maxreg then
if (supreg<first_imaginary) or (supreg>=maxreg) then
internalerror(2020090501);
alloc_spillinfo(supreg+1);
spillinfo[supreg].spilllocation:=ref;