paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 02:49:28 +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

7
compiler/m68k/cgcpu.pas
View File

@ -944,7 +944,14 @@ unit cgcpu;
end end
else else
begin 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)); list.concat(taicpu.op_ref_reg(A_MOVE,opsize,href,hreg));
if needsext then
sign_extend(list,size,hreg); sign_extend(list,size,hreg);
end; end;