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

* some ALLOWDUPREG improvements

Browse Source
This commit is contained in:
Jonas Maebe 2003-10-29 21:29:14 +00:00
parent 0cac29ec76
commit cf8b181ff2
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/rgobj.pas
View File

@ -667,6 +667,8 @@ implementation
else else
{$ifndef ALLOWDUPREG} {$ifndef ALLOWDUPREG}
internalerror(200301103) internalerror(200301103)
{$else ALLOWDUPREG}
list.concat(Tai_regalloc.alloc(r));
{$endif ALLOWDUPREG} {$endif ALLOWDUPREG}
; ;
end; end;
@ -693,6 +695,8 @@ implementation
else else
{$ifndef ALLOWDUPREG} {$ifndef ALLOWDUPREG}
internalerror(200305061) internalerror(200305061)
{$else ALLOWDUPREG}
list.concat(Tai_regalloc.alloc(reg));
{$endif ALLOWDUPREG} {$endif ALLOWDUPREG}
; ;
end; end;
@ -714,7 +718,11 @@ implementation
end; end;
end end
else else
{$ifndef ALLOWDUPREG}
internalerror(200305061); internalerror(200305061);
{$else ALLOWDUPREG}
list.concat(Tai_regalloc.dealloc(reg));
{$endif ALLOWDUPREG}
end; end;
@ -1796,7 +1804,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.91 2003-10-21 15:15:36 peter Revision 1.92 2003-10-29 21:29:14 jonas
* some ALLOWDUPREG improvements
Revision 1.91 2003/10/21 15:15:36 peter
* taicpu_abstract.oper[] changed to pointers * taicpu_abstract.oper[] changed to pointers
Revision 1.90 2003/10/19 12:36:36 florian Revision 1.90 2003/10/19 12:36:36 florian