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

* avr: more precise execution weigth for shift loops

Browse Source 
git-svn-id: trunk@43349 -
This commit is contained in:
florian 2019-11-01 18:39:15 +00:00
parent f61207f1cc
commit e8a48be3bc
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/avr/cgcpu.pas
View File

@ -452,6 +452,7 @@ unit cgcpu;
b, b2, i, j: byte; b, b2, i, j: byte;
s1, s2, t1: integer; s1, s2, t1: integer;
l1: TAsmLabel; l1: TAsmLabel;
oldexecutionweight: LongInt;
begin begin
if (op in [OP_MUL,OP_IMUL]) and (size in [OS_16,OS_S16]) and (a in [2,4,8]) then if (op in [OP_MUL,OP_IMUL]) and (size in [OS_16,OS_S16]) and (a in [2,4,8]) then
begin begin
@ -511,6 +512,8 @@ unit cgcpu;
countreg:=getintregister(list,OS_8); countreg:=getintregister(list,OS_8);
a_load_const_reg(list,OS_8,b2,countreg); a_load_const_reg(list,OS_8,b2,countreg);
cg.a_label(list,l1); cg.a_label(list,l1);
oldexecutionweight:=executionweight;
executionweight:=executionweight*b2;
if op=OP_SHL then if op=OP_SHL then
list.concat(taicpu.op_reg(A_LSL,GetOffsetReg64(dst,dsthi,b))) list.concat(taicpu.op_reg(A_LSL,GetOffsetReg64(dst,dsthi,b)))
else else
@ -526,6 +529,7 @@ unit cgcpu;
end; end;
list.concat(taicpu.op_reg(A_DEC,countreg)); list.concat(taicpu.op_reg(A_DEC,countreg));
a_jmp_flags(list,F_NE,l1); a_jmp_flags(list,F_NE,l1);
executionweight:=oldexecutionweight;
{ keep registers alive } { keep registers alive }
a_reg_sync(list,countreg); a_reg_sync(list,countreg);
end end