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

* fixed crash

Browse Source
This commit is contained in:
peter 2004-09-28 20:19:36 +00:00
parent 61172d8471
commit 0af84db9cf
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/sparc/rgcpu.pas
View File

@ -49,13 +49,11 @@ implementation
uses
verbose, cutils,
cgutils,cgobj,
procinfo;
cgutils,cgobj;
procedure trgcpu.add_constraints(reg:tregister);
var
supreg,i: Tsuperregister;
r: Tregister;
supreg,i : Tsuperregister;
begin
case getsubreg(reg) of
{ Let 64bit floats conflict with all odd float regs }
@ -94,12 +92,11 @@ implementation
procedure trgcpu.do_spill_read(list : taasmoutput;instr : taicpu;pos: tai; regidx: word;
const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo);
const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo);
var
helpins: tai;
tmpref,ref : treference;
helplist : taasmoutput;
l : tasmlabel;
tmpreg : tregister;
begin
ref:=spilltemplist[regs[regidx].orgreg];
@ -146,12 +143,11 @@ implementation
procedure trgcpu.do_spill_written(list : taasmoutput;instr : taicpu;pos: tai; regidx: word;
const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo);
const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo);
var
helpins: tai;
ref,tmpref : treference;
helplist : taasmoutput;
l : tasmlabel;
tmpreg : tregister;
begin
ref:=spilltemplist[regs[regidx].orgreg];
@ -177,14 +173,15 @@ implementation
ref.index:=tmpreg;
ref.offset:=0;
helplist.concat(spilling_create_store(regs[regidx].tempreg,ref));
helpins:=spilling_create_store(regs[regidx].tempreg,ref);
helplist.concat(helpins);
list.insertlistafter(instr,helplist);
helplist.free;
ungetregisterinline(list,tai(helplist.last),regs[regidx].tempreg);
ungetregisterinline(list,helpins,regs[regidx].tempreg);
if getregtype(regs[regidx].tempreg)=R_INTREGISTER then
ungetregisterinline(list,tai(helplist.last),tmpreg);
ungetregisterinline(list,helpins,tmpreg);
end
else
inherited do_spill_written(list,instr,pos,regidx,spilltemplist,regs);
@ -197,7 +194,7 @@ implementation
helpins1, helpins2: tai;
tmpref,ref : treference;
helplist : taasmoutput;
tmpreg : tregister;
tmpreg : tregister;
begin
ref:=spilltemplist[regs[regidx].orgreg];
if abs(ref.offset)>4095 then
@ -246,7 +243,10 @@ implementation
end.
{
$Log$
Revision 1.25 2004-09-27 21:23:26 peter
Revision 1.26 2004-09-28 20:19:36 peter
* fixed crash
Revision 1.25 2004/09/27 21:23:26 peter
* fixed spilling code
Revision 1.24 2004/08/24 21:02:33 florian