paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 16:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

m68k: utilize MVS and MVZ instructions to load values from references with zero/sign extend when they're available

Browse Source 
git-svn-id: trunk@33656 -
This commit is contained in:
Károly Balogh 2016-05-05 23:55:50 +00:00
parent bd17976cf1
commit 3b4822d320
1 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/m68k/cgcpu.pas
View File

@ -828,27 +828,38 @@ unit cgcpu;
hreg : tregister;
size : tcgsize;
opsize: topsize;
needsext: boolean;
begin
href:=ref;
fixref(list,href,false);
if tcgsize2size[fromsize]<tcgsize2size[tosize] then
needsext:=tcgsize2size[fromsize]<tcgsize2size[tosize];
if needsext then
size:=fromsize
else
size:=tosize;
opsize:=TCGSize2OpSize[size];
if isaddressregister(register) and not (opsize in [S_L]) then
hreg:=getintregister(list,OS_ADDR)
else
hreg:=register;
if needsext and (CPUM68K_HAS_MVSMVZ in cpu_capabilities[current_settings.cputype]) and not (opsize in [S_L]) then
begin
if fromsize in [OS_S8,OS_S16] then
list.concat(taicpu.op_ref_reg(A_MVS,opsize,href,hreg))
else if fromsize in [OS_8,OS_16] then
list.concat(taicpu.op_ref_reg(A_MVZ,opsize,href,hreg))
else
internalerror(2016050502);
end
else
begin
hreg:=getintregister(list,OS_ADDR);
list.concat(taicpu.op_ref_reg(A_MOVE,opsize,href,hreg));
sign_extend(list,size,hreg);
a_load_reg_reg(list,OS_ADDR,OS_ADDR,hreg,register);
end
else
begin
list.concat(taicpu.op_ref_reg(A_MOVE,opsize,href,register));
{ extend the value in the register }
sign_extend(list, size, register);
end;
if hreg<>register then
a_load_reg_reg(list,OS_ADDR,OS_ADDR,hreg,register);
end;