paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k: when loading from a reference with zero extend, clear the register first, then load, instead of clearing with AND later, because this is faster on slow 68ks and also shorter

Browse Source 
git-svn-id: trunk@34761 -
This commit is contained in:
Károly Balogh 2016-10-23 23:16:03 +00:00
parent 41776e9608
commit 4620d9b22c
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/m68k/cgcpu.pas
View File

@ -944,8 +944,15 @@ unit cgcpu;
end
else
begin
if needsext and (fromsize in [OS_8,OS_16]) then
begin
//list.concat(tai_comment.create(strpnew('a_load_ref_reg: zero ext')));
a_load_const_reg(list,OS_32,0,hreg);
needsext:=false;
end;
list.concat(taicpu.op_ref_reg(A_MOVE,opsize,href,hreg));
sign_extend(list,size,hreg);
if needsext then
sign_extend(list,size,hreg);
end;
if hreg<>register then