paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 12:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k: on a '000, optimize CLR.L Dx to MOVEQ #0,Dx which is slightly faster

Browse Source 
git-svn-id: trunk@34760 -
This commit is contained in:
Károly Balogh 2016-10-23 23:10:39 +00:00
parent 34ad4c29bf
commit 41776e9608
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/m68k/aoptcpu.pas
View File

@ -43,7 +43,7 @@ unit aoptcpu;
Implementation Implementation
uses uses
cutils, aasmcpu, cgutils; cutils, aasmcpu, cgutils, globals, cpuinfo;
{$ifdef DEBUG_AOPTCPU} {$ifdef DEBUG_AOPTCPU}
procedure TCpuAsmOptimizer.DebugMsg(const s: string; p : tai); procedure TCpuAsmOptimizer.DebugMsg(const s: string; p : tai);
@ -124,6 +124,20 @@ unit aoptcpu;
taicpu(p).loadoper(0,taicpu(p).oper[1]^); taicpu(p).loadoper(0,taicpu(p).oper[1]^);
result:=true; result:=true;
end; end;
{ CLR.L Dx on a 68000 is slower than MOVEQ #0,Dx }
A_CLR:
if (current_settings.cputype in [cpu_mc68000]) and
(taicpu(p).oper[0]^.typ = top_reg) and
(taicpu(p).opsize = S_L) and
isintregister(taicpu(p).oper[0]^.reg) then
begin
//DebugMsg('Optimizer: CLR.L Dx to MOVEQ #0,Dx',p);
taicpu(p).opcode:=A_MOVEQ;
taicpu(p).loadoper(1,taicpu(p).oper[0]^);
taicpu(p).loadconst(0,0);
taicpu(p).ops:=2;
result:=true;
end;
{ CMP #0,<ea> equals to TST <ea>, just shorter and TST is more flexible anyway } { CMP #0,<ea> equals to TST <ea>, just shorter and TST is more flexible anyway }
A_CMP,A_CMPI: A_CMP,A_CMPI:
if (taicpu(p).oper[0]^.typ = top_const) and if (taicpu(p).oper[0]^.typ = top_const) and