paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 19:02:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed unused methods from old generic spilling code

Browse Source
This commit is contained in:
Jonas Maebe 2003-12-28 16:20:09 +00:00
parent 6bab64590e
commit da74a9fea6
3 changed files with 12 additions and 112 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/aasmtai.pas
View File

@ -497,8 +497,6 @@ interface
const r:tsuperregisterset;
var live_registers_int:Tsuperregisterworklist;
const spilltemplist:Tspill_temp_list):boolean;virtual;
function spilling_decode_loadstore(op: tasmop; var counterpart: tasmop; var wasload: boolean): boolean;virtual;abstract;
function spilling_create_loadstore(op: tasmop; r:tregister; const ref:treference): tai;virtual;abstract;
function spilling_create_load(const ref:treference;r:tregister): tai;virtual;abstract;
function spilling_create_store(r:tregister; const ref:treference): tai;virtual;abstract;
function spilling_get_operation_type(opnr: longint): topertype;virtual;abstract;
@ -2210,7 +2208,10 @@ implementation
end.
{
$Log$
Revision 1.62 2003-12-26 14:02:30 peter
Revision 1.63 2003-12-28 16:20:09 jonas
- removed unused methods from old generic spilling code
Revision 1.62 2003/12/26 14:02:30 peter
* sparc updates
* use registertype in spill_register

35
compiler/arm/aasmcpu.pas
View File

@ -72,8 +72,6 @@ uses
function is_reg_move:boolean; override;
{ register spilling code }
function spilling_decode_loadstore(op: tasmop; var counterpart: tasmop; var wasload: boolean): boolean;override;
function spilling_create_loadstore(op: tasmop; r:tregister; const ref:treference): tai;override;
function spilling_create_load(const ref:treference;r:tregister): tai;override;
function spilling_create_store(r:tregister; const ref:treference): tai;override;
@ -300,34 +298,6 @@ implementation
end;
function taicpu.spilling_decode_loadstore(op: tasmop; var counterpart: tasmop; var wasload: boolean): boolean;
begin
result := true;
wasload := true;
case op of
A_LDR:
begin
counterpart := A_STR;
end;
A_STR:
begin
wasload:=false;
counterpart := A_LDR;
end;
A_LDM:
internalerror(2003070602);
else
result := false;
end;
end;
function taicpu.spilling_create_loadstore(op: tasmop; r:tregister; const ref:treference): tai;
begin
result:=taicpu.op_reg_ref(opcode,r,ref);
end;
function taicpu.spilling_create_load(const ref:treference;r:tregister): tai;
begin
result:=taicpu.op_reg_ref(A_LDR,r,ref);
@ -374,7 +344,10 @@ implementation
end.
{
$Log$
Revision 1.19 2003-12-26 14:02:30 peter
Revision 1.20 2003-12-28 16:20:09 jonas
- removed unused methods from old generic spilling code
Revision 1.19 2003/12/26 14:02:30 peter
* sparc updates
* use registertype in spill_register

82
compiler/sparc/aasmcpu.pas
View File

@ -66,8 +66,6 @@ uses
{ register spilling code }
function spilling_get_operation_type(opnr: longint): topertype;override;
function spilling_decode_loadstore(op: tasmop; var counterpart: tasmop; var wasload: boolean): boolean;override;
function spilling_create_loadstore(op: tasmop; r:tregister; const ref:treference): tai;override;
function spilling_create_load(const ref:treference;r:tregister): tai;override;
function spilling_create_store(r:tregister; const ref:treference): tai;override;
end;
@ -254,81 +252,6 @@ implementation
end;
function taicpu.spilling_decode_loadstore(op: tasmop; var counterpart: tasmop; var wasload: boolean): boolean;
begin
result := true;
wasload := true;
case op of
A_LDSB,
A_LDUB :
begin
counterpart := A_STB;
end;
A_LDSH,
A_LDUH:
begin
counterpart := A_STH;
end;
A_LD :
begin
counterpart := A_ST;
wasload := false;
end;
A_LDD:
begin
counterpart := A_STD;
wasload := false;
end;
A_STB:
begin
counterpart := A_LDUB;
end;
A_STH:
begin
counterpart := A_LDUH;
end;
A_ST :
begin
counterpart := A_LD;
wasload := false;
end;
A_STD:
begin
counterpart := A_LDD;
wasload := false;
end;
A_LDF:
begin
counterpart := A_STF;
wasload := false;
end;
A_LDDF:
begin
counterpart := A_STDF;
wasload := false;
end;
A_STF:
begin
counterpart := A_LDF;
wasload := false;
end;
A_STDF:
begin
counterpart := A_LDDF;
wasload := false;
end;
else
result := false;
end;
end;
function taicpu.spilling_create_loadstore(op: tasmop; r:tregister; const ref:treference): tai;
begin
result:=taicpu.op_reg_ref(opcode,r,ref);
end;
function taicpu.spilling_create_load(const ref:treference;r:tregister): tai;
begin
result:=taicpu.op_ref_reg(A_LD,ref,r);
@ -353,7 +276,10 @@ implementation
end.
{
$Log$
Revision 1.39 2003-12-26 14:02:30 peter
Revision 1.40 2003-12-28 16:20:09 jonas
- removed unused methods from old generic spilling code
Revision 1.39 2003/12/26 14:02:30 peter
* sparc updates
* use registertype in spill_register