From da74a9fea6cc37e79002310f0f9f15c210e30fb4 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Sun, 28 Dec 2003 16:20:09 +0000 Subject: [PATCH] - removed unused methods from old generic spilling code --- compiler/aasmtai.pas | 7 ++-- compiler/arm/aasmcpu.pas | 35 ++-------------- compiler/sparc/aasmcpu.pas | 82 ++------------------------------------ 3 files changed, 12 insertions(+), 112 deletions(-) diff --git a/compiler/aasmtai.pas b/compiler/aasmtai.pas index 055babf38a..7a592eef3b 100644 --- a/compiler/aasmtai.pas +++ b/compiler/aasmtai.pas @@ -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 diff --git a/compiler/arm/aasmcpu.pas b/compiler/arm/aasmcpu.pas index 8c18a3c511..d5c4ac682c 100644 --- a/compiler/arm/aasmcpu.pas +++ b/compiler/arm/aasmcpu.pas @@ -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 diff --git a/compiler/sparc/aasmcpu.pas b/compiler/sparc/aasmcpu.pas index 088296dad9..4759d34d59 100644 --- a/compiler/sparc/aasmcpu.pas +++ b/compiler/sparc/aasmcpu.pas @@ -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