paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 20:57:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* another fix to a_load_ref_reg()

Browse Source 
+ implemented uses_registers() method
This commit is contained in:
Jonas Maebe 2003-12-06 22:13:53 +00:00
parent 062e03528e
commit 30cf6be249
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/powerpc/cgcpu.pas
View File

@ -51,6 +51,7 @@ unit cgcpu;
procedure do_register_allocation(list:Taasmoutput;headertai:tai);override; procedure do_register_allocation(list:Taasmoutput;headertai:tai);override;
procedure allocexplicitregisters(list:Taasmoutput;rt:Tregistertype;r:Tcpuregisterset);override; procedure allocexplicitregisters(list:Taasmoutput;rt:Tregistertype;r:Tcpuregisterset);override;
procedure deallocexplicitregisters(list:Taasmoutput;rt:Tregistertype;r:Tcpuregisterset);override; procedure deallocexplicitregisters(list:Taasmoutput;rt:Tregistertype;r:Tcpuregisterset);override;
function uses_registers(rt:Tregistertype):boolean;override;
{ passing parameters, per default the parameter is pushed } { passing parameters, per default the parameter is pushed }
{ nr gives the number of the parameter (enumerated from } { nr gives the number of the parameter (enumerated from }
@ -291,6 +292,21 @@ const
end; end;
function tcgppc.uses_registers(rt:Tregistertype):boolean;
begin
case rt of
R_INTREGISTER :
result:=rgint.uses_registers;
R_MMREGISTER :
result:=rgmm.uses_registers;
R_FPUREGISTER :
result:=rgfpu.uses_registers;
else
internalerror(200310094);
end;
end;
procedure tcgppc.add_move_instruction(instr:Taicpu); procedure tcgppc.add_move_instruction(instr:Taicpu);
begin begin
rgint.add_move_instruction(instr); rgint.add_move_instruction(instr);
@ -523,7 +539,7 @@ const
freereg := fixref(list,ref2); freereg := fixref(list,ref2);
{ the caller is expected to have adjusted the reference already } { the caller is expected to have adjusted the reference already }
{ in this case } { in this case }
if (TCGSize2Size[fromsize] > TCGSize2Size[tosize]) then if (TCGSize2Size[fromsize] >= TCGSize2Size[tosize]) then
fromsize := tosize; fromsize := tosize;
op := loadinstr[fromsize,ref2.index<>NR_NO,false]; op := loadinstr[fromsize,ref2.index<>NR_NO,false];
a_load_store(list,op,reg,ref2); a_load_store(list,op,reg,ref2);
@ -2451,7 +2467,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.141 2003-12-05 22:53:28 jonas Revision 1.142 2003-12-06 22:13:53 jonas
* another fix to a_load_ref_reg()
+ implemented uses_registers() method
Revision 1.141 2003/12/05 22:53:28 jonas
* fixed load_ref_reg for source > dest size * fixed load_ref_reg for source > dest size
Revision 1.140 2003/12/04 20:37:02 jonas Revision 1.140 2003/12/04 20:37:02 jonas