paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 23:30:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Disable range check for m68k/aoptcpu unit

Browse Source 
* Add missing change of var parameter p to next instruction
    in TryToOptimizeMove method after instruction removal.

git-svn-id: trunk@40324 -
This commit is contained in:
pierre 2018-11-16 10:27:42 +00:00
parent 11851d274c
commit 2761448f44
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/m68k/aoptcpu.pas
View File

@ -49,6 +49,9 @@ unit aoptcpu;
uses
cutils, aasmcpu, cgutils, globals, verbose, cpuinfo, itcpugas;
{ Range check must be disabled explicitly as conversions between signed and unsigned
32-bit values are done without explicit typecasts }
{$R-}
function opname(var p: tai): string;
begin
@ -163,8 +166,10 @@ unit aoptcpu;
if MatchOperand(taicpu(p).oper[0]^,taicpu(p).oper[1]^) then
begin
DebugMsg('Optimizer: '+opstr+' + '+opstr+' removed',p);
GetNextInstruction(p,next);
asml.remove(p);
p.free;
p:=next;
end
else
DebugMsg('Optimizer: '+opstr+' + '+opstr+' to '+opstr+' #1',p)
@ -266,8 +271,10 @@ unit aoptcpu;
(taicpu(p).oper[0]^.ref^.offset = 0) then
begin
DebugMsg('Optimizer: LEA 0(Ax),Ax removed',p);
GetNextInstruction(p,next);
asml.remove(p);
p.free;
p:=next;
result:=true;
end;
{ Address register sub/add can be replaced with ADDQ/SUBQ or LEA if the value is in the