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

fixed spilling operation type for lots of operations (thanks Florian), fixes a few endless loops in the testsuite, at least

Browse Source 
git-svn-id: trunk@25696 -
This commit is contained in:
Károly Balogh 2013-10-06 16:51:39 +00:00
parent 6d83c37da1
commit b1b90211f1
1 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/m68k/aasmcpu.pas
View File

@ -511,28 +511,27 @@ type
function taicpu.spilling_get_operation_type(opnr: longint): topertype;
begin
result:=operand_read;
case opcode of
A_MOVE, A_MOVEQ, A_ADD, A_ADDQ, A_ADDX, A_SUB, A_SUBQ, A_SUBX,
A_MOVE, A_MOVEQ, A_MOVEA:
if opnr=1 then
result:=operand_write;
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_MULS, A_MULU, A_DIVS, A_DIVU, A_DIVSL, A_DIVUL:
if opnr=1 then begin
result:=operand_write;
end else begin
result:=operand_read;
end;
A_DBRA:
if opnr=1 then begin
if opnr=1 then
result:=operand_readwrite;
A_DBRA:
if opnr=0 then
result:=operand_readwrite;
end else begin
result:=operand_read;
end;
A_TST,A_CMP,A_CMPI:
result:=operand_read;
A_CLR, A_SXX, A_SEQ, A_SNE, A_SLT, A_SLE, A_SGT, A_SGE, A_SCS, A_SCC,
A_SMI, A_SPL, A_SF, A_ST, A_SVS, A_SVC, A_SHI, A_SLS:
result:=operand_write;
A_NEG, A_EXT, A_EXTB, A_NOT, A_NEGX:
A_NEG, A_NEGX, A_EXT, A_EXTB, A_NOT:
result:=operand_readwrite;
A_TST,A_CMP,A_CMPI:
begin end; { Do nothing, default operand_read is fine here. }
else begin
{ TODO: FIX ME!!! remove ugly debug code ... }
writeln('M68K: unknown opcode when spilling: ',gas_op2str[opcode]);