mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 20:09:20 +02:00
* make sure all registers except r0 are handled by the register
allocator for -dnewra
This commit is contained in:
parent
acb3078279
commit
cc6a8fbe91
@ -62,7 +62,7 @@ unit rgcpu;
|
|||||||
function trgcpu.getexplicitregisterint(list: taasmoutput; reg: Tnewregister): tregister;
|
function trgcpu.getexplicitregisterint(list: taasmoutput; reg: Tnewregister): tregister;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
if ((reg shr 8) in [RS_R0,RS_R2..RS_R12]) and
|
if ((reg shr 8) in [RS_R0{$ifndef newra},RS_R2..RS_R12{$endif}]) and
|
||||||
not((reg shr 8) in is_reg_var_int) then
|
not((reg shr 8) in is_reg_var_int) then
|
||||||
begin
|
begin
|
||||||
if (reg shr 8) in usedpararegs then
|
if (reg shr 8) in usedpararegs then
|
||||||
@ -80,7 +80,7 @@ unit rgcpu;
|
|||||||
procedure trgcpu.ungetregisterint(list: taasmoutput; reg: tregister);
|
procedure trgcpu.ungetregisterint(list: taasmoutput; reg: tregister);
|
||||||
|
|
||||||
begin
|
begin
|
||||||
if ((reg.number shr 8) in [RS_R0,RS_R2..RS_R12]) and
|
if ((reg.number shr 8) in [RS_R0{$ifndef newra},RS_R2..RS_R12{$endif newra}]) and
|
||||||
not((reg.number shr 8) in is_reg_var_int) then
|
not((reg.number shr 8) in is_reg_var_int) then
|
||||||
begin
|
begin
|
||||||
if not((reg.number shr 8) in usedpararegs) then
|
if not((reg.number shr 8) in usedpararegs) then
|
||||||
@ -163,7 +163,11 @@ end.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.12 2003-06-17 16:34:44 jonas
|
Revision 1.13 2003-07-06 15:27:44 jonas
|
||||||
|
* make sure all registers except r0 are handled by the register
|
||||||
|
allocator for -dnewra
|
||||||
|
|
||||||
|
Revision 1.12 2003/06/17 16:34:44 jonas
|
||||||
* lots of newra fixes (need getfuncretparaloc implementation for i386)!
|
* lots of newra fixes (need getfuncretparaloc implementation for i386)!
|
||||||
* renamed all_intregisters to volatile_intregisters and made it
|
* renamed all_intregisters to volatile_intregisters and made it
|
||||||
processor dependent
|
processor dependent
|
||||||
|
Loading…
Reference in New Issue
Block a user