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

* make internal error unique

Browse Source 
* add MULU and MULS to taicpu.get_spilling_operation_type

git-svn-id: trunk@22746 -
This commit is contained in:
svenbarth 2012-10-18 20:12:16 +00:00
parent ff0eebf1ff
commit d9a61f2082
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aasmtai.pas
View File

@ -2464,14 +2464,14 @@ implementation
{ When the generic RA is used this needs to be overridden, we don't use { When the generic RA is used this needs to be overridden, we don't use
virtual;abstract; to prevent a lot of warnings of unimplemented abstract methods virtual;abstract; to prevent a lot of warnings of unimplemented abstract methods
when tai_cpu is created (PFV) } when tai_cpu is created (PFV) }
internalerror(200404091); internalerror(2004040901);
result:=false; result:=false;
end; end;
function tai_cpu_abstract.spilling_get_operation_type(opnr: longint): topertype; function tai_cpu_abstract.spilling_get_operation_type(opnr: longint): topertype;
begin begin
internalerror(200404091); internalerror(2004040902);
result:=operand_readwrite; result:=operand_readwrite;
end; end;

5
compiler/m68k/aasmcpu.pas
View File

@ -513,7 +513,8 @@ type
begin begin
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:
if opnr=1 then begin if opnr=1 then begin
result:=operand_write; result:=operand_write;
end else begin end else begin
@ -528,7 +529,7 @@ type
else begin else begin
{ TODO: FIX ME!!! remove ugly debug code ... } { TODO: FIX ME!!! remove ugly debug code ... }
writeln('M68K: unknown opcode when spilling: ',gas_op2str[opcode]); writeln('M68K: unknown opcode when spilling: ',gas_op2str[opcode]);
internalerror(200404091); internalerror(2004040903);
end; end;
end; end;
end; end;