paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-02 13:49:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k: implement taicpu.spilling_get_operation_type_ref, supports predecrement/postincrement addressing

Browse Source 
git-svn-id: trunk@29593 -
This commit is contained in:
Károly Balogh 2015-02-01 15:28:54 +00:00
parent a436dafd68
commit 460c4acaee
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/m68k/aasmcpu.pas
View File

@ -87,6 +87,7 @@ type
function is_same_reg_move(regtype: Tregistertype):boolean;override; function is_same_reg_move(regtype: Tregistertype):boolean;override;
function spilling_get_operation_type(opnr: longint): topertype;override; function spilling_get_operation_type(opnr: longint): topertype;override;
function spilling_get_operation_type_ref(opnr: longint; reg: tregister): topertype;override;
private private
procedure init(_size : topsize); { this need to be called by all constructor } procedure init(_size : topsize); { this need to be called by all constructor }
@ -501,6 +502,13 @@ type
end; end;
end; end;
function taicpu.spilling_get_operation_type_ref(opnr: longint; reg: tregister): topertype;
begin
result := operand_read;
if (oper[opnr]^.ref^.base = reg) and
(oper[opnr]^.ref^.direction <> dir_none) then
result := operand_readwrite;
end;
function spilling_create_load(const ref:treference;r:tregister):Taicpu; function spilling_create_load(const ref:treference;r:tregister):Taicpu;
begin begin