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

* Failed attempt to restore broken fastspill functionality

Browse Source
This commit is contained in:
daniel 2003-09-10 19:14:31 +00:00
parent 305226dd23
commit 079751b894
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/psub.pas
View File

@ -584,6 +584,7 @@ implementation
usesfpu,
usesacchi : boolean;
spillingcounter : integer;
fastspill:boolean;
begin
{ the initialization procedure can be empty, then we
don't need to generate anything. When it was an empty
@ -692,14 +693,15 @@ implementation
rg.prepare_colouring;
rg.colour_registers;
rg.epilogue_colouring;
fastspill:=true;
if rg.spillednodes<>'' then
begin
inc(spillingcounter);
if spillingcounter>maxspillingcounter then
internalerror(200309041);
rg.spill_registers(aktproccode,rg.spillednodes);
fastspill:=rg.spill_registers(aktproccode,rg.spillednodes);
end;
until rg.spillednodes='';
until (rg.spillednodes=''){ or not fastspill};
aktproccode.translate_registers(rg.colour);
(*
{$ifndef NoOpt}
@ -1315,7 +1317,10 @@ begin
end.
{
$Log$
Revision 1.144 2003-09-09 20:59:27 daniel
Revision 1.145 2003-09-10 19:14:31 daniel
* Failed attempt to restore broken fastspill functionality
Revision 1.144 2003/09/09 20:59:27 daniel
* Adding register allocation order
Revision 1.143 2003/09/09 15:55:44 peter

6
compiler/x86/aasmcpu.pas
View File

@ -2160,6 +2160,7 @@ implementation
imul r22d,r21d ; Replace reference by helpregister
mov [ebp-12],r22d ; Use another help instruction}
rgget(list,Tai(previous),subreg,helpreg);
spill_registers:=true;
{First help instruction.}
helpins:=Taicpu.op_ref_reg(A_MOV,opsize,oper[1].ref^,helpreg);
if previous=nil then
@ -2233,7 +2234,10 @@ implementation
end.
{
$Log$
Revision 1.20 2003-09-10 11:23:09 marco
Revision 1.21 2003-09-10 19:14:31 daniel
* Failed attempt to restore broken fastspill functionality
Revision 1.20 2003/09/10 11:23:09 marco
* fix from peter for bts reg32,mem32 problem
Revision 1.19 2003/09/09 12:54:45 florian