paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 10:18:32 +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
virtual;abstract; to prevent a lot of warnings of unimplemented abstract methods
when tai_cpu is created (PFV) }
internalerror(200404091);
internalerror(2004040901);
result:=false;
end;
function tai_cpu_abstract.spilling_get_operation_type(opnr: longint): topertype;
begin
internalerror(200404091);
internalerror(2004040902);
result:=operand_readwrite;
end;

5
compiler/m68k/aasmcpu.pas
View File

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