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

m68k: do not generate copy loops for single byte copies on a plain '000

Browse Source 
git-svn-id: trunk@35281 -
This commit is contained in:
Károly Balogh 2017-01-13 15:41:21 +00:00
parent 854a82b58b
commit 2e9d0543df
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/m68k/cgcpu.pas
View File

@ -1692,7 +1692,7 @@ unit cgcpu;
srcrefp,dstrefp : treference; srcrefp,dstrefp : treference;
srcref,dstref : treference; srcref,dstref : treference;
begin begin
if (len in [1,2,4]) and (current_settings.cputype <> cpu_mc68000) then if (len = 1) or ((len in [2,4]) and (current_settings.cputype <> cpu_mc68000)) then
begin begin
//list.concat(tai_comment.create(strpnew('g_concatcopy: small'))); //list.concat(tai_comment.create(strpnew('g_concatcopy: small')));
a_load_ref_ref(list,lentocgsize[len],lentocgsize[len],source,dest); a_load_ref_ref(list,lentocgsize[len],lentocgsize[len],source,dest);