paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-11 22:50:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* during translation only process regalloc for the current regtype

Browse Source
This commit is contained in:
peter 2004-10-24 17:04:01 +00:00
parent 94caa0761e
commit 30be9e8e5d
1 changed files with 35 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/rgobj.pas
View File

@ -1524,6 +1524,8 @@ unit rgobj;
case p.typ of
ait_regalloc:
with Tai_regalloc(p) do
begin
if (getregtype(reg)=regtype) then
begin
{ Only alloc/dealloc is needed for the optimizer, remove
other regalloc }
@ -1537,7 +1539,6 @@ unit rgobj;
end
else
begin
if (getregtype(reg)=regtype) then
setsupreg(reg,reginfo[getsupreg(reg)].colour);
{
Remove sequences of release and
@ -1564,6 +1565,7 @@ unit rgobj;
end;
end;
end;
end;
ait_instruction:
with Taicpu(p) do
begin
@ -1992,7 +1994,10 @@ unit rgobj;
end.
{
$Log$
Revision 1.143 2004-10-15 09:14:17 mazen
Revision 1.144 2004-10-24 17:04:01 peter
* during translation only process regalloc for the current regtype
Revision 1.143 2004/10/15 09:14:17 mazen
- remove $IFDEF DELPHI and related code
- remove $IFDEF FPCPROCVAR and related code