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

Add some missing instructions to spilling_get_operation_type method

Browse Source 
git-svn-id: trunk@22760 -
This commit is contained in:
pierre 2012-10-19 10:18:16 +00:00
parent d472b40149
commit b104d9c9e6
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/m68k/aasmcpu.pas
View File

@ -514,12 +514,18 @@ type
case opcode of case opcode of
A_MOVE, A_MOVEQ, A_ADD, A_ADDQ, A_ADDX, A_SUB, A_SUBQ, A_SUBX, A_MOVE, A_MOVEQ, A_ADD, A_ADDQ, A_ADDX, A_SUB, A_SUBQ, A_SUBX,
A_AND, A_LSR, A_LSL, A_ASR, A_ASL, A_EOR, A_EORI, A_OR, A_AND, A_LSR, A_LSL, A_ASR, A_ASL, A_EOR, A_EORI, A_OR,
A_MULS, A_MULU: A_MULS, A_MULU, A_DIVS, A_DIVU, A_DIVSL, A_DIVUL:
if opnr=1 then begin if opnr=1 then begin
result:=operand_write; result:=operand_write;
end else begin end else begin
result:=operand_read; result:=operand_read;
end; end;
A_DBRA:
if opnr=1 then begin
result:=operand_readwrite;
end else begin
result:=operand_read;
end;
A_TST,A_CMP,A_CMPI: A_TST,A_CMP,A_CMPI:
result:=operand_read; result:=operand_read;
A_CLR, A_SXX: A_CLR, A_SXX: