paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-12 05:05:36 +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 case p.typ of
ait_regalloc: ait_regalloc:
with Tai_regalloc(p) do with Tai_regalloc(p) do
begin
if (getregtype(reg)=regtype) then
begin begin
{ Only alloc/dealloc is needed for the optimizer, remove { Only alloc/dealloc is needed for the optimizer, remove
other regalloc } other regalloc }
@ -1537,7 +1539,6 @@ unit rgobj;
end end
else else
begin begin
if (getregtype(reg)=regtype) then
setsupreg(reg,reginfo[getsupreg(reg)].colour); setsupreg(reg,reginfo[getsupreg(reg)].colour);
{ {
Remove sequences of release and Remove sequences of release and
@ -1564,6 +1565,7 @@ unit rgobj;
end; end;
end; end;
end; end;
end;
ait_instruction: ait_instruction:
with Taicpu(p) do with Taicpu(p) do
begin begin
@ -1992,7 +1994,10 @@ unit rgobj;
end. end.
{ {
$Log$ $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 DELPHI and related code
- remove $IFDEF FPCPROCVAR and related code - remove $IFDEF FPCPROCVAR and related code