diff --git a/compiler/aasmtai.pas b/compiler/aasmtai.pas index 67d84f7288..8e97a20e6a 100644 --- a/compiler/aasmtai.pas +++ b/compiler/aasmtai.pas @@ -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; diff --git a/compiler/m68k/aasmcpu.pas b/compiler/m68k/aasmcpu.pas index 9aab382efa..7868135b15 100644 --- a/compiler/m68k/aasmcpu.pas +++ b/compiler/m68k/aasmcpu.pas @@ -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;