paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 16:38:29 +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
{$ifndef ALLOWDUPREG}
internalerror(200301103)
{$else ALLOWDUPREG}
list.concat(Tai_regalloc.alloc(r));
{$endif ALLOWDUPREG}
;
end;
@ -693,6 +695,8 @@ implementation
else
{$ifndef ALLOWDUPREG}
internalerror(200305061)
{$else ALLOWDUPREG}
list.concat(Tai_regalloc.alloc(reg));
{$endif ALLOWDUPREG}
;
end;
@ -714,7 +718,11 @@ implementation
end;
end
else
{$ifndef ALLOWDUPREG}
internalerror(200305061);
{$else ALLOWDUPREG}
list.concat(Tai_regalloc.dealloc(reg));
{$endif ALLOWDUPREG}
end;
@ -1796,7 +1804,10 @@ implementation
end.
{
$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
Revision 1.90 2003/10/19 12:36:36 florian