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

avoid some unnecessary sign extensions

Browse Source 
git-svn-id: trunk@27111 -
This commit is contained in:
Károly Balogh 2014-03-12 04:16:52 +00:00
parent 48ceebafb1
commit 552ab2938e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/m68k/cgcpu.pas
View File

@ -936,7 +936,8 @@ unit cgcpu;
list.concat(instr);
{ zero/sign extend register to 32-bit }
sign_extend(list, fromsize, reg2);
if tcgsize2size[fromsize]<tcgsize2size[tosize] then
sign_extend(list, fromsize, reg2);
end;
@ -953,7 +954,8 @@ unit cgcpu;
size:=tosize;
list.concat(taicpu.op_ref_reg(A_MOVE,TCGSize2OpSize[size],href,register));
{ extend the value in the register }
sign_extend(list, fromsize, register);
if tcgsize2size[fromsize]<tcgsize2size[tosize] then
sign_extend(list, fromsize, register);
end;